Другие языки программирования и технологии

помогите с файлами в PASCALE

вобшем имеется два файла, в одном свединия о 10 нападающих команды Спартак (фамилия, шайбы, передачи, штрафное время), во втором о 10 нападающих Динамо(фамилия, шайбы,передачи, штрафное вермя).нужно написать программу, которая по данным, извлеченным из этих файлов, создает новый файл, содержащий имя, команду, сумму очков (шайбы + передачи) для шести лучших игроков обеих команд. Имена и показатели результативности хоккеистов вывести на экран.----------------------------------------------да, и ещё когда в начале я создаю тип запись, мне нужно переменные, которые содержат шайбы, передачи, штраф задавать через целочисленный тип? или через строку ?
Доброго времени суток.

>> когда в начале я создаю тип запись, мне нужно переменные, которые содержат шайбы, передачи, штраф задавать через целочисленный тип? или через строку ?

Если вам не нужно обрабатывать эти данные, то без разницы. Но зачем тогда эта программа? Значит, целый.

Раз два файла уже имеются, то рассматривать, как их создать мы не будем и перейдем к чению данных и их обработке. Сразу возникает вопрос. Забитая шайба равнозначна результативной передаче? Если да, то можно идти дальше, иначе требуется вводить систему весовых коэффициентов для оценки результативности игороков, типа 1 шайба = 2 передачам.

type
THockey=record
Name : String[20];
Goals, Pass, Foul : Integer;
end;

var
A : array[1..100] of THockey; {чтобы не заморачиваться с динамическими списками}
n, i, j : Integer;
T : THockey;

Здесь бегин, очистка экрана и прочее.

{считывание данных из файлов в массив}
n := 0;
Assign(InF, 'fname1.dat');
Reset(InF);
while not Eof(InF) do begin
n := n + 1;
Read(InF, A[n]);
end;
Close(InF);

Assign(InF, 'fname2.dat');
Reset(InF);
while not Eof(InF) do begin
n := n + 1;
Read(InF, A[n]);
end;
Close(InF);

{сортировка пузырьком суммы голов и передач}
for i := 1 to n do
for j := 1 to n - i do
if A[j].Goals+A[j].Pass < A[j+1].Goals + A[j+1].Pass then begin {меняем два элемента местами}
T := A[j];
A[j] := A[j+1];
A[j+1] := T;
end;
{все, массив отсортирован}

А теперь можно вывести в выходной файл первые 6 элементов массива и показать все на экране. Это самостоятельно, пожалуйста.

Удачи!
Шавкат Муллаяров
Шавкат Муллаяров
59 612
Лучший ответ
конечно через целые.
Сроздаеш запись фио. команда шайбы.. .
создаешь массив таких записей 20 шт
считываешь в него все данные из обоих файлов
сортируешь по свему критерию
выводишь первых (или последни - как сортировать) записей