|
|||
Решение.. Typeresults = record ⇐ ПредыдущаяСтр 2 из 2 Решение. 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.
|
|||
|