|
Пожалуйста,помогите решить это задание:
Создать типизированный файл stud.dan, который содержит информацию: номер группы; фамилию студента, средний балл; и вывести этот файл на экран. Вывод содержимого файла оформить в виде процедуры.
Вот похожее задание с кодом:
Создать типизированный файл work.dan, который содержит информацию: номер цеха; фамилию, возраст и заработную плату персонала; и вывести этот файл на экран. Вывод содержимого файла оформим в виде процедуры.
Program TF;
Uses WinCrt;
Type Work=record
ceh:byte;
name:string[20];
pol:char;
zar:real;
vik:byte
end;
Var z:work;
f:file of work;
s:char;
{Процедура вывода базы}
procedure vivod;
begin
reset(f); {открываем файл для чтения}
writeln(' Список работающих');
while not (eof(f)) do {вывод на экран содержимого файла}
begin
read(f,z);
write(z.ceh); gotoxy(10,wherey);
write(z.name);
gotoxy(30,wherey);
write(z.vik);
gotoxy(35,wherey);
write(z.zar:3:2);
gotoxy(45,wherey);
write(z.pol);
writeln;
end;
end;
{Основная программа}
Begin
Writeln(' СОЗДАНИЕ ФАЙЛА');
assign(f,'work.dan');
rewrite(f); {создаём файл}
s:='д' ;
while s='д' do {заполнение файла будет до тех пор, пока s='д'}
begin
writeln('Номер цеха');
readln(z.ceh);
writeln('Фамилия сотрудника ');
readln(z.name);
writeln('Возраст сотрудника ');
readln(z.vik);
writeln('Заработная плата ');
readln(z.zar);
writeln('Пол ');
readln(z.pol);
write(f,z);
writeln('Продолжить заполнение файла? (д/н)');
readln(s);
end;
clrscr;
{Вывод на экран содержимого файла}
vivod;
End.
Заранее всем спасибо.
|
Форум
