Задача. Сформировать и вывести на экран файл, представляющий собой ведомость успеваемости студентов 1 курса. Данные об одном студенте имеют структуру вида: Фамилия, Имя, Отчество, номер зачетки, оценки по 5 предметам. Количество студентов (n) и сведения о них вводятся с клавиатуры.
Program Sozd_Fil;
Const
M=5; { Количество оценок }
Type
Stud=Record
Fam, Im, Ot : String[10];
NumZ : LongInt;
Otm : Array[1..M] Of Integer;
End;
Var
Vedom : File Of Stud;
A : Stud;
FilName : String; { имя набора данных }
j,i,n : Integer;
Begin
Writeln(’Введите имя набора данных’);
Readln(FilName);
Assign(Vedom,FilName);
Rewrite(Vedom); {Открытие файла для записи}
Writeln(’Введите количество студентов’);
Readln(n);
Writeln (’Вводите сведения о каждом студенте’);
For i:=1 to n do
Begin
With A do
Begin
Write(’Фамилия: ’);
ReadLn(Fam);
Write(’Имя: ’);
ReadLn(Im);
Write(’Отчество: ’);
ReadLn(Ot);
Write(’Номер зачетки: ’);
ReadLn(Numz);
WriteLn(’Введите оценки по одной:’);
For J := 1 to 5 do
Begin
WriteLn(’Введите ’,J,’ -ю оценку’);
ReadLn(Otm[j]);
End;
End;
Write(Vedom,A); {Запись в файл переписывается целиком}
End;
Close(Vedom);
Writeln (’Конец работы. Нажмите клавишу ENTER’);
ReadLn;
End.
| 
Вход
