Решение.. Typeresults = record

Решение.

ProgramExamen;

Typeresults = record

Fam: string [15];

Rus: 2..5;

Alg:2..5;

Phiz: 2..5

End;

Varlist: array [1..30] ofresults; {Массив записей}

i:integer; F1, F2:text;

Begin

Assign (F1, ‘D:\10_a.txt’); {Связывание F1 c файлом 10_a.txt}

Assign (F2, ‘D:\Best.txt’); {Связывание F2 c файлом Best.txt}

Reset (F1); {Открытие файла F1 для чтения}

Rewrite (F2); {Открытие файла F2для записи}

Readln (F1); Readln (F1);{Пропуск 2 строк в файле F1}, {Цикл ввода из файла F1}

Fori:=1To 30Do

Readln (F1, list [i].Fam, list[i].Rus, list[i].Alg, list[i].Phiz);

{Цикл отбора отличников и вывода их фамилий}

Fori:=1To 30Do

If(list[i].rus=5)and (list[i].alg=5)

and(list[i].phiz=5)

Then

Begin

Writeln (list[i].fam);{Вывод фамилии на экран}

Writeln (F2, list [i].fam);{Запись фамилии в файл F2}

End;

Close (F1);Close (F2); {Закрытие файлов}

End.

⇐ Предыдущая 12