Работа с файлами

@Doomlaser1 · Регистрация: 26.11.2013

Author24 — интернет-сервис помощи студентам

Всем привет, прошу помощи, ибо голова уже совсем не думает
Задача такова
Подготовить данные об абитуриентах, поступающих в техникум.
Информацию о каждом абитуриенте оформить в виде записи, содержащей
следующие поля:
1. Фамилия, имя, отчество.
2. Год рождения.
3. Год окончания школы.
4. Оценки в аттестате.
5. Признак - нуждается ли в общежитии.
6. Оценки вступительных экзаменов.
Абитуриентам старше семнадцати лет, имеющим отличный аттестат.
По сюда я ее сделал и вот код

Pascal

predm1:array[1..m1] of string[10];
oz1:array[1..m1] of byte;
end;
srb:real;
obchaga:char;
end;
var
s:student;
i,j,k,x:integer;
f,f1:file of student;
begin
assign(f,'NewFile.txt');
assign(f1,'Students.txt');
rewrite(f);
with s,at,ocvst do begin
for i:= 1 to n do begin
srb:=0;
writeln('STUDENT NUMBER ',i);
write('FIO-');
readln(fio);
write('Data rojdenia-');
readln(yearb);
write('God okonchania-');
readln(yearok);
write('Ocenky v attestate:');
for j:= 1 to m do begin
write('Predmet- ');
readln(predm[j]);
write('Ocenka- ');
readln(oz[j]);
end;
write('Nyjdaetsa v obchage?(n-NO/y-YES)');
readln(obchaga);
writeln('Ocenky vstypitelnyx:');
for j:= 1 to m1 do begin
write('Predmet- ');
readln(predm1[j]);
write('Ocenka- ');
readln(oz1[j]);
srb:=srb+oz[j];
end;
srb:=srb/m;
end;
end;
close(f);
 
rewrite(f1);
reset(f);
with s,at do begin
for i:=1 to n do begin
read(f,s);
for j:= 1 to m do
if (srb>=5)  then
write(f1,s);
end;
end;
close(f1);
close(f);
reset(f1);
with s do
for i:= 1 to filesize(f1) do begin
read(f1,s);
writeln('FIO- ',fio,' YearBrith- ',yearb,' YearOk- ',yearok,' Obhaga- ',obchaga);
end;
close(f1);
;

И теперь мне надо дописать эту программу с еще 1 условием
Вот оно:Распечатать полученный файл. П. Используя внешний файл, содержащий
исходные данные, добавить N записей и распечатать:Список абитуриентов, получивших на вступительных экзаменах одну оценку 3; N=4.
Писать я его начал, но закончить не могу

Pascal

x:=0;
Writeln('Сколько абитуриентов вы хотите добавить в файл?');
readln(x);
if x>0 then begin
reset(f1);
with s,at,ocvst do begin
for i:= 1 to x do begin
srb:=0;
writeln('STUDENT NUMBER ',i);
write('FIO-');
readln(fio);
write('Year brith-');
readln(yearb);
write('Yearok-');
readln(yearok);
write('Ocenky v attestate:');
for j:= 1 to m do begin
write('Predmet- ');
readln(predm[j]);
write('Ocenka- ');
readln(oz[j]);
end;
write('Nyjdaetsa v obchage?(n-NO/y-YES)');
readln(obchaga);
writeln('Ocenky vstypitelnyx:');
for j:= 1 to m1 do begin
write('Predmet- ');
readln(predm1[j]);
write('Ocenka- ');
readln(oz1[j])

	26.11.2013, 23:35