занести програму в файл, пожалуйста
Добавлено: 08 дек 2013, 20:01
Вот как звучит задание:
Результаты экзаменационной сессии группы студентов 1-го курса представлены в виде таблицы, приведенные в п.11.1. Предварительно создав файл (ы), которые содержат данные этой таблицы, и используя создан (и) файл (ы), разработать программу.
Вот код который нужно превратить в файл!
пожалуйста помогите дописать
Результаты экзаменационной сессии группы студентов 1-го курса представлены в виде таблицы, приведенные в п.11.1. Предварительно создав файл (ы), которые содержат данные этой таблицы, и используя создан (и) файл (ы), разработать программу.
Вот код который нужно превратить в файл!
Код: Выделить всё
const
n=4;
type
student=record
N:byte;
prizv:string;
matan:real;
prog:real;
Os:real;
alg:real;
end;
var
i:integer;
tabl:array[1..n] of student;
procedure lin(m:integer);
var
i:integer;
begin
for i:=1 to m do
write('-');
writeln;
end;
begin
writeln('VVedi dani stydentiv');
for i:=1 to 4 do
begin
tabl[i].N:=i;
readln(tabl[i].Prizv,tabl[i].matan,tabl[i].prog, tabl[i].OS, tabl[i].alg);
end;
Lin(69);
writeln('| | Призвіще | Matematuchnuy | Programyvannya | OS | Algebra | cer|');
writeln('| | | analis | | | i geom.| |');
Lin(69);
For i:=1 to n do
begin
write('|', tabl[i].N:2,' |', tabl[i].Prizv:10, '|');
write(tabl[i].matan:15,'|',tabl[i].prog:16,'|', tabl[i].OS:4,'|', tabl[i].alg:9,'|',((tabl[i].matan+tabl[i].prog+tabl[i].OS+tabl[i].alg)/n):0:2,'|');
writeln;
Lin(69);
end;
writeln;
writeln('vidcortov');
Lin(69);
For i:=1 to n do
begin
If ((tabl[i].matan+tabl[i].prog+tabl[i].OS+tabl[i].alg)/4>=4) then
begin
write('|', tabl[i].N:2,' |', tabl[i].Prizv:10, '|');
write(tabl[i].matan:15,'|',tabl[i].prog:16,'|', tabl[i].OS:4,'|', tabl[i].alg:9,'|',((tabl[i].matan+tabl[i].prog+tabl[i].OS+tabl[i].alg)/n):0:2,'|');
writeln;
Lin(69);
end;
end;
end.