Подготовить данные об абитуриентах, поступающих в техникум. Информацию о каждом абитуриенте оформить в виде записи, содержащей следующие поля:
1. Фамилия, имя, отчество.
2. Год рождения.
3. Год окончания школы.
4. Оценки в аттестате.
5. Признак - нуждается ли в общежитии.
6. Оценки вступительных экзаменов.
Разработать программу записи подготовленных данных во внешний файл и программу обработки созданного внешнего файла.
I. Удалить из внешнего файла все записи абитуриентов, имеющих средний балл меньше 4 и хотя бы одну оценку 3 в аттестате, и распечатать информацию, оставшуюся в файле.
II. Добавить N записей в начало (конец) внешнего файла и распечатать записи абитуриентов, имеющих средний балл больше 4,5; N=4.
Program dom8;
type ev=record
alg:1..5;
ist:1..5;
evm:1..5;
end;
type zap=record
fio: string;
birthdae:1980..2000;
date:2000..2015;
attestat: ev;
need_hostel: boolean;
entrance: ev;
sredniy: real;
end;
fpk=file of zap;
type
TMyFuncType = function(a:zap): boolean;
var fizap,rb:fpk; s1,a,b:zap; i,j:integer; fio, s: string;
function all(a:zap): boolean;
begin
result:=true;
end;
function condition1(a:zap): boolean;
begin
if ((a.sredniy<4) and ((a.attestat.alg=3) or (a.attestat.ist=3) or (a.attestat.evm=3))) then result:=true
else result:=false;
end;
function condition2(a:zap): boolean;
begin
if ((a.sredniy>4.5)) then result:=true
else result:=false;
end;
function Delete(fizap:fpk): boolean;
var i, num:integer;
temp: zap;
begin
i:=1; num:=0;
reset(fizap);
repeat
read(fizap,a);
if (condition1(a)) then begin num:=i; break; end;
i:=i+1;
until eof(fizap);
result:=false;
if(num<>0) then begin
writeln('удаляем запись № ',num,' из ',filesize(fizap),' вторым способом');
seek(fizap, filesize(fizap) - 1);
read(fizap, temp);
seek(fizap, i - 1);
write(fizap, temp);
seek(fizap, filesize(fizap) - 1);
truncate(fizap);
close(fizap);
result:=true;
end;
end;
procedure PrintFile(fizap:fpk; p: TMyFuncType);
var a:zap; i:integer; s:string;
begin
i:=1;
reset(fizap);
writeln('======= вывод ===========');
repeat
read(fizap,a);
if p(a) then begin
s:='да';
if(a.need_hostel) then s:='нет';
writeln(i:2,' Фамилия: ',a.fio:9,', дата рождения: ',a.birthdae,', дата поступления: ',a.date,', общежитие: ', s: 3,
', аттестат: ',a.attestat.alg,',',a.attestat.ist,',',a.attestat.evm,'(',a.sredniy:1:2,'), экзамены: ',a.entrance.alg,',',a.entrance.ist,',',a.entrance.evm);
i:=i+1;
end;
until eof(fizap);
writeln('=======================================');
close(fizap);
end;
begin
{clrscr;}
assign(fizap,'res.dat');
assign(rb,'tmp.dat');
rewrite(fizap);
s1.fio:='Иванов';
s1.birthdae:=1996;
s1.date:=2013;
s1.attestat.alg:=5;
s1.attestat.ist:=5;
s1.attestat.evm:=5;
s1.need_hostel:=true;
s1.entrance.alg:=3;
s1.entrance.ist:=4;
s1.entrance.evm:=3;
s1.sredniy:= (s1.attestat.alg+s1.attestat.ist+s1.attestat.evm)/3;
write(fizap,s1);
s1.fio:='Петров';
s1.birthdae:=1995;
s1.date:=2014;
s1.attestat.alg:=3;
s1.attestat.ist:=4;
s1.attestat.evm:=3;
s1.need_hostel:=false;
s1.entrance.alg:=5;
s1.entrance.ist:=4;
s1.entrance.evm:=4;
s1.sredniy:= (s1.attestat.alg+s1.attestat.ist+s1.attestat.evm)/3;
write(fizap,s1);
s1.fio:='Сидоров';
s1.birthdae:=1997;
s1.date:=2012;
s1.attestat.alg:=3;
s1.attestat.ist:=2;
s1.attestat.evm:=5;
s1.need_hostel:=true;
s1.entrance.alg:=5;
s1.entrance.ist:=5;
s1.entrance.evm:=3;
s1.sredniy:= (s1.attestat.alg+s1.attestat.ist+s1.attestat.evm)/3;
write(fizap,s1);
s1.fio:='Гришин';
s1.birthdae:=1998;
s1.date:=2012;
s1.attestat.alg:=5;
s1.attestat.ist:=3;
s1.attestat.evm:=4;
s1.need_hostel:=true;
s1.entrance.alg:=5;
s1.entrance.ist:=5;
s1.entrance.evm:=5;
s1.sredniy:= (s1.attestat.alg+s1.attestat.ist+s1.attestat.evm)/3;
write(fizap,s1);
s1.fio:='Рыжков';
s1.birthdae:=1994;
s1.date:=2012;
s1.attestat.alg:=5;
s1.attestat.ist:=5;
s1.attestat.evm:=5;
s1.need_hostel:=true;
s1.entrance.alg:=5;
s1.entrance.ist:=5;
s1.entrance.evm:=5;
s1.sredniy:= (s1.attestat.alg+s1.attestat.ist+s1.attestat.evm)/3;
write(fizap,s1);
s1.fio:='Николаев';
s1.birthdae:=1999;
s1.date:=2014;
s1.attestat.alg:=4;
s1.attestat.ist:=4;
s1.attestat.evm:=4;
s1.need_hostel:=false;
s1.entrance.alg:=3;
s1.entrance.ist:=2;
s1.entrance.evm:=3;
s1.sredniy:= (s1.attestat.alg+s1.attestat.ist+s1.attestat.evm)/3;
write(fizap,s1);
s1.fio:='Васечкин';
s1.birthdae:=1996;
s1.date:=2014;
s1.attestat.alg:=5;
s1.attestat.ist:=4;
s1.attestat.evm:=3;
s1.need_hostel:=true;
s1.entrance.alg:=4;
s1.entrance.ist:=4;
s1.entrance.evm:=3;
s1.sredniy:= (s1.attestat.alg+s1.attestat.ist+s1.attestat.evm)/3;
write(fizap,s1);
s1.fio:='Сыроежкин';
s1.birthdae:=1995;
s1.date:=2014;
s1.attestat.alg:=3;
s1.attestat.ist:=4;
s1.attestat.evm:=2;
s1.need_hostel:=false;
s1.entrance.alg:=5;
s1.entrance.ist:=2;
s1.entrance.evm:=3;
s1.sredniy:= (s1.attestat.alg+s1.attestat.ist+s1.attestat.evm)/3;
write(fizap,s1);
s1.fio:='Соколов';
s1.birthdae:=1997;
s1.date:=2012;
s1.attestat.alg:=3;
s1.attestat.ist:=2;
s1.attestat.evm:=2;
s1.need_hostel:=true;
s1.entrance.alg:=2;
s1.entrance.ist:=5;
s1.entrance.evm:=3;
s1.sredniy:= (s1.attestat.alg+s1.attestat.ist+s1.attestat.evm)/3;
write(fizap,s1);
close(fizap);
writeln('файл изначально:');
PrintFile(fizap, all);
writeln('записи для удаления');
writeln('(имеющим средний балл меньше 4 и хотя бы одну оценку 3 в аттестате):');
PrintFile(fizap, condition1);
rewrite(rb);
reset(fizap);
repeat
read(fizap,a);
if not(condition1(a)) then write(rb,a);
until eof(fizap);
rewrite(fizap);
reset(rb);
repeat
read(rb,a);
write(fizap,a);
until eof(rb);
close(rb);
close(fizap);
writeln('файл после удаления первым способом:');
PrintFile(fizap, all);
reset(fizap);
seek(fizap,FileSize(fizap));
s1.fio:='Жуков';
s1.birthdae:=1994;
s1.date:=2014;
s1.attestat.alg:=5;
s1.attestat.ist:=3;
s1.attestat.evm:=4;
s1.need_hostel:=false;
s1.entrance.alg:=3;
s1.entrance.ist:=4;
s1.entrance.evm:=3;
s1.sredniy:= (s1.attestat.alg+s1.attestat.ist+s1.attestat.evm)/3;
write(fizap,s1);
s1.fio:='Фролов';
s1.birthdae:=1996;
s1.date:=2013;
s1.attestat.alg:=5;
s1.attestat.ist:=5;
s1.attestat.evm:=5;
s1.need_hostel:=true;
s1.entrance.alg:=3;
s1.entrance.ist:=5;
s1.entrance.evm:=5;
s1.sredniy:= (s1.attestat.alg+s1.attestat.ist+s1.attestat.evm)/3;
write(fizap,s1);
s1.fio:='Журавлёв';
s1.birthdae:=1998;
s1.date:=2014;
s1.attestat.alg:=3;
s1.attestat.ist:=3;
s1.attestat.evm:=5;
s1.need_hostel:=false;
s1.entrance.alg:=3;
s1.entrance.ist:=4;
s1.entrance.evm:=5;
s1.sredniy:= (s1.attestat.alg+s1.attestat.ist+s1.attestat.evm)/3;
write(fizap,s1);
s1.fio:='Симонов';
s1.birthdae:=1999;
s1.date:=2014;
s1.attestat.alg:=3;
s1.attestat.ist:=4;
s1.attestat.evm:=5;
s1.need_hostel:=false;
s1.entrance.alg:=4;
s1.entrance.ist:=4;
s1.entrance.evm:=5;
s1.sredniy:= (s1.attestat.alg+s1.attestat.ist+s1.attestat.evm)/3;
write(fizap,s1);
close(fizap);
writeln('файл после добавления(Жуков, Фролов, Журавлёв, Симонов)');
PrintFile(fizap, all);
writeln('записи для удаления вторым способом');
writeln('(имеющим средний балл меньше 4 и хотя бы одну оценку 3 в аттестате):');
PrintFile(fizap, condition1);
repeat until not(Delete(fizap));
writeln('файл после удаления вторым способом:');
PrintFile(fizap, all);
writeln('вывод абитуриентов по второму условию');
writeln('(список абитуриентов, имеющих средний балл больше 4,5):');
PrintFile(fizap, condition2);
writeln('введите фамилию для поиска:');
read(fio);
reset(fizap);
writeln('результаты поиска:');
repeat
read(fizap,a);
if (a.fio = fio) then begin
s:='не нужно';
if(a.need_hostel) then s:='нужно';
writeln(' Фамилия: ',a.fio:9,', дата рождения: ',a.birthdae,', дата поступления: ',a.date,', общежитие: ', s: 8,
', аттестат: ',a.attestat.alg,',',a.attestat.ist,',',a.attestat.evm,', экзамены: ',a.entrance.alg,',',a.entrance.ist,',',a.entrance.evm);
end;
until eof(fizap);
close(fizap);
writeln('поиск завершен');
erase(rb);
end.
Результаты выполнения программы:
