-номер группы;
-фио;
-оценка по 5 экзаментам и зачетам(зачет\незачет).
Вот собственно код
Uses
Crt;
Type
Book = Record
fam:String[20];
name:String[20];
otch:String[20];
End;
Zap=Record
Fio:Book;
n_grup:String[6];
ocenki:String[1];
Zachet:string[7];
End;
Var
fv: file of Zap;
file_name:string;
razmer:Integer;
sved:Zap;
ch:Char;
p,i:Byte;
Procedure Add_Rec;
Begin
WriteLn('Ввдите количество записей');
ReadLn(razmer);
For i:= 1 to razmer do
Writeln('Fam');
ReadLn(sved.fio.fam);
Writeln('n_grup');
readLn(sved.n_grup);
Writeln('ocenki');
readLn(sved.ocenki);
Writeln(' Zachet');
readLn(sved. Zachet);
end;
Procedure Sozd_file;
Var
Ch1:Char;
begin
Writeln('создание файла');
Writeln('введите имя файла');
Read(file_name);
Assign(fv, file_name);
Rewrite(fv);
writeln('введите сведенья');
repeat
Add_rec;
Until Ch1=#27;
Close(fv);
End;
Procedure Out_rec;
Begin
Read(fv,sved);
Writeln(sved.fio.fam);
Writeln(sved.n_grup);
Writeln(sved.ocenki);
Writeln(sved. Zachet);
End;
Procedure Out_All_Rec;
Begin
Writeln('чтение файла');
Writeln('введите имя файла');
readln(file_name);
Assign(fv,file_name);
reset(fv);
seek(fv,0);
While not Eof(fv) do
Close(fv);
End;
Begin
Writeln('1:add_rec');
Writeln('2:Sozd_file');
Writeln('3:Out_rec');
Writeln('4:Out_all_rec');
Case P of
1:Add_rec;
2:sozd_file;
3:Out_rec;
4:out_all_rec;
end;
ReadKey;
End.