Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа / Курсовая1 / MODUL
.PAS Unit modul;
interface
uses Crt,Graph;
type vupysknik=record
fam:string;
nomer_d:1..999999;
ser_bal:real;
pidpr:string;
ozn:string;
end;
var f,f1:file of vupysknik;
i,nomer_d,n:integer;
st,n_pidpr:string;
z:vupysknik;
k:real;
c:char;
procedure Vvod;
procedure Vyvod;
procedure ramka;
procedure Dobavit;
procedure Delete;
procedure Redakt;
procedure oznaka;
implementation
procedure Vvod;
begin
Clrscr;
rewrite(f);
i:=1; st:='¤ ';
while st='¤ ' do
begin
clrscr;
gotoxy(7,6);writeln('‚ўҐ¤ЁвҐ ¤ лҐ ® ',i,' ‚лЇгбЄЁЄҐ');
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ ®¬Ґа ¤ЁЇ«®¬ :');gotoxy(7,wherey); readln (z.nomer_d);
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ д ¬Ё«Ёо:'); gotoxy(7,wherey); readln (z.fam);
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ б।Ё© Ў «:');gotoxy(7,wherey); readln(z.ser_bal);
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ ¬Ґбв® а®Ў®вл, Є®в®а®Ґ ЇаҐ¤«®Ј Ґвбп (ЇаҐ¤ЇаЁпвЁҐ):');gotoxy(7,wherey); readln (z.pidpr);
gotoxy(7,wherey);writeln ('ЏаЁ§ Є ЇаЁпвЁп а Ў®вг ¤ ®¬ ЇаҐ¤ЇаЁпвЁЁ: ');
oznaka;
write(f,z);
i:=i+1;
textcolor(white);
gotoxy(7,20);writeln ('•®вЁвҐ Їа®¤®«¦Ёвм? ¤ /Ґв');
gotoxy(7,wherey);
readln(st);
end;
close(f);
end;
procedure oznaka;
begin
repeat
gotoxy(7,wherey);
writeln('‚лЎҐаЁвҐ : „ - ¤ Ё«Ё Ќ - Ґв');
gotoxy(7,wherey);readln(c);
if c in ['„','¤','d','D'] then z.ozn:='„ '
else if c in ['Ќ','','N','n'] then z.ozn:='ЌҐв';
until c in ['d','D','¤','„','','Ќ','N','n'];
gotoxy(7,wherey);
if z.ozn='„ ' then writeln('„ ,ва㤮гбв஥!')
else writeln('ЌҐв, Ґва㤮гбв஥!');
readln;
end;
procedure ramka;
begin
gotoxy(5,5);
write('ь');
gotoxy(8,5);
write('” ¬Ё«Ёп');
gotoxy(20,5);
write ('ь ¤ЁЇ«®¬a');
gotoxy(30,5);
write('‘।Ё© Ў «');
gotoxy(45,5);
write('ЊҐбв® а Ў®вл');
gotoxy(60,5);
write('ЏаЁ§ Є ЇаЁпвЁп');
writeln;
end;
procedure Vyvod;
begin
clrscr;
reset(f);
gotoxy(4,2); write (chr(218),'------------------------------------------------------------------------',chr(191));
gotoxy(4,3);
writeln('|‚Ґ¤®¬®бвм Їа® ва㤮гбва®©бвў® ўлЇгбЄЁЄ®ў Ї® ЇаҐ¤ЇаЁпвЁп¬ |');
gotoxy(4,4); write (chr(192),'------------------------------------------------------------------------',chr(217));
if filesize(f)=0 then
begin
textcolor(4+16);
gotoxy(4,6);
writeln('‚ Ў §Ґ ®вбгвбвўгов ¤ лҐ!');
textcolor(7)
end
else
ramka;
for i:=1 to filesize(f) do
begin
read(f,z);
gotoxy(5,wherey); write(i);
gotoxy(8,wherey); write(z.fam);
gotoxy(20,wherey); write(z.nomer_d);
gotoxy(30,wherey); write(z.ser_bal:2:2);
gotoxy(45,wherey); write(z.pidpr);
gotoxy(60,wherey); write(z.ozn);
writeln;
end;
close(f);
readkey;
end;
procedure Dobavit;
begin
clrscr;
reset(f);
seek(f,filesize(f));
i:=filesize(f);
st:='¤ ';
while st='¤ ' do
begin
clrscr;
gotoxy(7,4);writeln('‚ўҐ¤ЁвҐ ¤ лҐ ® ¤®Ў ў«пҐ¬®¬ ўлЇгбЄЁЄҐ:');
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ д ¬Ё«Ёо:'); gotoxy(7,wherey); readln (z.fam);
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ ®¬Ґа ¤ЁЇ«®¬ :');gotoxy(7,wherey); readln (z.nomer_d);;
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ б।Ё© Ў «:');gotoxy(7,wherey); readln(z.ser_bal);
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ ¬Ґбв® а®Ў®вл, Є®в®а®Ґ ЇаҐ¤«®Ј Ґвбп(ЇаҐ¤ЇаЁпвЁҐ):');gotoxy(7,wherey); readln (z.pidpr);
gotoxy(7,wherey);writeln ('ЏаЁ§ Є ЇаЁпвЁп а Ў®вг ¤ ®¬ ЇаҐ¤ЇаЁпвЁЁ: ');
oznaka;
write(f,z);
i:=i+1;
textcolor(white);
gotoxy(7,wherey);writeln ('•®вЁвҐ Їа®¤®«¦Ёвм? (¤ /Ґв)');
gotoxy(7,wherey); readln(st);
end;
close(f);
end;
procedure Delete;
begin
clrscr;
reset(f);
gotoxy(3,2);write('‚Ґ¤®¬®бвм Їа® ва㤮гбва®©бвў® ўлЇгбЄЁЄ®ў Ї® ЇаҐ¤ЇаЁпвЁп¬');
gotoxy(3,4);
while not (eof(f)) do
for i:=1 to filesize(f) do
begin
read(f, z);
gotoxy(3,wherey); write(i);
gotoxy(6,wherey); write(z.fam);
gotoxy(20,wherey); write(z.nomer_d);
gotoxy(35,wherey); write(z.ser_bal:2:2);
gotoxy(40,wherey); write(z.pidpr);
gotoxy(55,wherey); write(z.ozn);
writeln;
end;
close(f);
writeln;
reset(f);
gotoxy(3,wherey);writeln('“Є ¦ЁвҐ ®¬Ґа г¤ «пҐ¬®© § ЇЁбЁ:');
gotoxy(3,wherey); readln(n);
gotoxy(3,wherey);
if n>filesize(f) then write('’ Є®© § ЇЁбЁ Ќ…’!')
else
begin
assign(f1,'f1.dat');
reset(f); rewrite(f1);
for i:=1 to filesize(f) do
begin
read(f, z);
if filepos(f)<>n then write (f1,z);
end;
close(f1); close(f);
erase(f); rename (f1,'f.dat');
gotoxy(3,wherey); write('‡ ЇЁбм г¤ «Ґ !!!');
end;
readkey;
end;
procedure Redakt;
begin
clrscr;
gotoxy(4,2); write (chr(218),'------------------------------------------------------------------------',chr(191));
gotoxy(4,3);
writeln('|‚Ґ¤®¬®бвм Їа® ва㤮гбва®©бвў® ўлЇгбЄЁЄ®ў Ї® ЇаҐ¤ЇаЁпвЁп¬ |');
gotoxy(4,4); write (chr(192),'------------------------------------------------------------------------',chr(217));
gotoxy(5,4);ramka;
reset(f);
while not (eof(f)) do
for i:=1 to filesize(f) do
begin
read(f, z);
gotoxy(5,wherey); write(i);
gotoxy(8,wherey); write(z.fam);
gotoxy(20,wherey); write(z.nomer_d);
gotoxy(30,wherey); write(z.ser_bal:2:2);
gotoxy(45,wherey); write(z.pidpr);
gotoxy(60,wherey); write(z.ozn);
writeln;
end;
close(f);
reset(f);
gotoxy(7,wherey);writeln('“Є ¦ЁвҐ ®¬Ґа § ЇЁбЁ:');gotoxy(7,wherey); readln(n);
gotoxy(7,wherey);
if n>filesize(f) then write('’ Є®© § ЇЁбЁ Ќ…’!')
else
begin
seek(f,n-1);
gotoxy(7,wherey);writeln('‚ўҐ¤ЁвҐ ¤ лҐ ® ',n,' ‚лЇгбЄЁЄҐ');
gotoxy(7,wherey);write ('‚ўҐ¤ЁвҐ д ¬Ё«Ёо:'); readln (z.fam);
gotoxy(7,wherey);write ('‚ўҐ¦ЁвҐ ®¬Ґа ¤ЁЇ«®¬ :'); readln (z.nomer_d);
gotoxy(7,wherey);write ('‚ўҐ¤ЁвҐ б।Ё© Ў «:'); readln(z.ser_bal);
gotoxy(7,wherey);write ('‚ўҐ¤ЁвҐ ¬Ґбв® а®Ў®вл,Є®в®а®Ґ ЇаҐ¤«®Ј Ґвбп(ЇаҐ¤ЇаЁпвЁҐ):'); readln (z.pidpr);
gotoxy(7,wherey);writeln ('ЏаЁ§ Є ЇаЁпвЁп а Ў®вг ¤ ®¬ ЇаҐ¤ЇаЁпвЁЁ: ');
oznaka;
write (f, z);
gotoxy(7,wherey);write('‡ ЇЁбм Ё§¬ҐҐ !');
end;
readkey;
close(f);
end;
end.
interface
uses Crt,Graph;
type vupysknik=record
fam:string;
nomer_d:1..999999;
ser_bal:real;
pidpr:string;
ozn:string;
end;
var f,f1:file of vupysknik;
i,nomer_d,n:integer;
st,n_pidpr:string;
z:vupysknik;
k:real;
c:char;
procedure Vvod;
procedure Vyvod;
procedure ramka;
procedure Dobavit;
procedure Delete;
procedure Redakt;
procedure oznaka;
implementation
procedure Vvod;
begin
Clrscr;
rewrite(f);
i:=1; st:='¤ ';
while st='¤ ' do
begin
clrscr;
gotoxy(7,6);writeln('‚ўҐ¤ЁвҐ ¤ лҐ ® ',i,' ‚лЇгбЄЁЄҐ');
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ ®¬Ґа ¤ЁЇ«®¬ :');gotoxy(7,wherey); readln (z.nomer_d);
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ д ¬Ё«Ёо:'); gotoxy(7,wherey); readln (z.fam);
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ б।Ё© Ў «:');gotoxy(7,wherey); readln(z.ser_bal);
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ ¬Ґбв® а®Ў®вл, Є®в®а®Ґ ЇаҐ¤«®Ј Ґвбп (ЇаҐ¤ЇаЁпвЁҐ):');gotoxy(7,wherey); readln (z.pidpr);
gotoxy(7,wherey);writeln ('ЏаЁ§ Є ЇаЁпвЁп а Ў®вг ¤ ®¬ ЇаҐ¤ЇаЁпвЁЁ: ');
oznaka;
write(f,z);
i:=i+1;
textcolor(white);
gotoxy(7,20);writeln ('•®вЁвҐ Їа®¤®«¦Ёвм? ¤ /Ґв');
gotoxy(7,wherey);
readln(st);
end;
close(f);
end;
procedure oznaka;
begin
repeat
gotoxy(7,wherey);
writeln('‚лЎҐаЁвҐ : „ - ¤ Ё«Ё Ќ - Ґв');
gotoxy(7,wherey);readln(c);
if c in ['„','¤','d','D'] then z.ozn:='„ '
else if c in ['Ќ','','N','n'] then z.ozn:='ЌҐв';
until c in ['d','D','¤','„','','Ќ','N','n'];
gotoxy(7,wherey);
if z.ozn='„ ' then writeln('„ ,ва㤮гбв஥!')
else writeln('ЌҐв, Ґва㤮гбв஥!');
readln;
end;
procedure ramka;
begin
gotoxy(5,5);
write('ь');
gotoxy(8,5);
write('” ¬Ё«Ёп');
gotoxy(20,5);
write ('ь ¤ЁЇ«®¬a');
gotoxy(30,5);
write('‘।Ё© Ў «');
gotoxy(45,5);
write('ЊҐбв® а Ў®вл');
gotoxy(60,5);
write('ЏаЁ§ Є ЇаЁпвЁп');
writeln;
end;
procedure Vyvod;
begin
clrscr;
reset(f);
gotoxy(4,2); write (chr(218),'------------------------------------------------------------------------',chr(191));
gotoxy(4,3);
writeln('|‚Ґ¤®¬®бвм Їа® ва㤮гбва®©бвў® ўлЇгбЄЁЄ®ў Ї® ЇаҐ¤ЇаЁпвЁп¬ |');
gotoxy(4,4); write (chr(192),'------------------------------------------------------------------------',chr(217));
if filesize(f)=0 then
begin
textcolor(4+16);
gotoxy(4,6);
writeln('‚ Ў §Ґ ®вбгвбвўгов ¤ лҐ!');
textcolor(7)
end
else
ramka;
for i:=1 to filesize(f) do
begin
read(f,z);
gotoxy(5,wherey); write(i);
gotoxy(8,wherey); write(z.fam);
gotoxy(20,wherey); write(z.nomer_d);
gotoxy(30,wherey); write(z.ser_bal:2:2);
gotoxy(45,wherey); write(z.pidpr);
gotoxy(60,wherey); write(z.ozn);
writeln;
end;
close(f);
readkey;
end;
procedure Dobavit;
begin
clrscr;
reset(f);
seek(f,filesize(f));
i:=filesize(f);
st:='¤ ';
while st='¤ ' do
begin
clrscr;
gotoxy(7,4);writeln('‚ўҐ¤ЁвҐ ¤ лҐ ® ¤®Ў ў«пҐ¬®¬ ўлЇгбЄЁЄҐ:');
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ д ¬Ё«Ёо:'); gotoxy(7,wherey); readln (z.fam);
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ ®¬Ґа ¤ЁЇ«®¬ :');gotoxy(7,wherey); readln (z.nomer_d);;
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ б।Ё© Ў «:');gotoxy(7,wherey); readln(z.ser_bal);
gotoxy(7,wherey);writeln ('‚ўҐ¤ЁвҐ ¬Ґбв® а®Ў®вл, Є®в®а®Ґ ЇаҐ¤«®Ј Ґвбп(ЇаҐ¤ЇаЁпвЁҐ):');gotoxy(7,wherey); readln (z.pidpr);
gotoxy(7,wherey);writeln ('ЏаЁ§ Є ЇаЁпвЁп а Ў®вг ¤ ®¬ ЇаҐ¤ЇаЁпвЁЁ: ');
oznaka;
write(f,z);
i:=i+1;
textcolor(white);
gotoxy(7,wherey);writeln ('•®вЁвҐ Їа®¤®«¦Ёвм? (¤ /Ґв)');
gotoxy(7,wherey); readln(st);
end;
close(f);
end;
procedure Delete;
begin
clrscr;
reset(f);
gotoxy(3,2);write('‚Ґ¤®¬®бвм Їа® ва㤮гбва®©бвў® ўлЇгбЄЁЄ®ў Ї® ЇаҐ¤ЇаЁпвЁп¬');
gotoxy(3,4);
while not (eof(f)) do
for i:=1 to filesize(f) do
begin
read(f, z);
gotoxy(3,wherey); write(i);
gotoxy(6,wherey); write(z.fam);
gotoxy(20,wherey); write(z.nomer_d);
gotoxy(35,wherey); write(z.ser_bal:2:2);
gotoxy(40,wherey); write(z.pidpr);
gotoxy(55,wherey); write(z.ozn);
writeln;
end;
close(f);
writeln;
reset(f);
gotoxy(3,wherey);writeln('“Є ¦ЁвҐ ®¬Ґа г¤ «пҐ¬®© § ЇЁбЁ:');
gotoxy(3,wherey); readln(n);
gotoxy(3,wherey);
if n>filesize(f) then write('’ Є®© § ЇЁбЁ Ќ…’!')
else
begin
assign(f1,'f1.dat');
reset(f); rewrite(f1);
for i:=1 to filesize(f) do
begin
read(f, z);
if filepos(f)<>n then write (f1,z);
end;
close(f1); close(f);
erase(f); rename (f1,'f.dat');
gotoxy(3,wherey); write('‡ ЇЁбм г¤ «Ґ !!!');
end;
readkey;
end;
procedure Redakt;
begin
clrscr;
gotoxy(4,2); write (chr(218),'------------------------------------------------------------------------',chr(191));
gotoxy(4,3);
writeln('|‚Ґ¤®¬®бвм Їа® ва㤮гбва®©бвў® ўлЇгбЄЁЄ®ў Ї® ЇаҐ¤ЇаЁпвЁп¬ |');
gotoxy(4,4); write (chr(192),'------------------------------------------------------------------------',chr(217));
gotoxy(5,4);ramka;
reset(f);
while not (eof(f)) do
for i:=1 to filesize(f) do
begin
read(f, z);
gotoxy(5,wherey); write(i);
gotoxy(8,wherey); write(z.fam);
gotoxy(20,wherey); write(z.nomer_d);
gotoxy(30,wherey); write(z.ser_bal:2:2);
gotoxy(45,wherey); write(z.pidpr);
gotoxy(60,wherey); write(z.ozn);
writeln;
end;
close(f);
reset(f);
gotoxy(7,wherey);writeln('“Є ¦ЁвҐ ®¬Ґа § ЇЁбЁ:');gotoxy(7,wherey); readln(n);
gotoxy(7,wherey);
if n>filesize(f) then write('’ Є®© § ЇЁбЁ Ќ…’!')
else
begin
seek(f,n-1);
gotoxy(7,wherey);writeln('‚ўҐ¤ЁвҐ ¤ лҐ ® ',n,' ‚лЇгбЄЁЄҐ');
gotoxy(7,wherey);write ('‚ўҐ¤ЁвҐ д ¬Ё«Ёо:'); readln (z.fam);
gotoxy(7,wherey);write ('‚ўҐ¦ЁвҐ ®¬Ґа ¤ЁЇ«®¬ :'); readln (z.nomer_d);
gotoxy(7,wherey);write ('‚ўҐ¤ЁвҐ б।Ё© Ў «:'); readln(z.ser_bal);
gotoxy(7,wherey);write ('‚ўҐ¤ЁвҐ ¬Ґбв® а®Ў®вл,Є®в®а®Ґ ЇаҐ¤«®Ј Ґвбп(ЇаҐ¤ЇаЁпвЁҐ):'); readln (z.pidpr);
gotoxy(7,wherey);writeln ('ЏаЁ§ Є ЇаЁпвЁп а Ў®вг ¤ ®¬ ЇаҐ¤ЇаЁпвЁЁ: ');
oznaka;
write (f, z);
gotoxy(7,wherey);write('‡ ЇЁбм Ё§¬ҐҐ !');
end;
readkey;
close(f);
end;
end.
Соседние файлы в папке Курсовая1