Курсовая работа / Новая папка (2) / Курсовая / VYPUSKNI

Unit vypuskniki;
interface
uses Crt;
type school = record
fam,im,otch:string;
klass:string;
nom_atest:integer;
sr_bal:real;
u4_zaved:string;
end;


var f: file of school;
i:integer;
z:school;
st:string;
n:byte;
n_z:byte;
procedure Vvod;
procedure Vyvod;
procedure Dobavit;
procedure Redakt;
procedure Delete;
{ procedure Poisk; }

implementation
procedure vvod;
begin
clrscr;
rewrite(f);
i:=1; st:='d';
while st='d' do
begin
clrscr;
writeln('Vvedite dannye ',i, ' vypusknika');
write('Vvedite familiju:'); readln(z.fam);
write('Vvedite imja : '); readln(z.im);
write('Vvedite otchestvo : '); readln(z.otch);
write('Vvedite klass:'); readln(z.klass);
write('Vvedite ь atestata:'); readln(z.nom_atest);
write('Vvedite sredniy bal:'); readln(z.sr_bal);
write('Vvedite vid uchebnogo zavedeniya (1-VNZ; 2-Kolleg; 3-Uchilishw; 4-ne u4itsya)');
readln(n);
case n of
1:z.u4_zaved:='VNZ';
2:z.u4_zaved:='Kolleg';
3:z.u4_zaved:='Uchilishe';
4:z.u4_zaved:='Ne u4itsya';
end;
write(f,z);
i:=i+1;
writeln ('Hotite prodolzhit (d/n)');readln(st);
end;
close(f);

readkey;
end;
Procedure Vyvod;
begin
clrscr;
reset(f);
if filesize(f)=0 then begin
textcolor(4);
writeln('‚ Ў §Ґ ­Ґв § ЇЁбҐ©');
textcolor(15); end else
begin
gotoXY(34,1); Write('Spisok vypusknikov');

gotoXY(1,2); write('Familiya');
gotoXY(12,2); write('Im9');
gotoXY(22,2); write('Ot4estvo');
gotoXY(34,2); write('Klass');
gotoXY(40,2); write('ь atest');
gotoXY(50,2); write('Sr bal');
gotoXY(57,2); write('Vid u/z');
writeln; i:=1;
while not (eof(f)) do
begin
read(f,z);
gotoXY(1,wherey); write(z.fam);
gotoXY(12,wherey); write(z.im);
gotoXY(22,wherey); write(z.otch);
gotoXY(34,wherey); write(z.klass);
gotoXY(40,wherey); write(z.nom_atest);
gotoXY(50,wherey); write(z.sr_bal:4:2);
gotoXY(57,wherey); write(z.u4_zaved);
i:=i+1;
writeln;
end;
end;
close(f);
readkey;
end;

Procedure Dobavit;
Begin
clrscr;
reset(f);
seek(f,filesize(f));
st:='d';
while st='d' do
begin
clrscr;
writeln('Vvedite dannye ',i, ' vypusknika');
write('Vvedite familiju:'); readln(z.fam);
write('Vvedite imja : '); readln(z.im);
write('Vvedite otchestvo : '); readln(z.otch);
write('Vvedite klass:'); readln(z.klass);
write('Vvedite ь atestata:'); readln(z.nom_atest);
write('Vvedite sredniy bal:'); readln(z.sr_bal);
{ write('Vvedite vid uchebnogo zavedeniya(1-VNZ; 2-Kolleg; 3-Uchilishw; 4-ne u4itsya :');
readln(n);
case n of
1:readln(z.u4_zaved:='VNZ');
2:readln(z.u4_zaved:='Kolleg');
3:readln(z.u4_zaved:='Uchilishe');
4:readln(z.u4_zaved:='Ne u4itsya');
}
i:=i+1;
writeln;
write(f,z);
writeln('Hotite prodolzhit (d/n)'); readln(st);

close(f);
end;
readkey;
end;

Procedure Redakt;
begin
clrscr;
reset(f);
if filesize(f)=0 then begin
textcolor(4);
writeln('V BD netu danoi zapisi');
textcolor(15); end else
begin
gotoXY(34,1); Write('Spisok vypusknikov');

gotoXY(1,2); write('Familiya');
gotoXY(12,2); write('Im9');
gotoXY(22,2); write('Ot4estvo');
gotoXY(34,2); write('Klass');
gotoXY(40,2); write('ь atest');
gotoXY(50,2); write('Sr bal');
{ gotoXY(57,2); write('Vid u/z');}
writeln; i:=1;
while not (eof(f)) do
begin
read(f,z);
gotoXY(1,wherey); write(z.fam);
gotoXY(12,wherey); write(z.im);
gotoXY(22,wherey); write(z.otch);
gotoXY(34,wherey); write(z.klass);
gotoXY(40,wherey); write(z.nom_atest);
gotoXY(50,wherey); write(z.sr_bal:4:2);
i:=i+1;
writeln;
end;
end;
close(f);
reset(f);
writeln;
write('Nomer zapisi:'); read(n_z);
if n_z>filesize(f) then write('Danaya zapis otsutstvuet') else
begin
seek(f,n-1);
writeln('Vvedite dannye ',i, ' vypusknika');
write('Vvedite familiju:'); readln(z.fam);
write('Vvedite imja : '); readln(z.im);
write('Vvedite otchestvo : '); readln(z.otch);
write('Vvedite klass:'); readln(z.klass);
write('Vvedite ь atestata:'); readln(z.nom_atest);
write('Vvedite sredniy bal:'); readln(z.sr_bal);
{ write('Vvedite vid uchebnogo zavedeniya (1-VNZ; 2-Kolleg; 3-Uchilishw; 4-ne u4itsya)');
readln(n);
case n of
1:readln(z.u4_zaved:='VNZ');
2:readln(z.u4_zaved:='Kolleg');
3:readln(z.u4_zaved:='Uchilishe');
4:readln(z.u4_zaved:='Ne u4itsya'); }

write(f,z);
end;

close(f);
readkey;
end;

procedure delete;
begin
clrscr;
reset(f);
if filesize(f)=0 then begin
textcolor(4);
writeln('V BD netu danoi zapisi');
textcolor(15); end else
begin
gotoXY(34,1); Write('Spisok vypusknikov');

gotoXY(1,2); write('Familiya');
gotoXY(12,2); write('Im9');
gotoXY(22,2); write('Ot4estvo');
gotoXY(34,2); write('Klass');
gotoXY(40,2); write('ь atest');
gotoXY(50,2); write('Sr bal');
{ gotoXY(57,2); write('Vid u/z');}
writeln; i:=1;
while not (eof(f)) do
begin
read(f,z);
gotoXY(1,wherey); write(z.fam);
gotoXY(12,wherey); write(z.im);
gotoXY(22,wherey); write(z.otch);
gotoXY(34,wherey); write(z.klass);
gotoXY(40,wherey); write(z.nom_atest);
gotoXY(50,wherey); write(z.sr_bal:4:2);
writeln;
i:=i+1;

end;

close(f);
writeln;
reset(f);

write('Nomer zapisi:'); read(n_z);
if n_z>filesize(f) then write('Danaya zapis otsutstvuet') else
begin
seek(f,filesize(f)-1);
read(f,z);
seek(f,n-1);
write(f,z);
seek(f,filesize(f)-1);
truncate(f);
writeln('Zapis udalena');
end;
end;
readkey;
end;
end.