Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
29
Добавлен:
02.05.2014
Размер:
34.82 Кб
Скачать

{файл с общими описаниями Z0.PAS}

function fs(name:string):boolean;

var f:file;

begin

assign(f,name);

{$I-}

reset(f);

{$I+}

if ioresult<>0 then

fs:=false

else

begin

fs:=true;

close(f)

end

end;

type tdata=record

d:1..31;

m:1..12;

g:word

end;

tinfstud=record

fam:string[20];

dr:tdata;

gp:word;

sb:real

end;

tfileinfstud=file of tinfstud;

var fbd,fv:tfileinfstud;

namebd, namev:string;

r:tinfstud;

{программа создания базы данных (файл Z1.pas)}

program z1;

{$I FILE0.PAS}

var otvet: char;

begin

writeln('Введите имя создаваемого файла с базой данных');

readln(namebd);

if fs(namebd) then

begin

writeln('ОШИБКА!!! Файл с именем ',namebd,' уже существует');

halt

end;

assign(fbd,namebd);

rewrite(fbd);

repeat

writeln('Введите информацию об очередном студенте?');

with r do

begin

writeln('Фамилия?');

readln(fam);

writeln('День, месяц, год рождения, год поступления, средний балл ',

'для студента ',fam);

readln(dr.d, dr.m, dr.g, gp, sb);

write(fbd,r)

end;

writeln('Продолжать?[y/n/]');

readln(otvet)

until (upcase(otvet)='N') or (otvet='т') or (otvet='Т');

close(fbd)

end.

{программа просмотра файлов с компонентами типа tinfstud (файл z2.pas)}

program z2;

{$I FILE0.PAS}

begin

writeln('Введите имя просматриваемого файла ');

readln(namebd);

if not fs(namebd) then

begin

writeln('ОШИБКА!!! Файл с именем ',namebd,' не существует');

halt

end;

assign(fbd,namebd);

reset(fbd);

writeln('ФАМИЛИЯ ':20,' ДАТА РОЖД.',' ГП ',' БАЛЛ');

while not eof(fbd) do

begin

read(fbd,r);

with r do

begin

fam:=copy(fam+' ',1,20);

writeln(fam:20, dr.d:3,'.',dr.m:2,'.', dr.g:4, gp:5, sb:5:2)

end

end;

close(fbd);

writeln('Информация исчерпана!!!')

end.

{программа сортировки (файл Z3.PAS)}

program z3;

{$I FILE0.PAS}

var i,nm:longint;

extr:tinfstud;

begin

writeln('Введите имя файла с информацией о студентах');

readln(namebd);

if not fs(namebd) then

begin

writeln('ОШИБКА!!! Файл с именем ',namebd,' не существует');

halt

end;

assign(fbd,namebd);

reset(fbd);

for i:=0 to filesize(fbd)-2 do

begin

read(fbd,extr);

nm:=i;

while not eof(fbd) do

begin

read(fbd,r);

with r do

if (fam<extr.fam)or

(fam=extr.fam)and((dr.g<extr.dr.g)or

(dr.g=extr.dr.g)and((dr.m<extr.dr.m)or

(dr.m=extr.dr.m)and(dr.d<extr.dr.d)))

then

begin

extr:=r;

nm:=filepos(fbd)-1

end

end;

seek(fbd,i);

read(fbd,r);

seek(fbd,nm);

write(fbd,r);

seek(fbd,i);

write(fbd,extr)

end;

close(fbd);

end.

{программа выборки из файла по среднему баллу (файл Z4.PAS)}

program z4;

{$I FILE0.PAS}

var gsb:real;

begin

writeln('Введите имя файла с информацией о студентах');

readln(namebd);

if not fs(namebd) then

begin

writeln('ОШИБКА!!! Файл с именем ',namebd,' не существует');

halt

end;

writeln('Введите имя файла для выборки');

readln(namev);

if fs(namev) then

begin

writeln('ОШИБКА!!! Файл с именем ',namev,' существует');

halt

end;

writeln('Граничный средний балл?');

readln(gsb);

assign(fbd,namebd);

reset(fbd);

assign(fv,namev);

rewrite(fv);

while not eof(fbd) do

begin

read(fbd,r);

if r.sb>=gsb then

write(fv,r);

end;

close(fbd);

close(fv)

end.

2

Соседние файлы в папке Лекции по Паскалю