, .
6.
:
, , , , , , .
, , 7.
4.1
4.1 :
1.
2.
3.
4.
5.
6.
7.
.
3 : ( 4.2). . , Enter. .
4.2
2 : ( 4.3). , . , ( 3, 4.2).(4.4) , , , ( 4.5)
4.3
4.4- .
4.5- .
4 : .
5 : ( 4.6)
4.6- .
6 : . , ( 4.7)
4.7
7 :
.exe 83,8 , UEFA.txt 6,56 . 143.
.
, , , .
1. . . , . . , -, 2004.
2. 7.0 . . , . . , 2005.
|
|
3. . . , 2000.
1
Procedure dobav;
Begin
assign(fbaz,'UEFA.txt');
reset(fbaz);
Seek(Fbaz,filesize(fbaz));
textcolor(15);
Writeln(' ',filesize(fbaz)+1);
write(' - ');
readln(Ff.Nazvanie);
Write(' - ');
readln(Ff.God);
Write(' - ');
readln(Ff.Trener);
Write(' - ');
readln(Ff.Stadion);
Write(' - ');
readln(Ff.Mesto);
Write(' - ');
readln(Ff.UEFA);
Write(' - ');
readln(Ff.Strana);
Write(Fbaz,ff);
Close(Fbaz);
clrscr;
End;
2
Procedure vivod;
var
k: integer;
tab: baz;
begin
k:=0;
assign(fbaz,'UEFA.txt');
reset(fbaz);
clrscr;
writeln('UEFA');
while not eof (fbaz) do
begin
k:=k+1;
read(fbaz,tab);
textcolor(10);
writeln(' ',k);
writeln(' : ',tab.Nazvanie);
writeln(' : ',tab.God);
writeln(' : ',tab.Trener);
writeln(': ',tab.Stadion);
writeln(' : ',tab.Mesto);
writeln(' UEFA: ',tab.UEFA);
writeln(' : ',tab.Strana);
writeln('_______Enter - _______');
readln;
end;
close(fbaz);
end;
3
Procedure Sort;
var st,a,b:baz;
i,j:byte;
begin
assign(fbaz,'UEFA.txt');
reset(fbaz);
for i:=0 to filesize(fbaz)-2 do
for j:=i+1 to filesize(fbaz)-1 do
begin
seek(fbaz,i);
read(fbaz,a);
seek(fbaz,j);
read(fbaz,b);
if a.Nazvanie>b.Nazvanie then
begin
st:=a;
a:=b;
b:=st;
seek(fbaz,i);
write(fbaz,a);
seek(fbaz,j);
write(fbaz,st);
end;
end;
close(fbaz);
end;
4
Procedure Poisk;
var
a:baz;
fir:string;
i:integer;
begin
clrscr;
write(' : ');
readln(fir);
assign(fbaz,'UEFA.txt');
reset(fbaz);
for i:=1 to filesize(fbaz) do
begin
read(fbaz,a);
if pos(upcase(fir),upcase(a.Nazvanie))<>0 then
begin
writeln(' : ',a.Nazvanie);
writeln(' : ',a.God);
writeln(' :',a.trener);
writeln(': ',a.Stadion);
writeln(' : ',a.Mesto);
writeln(' UEFA: ',a.UEFA);
writeln(' : ',a.Strana);
readln;
end
else
write('');
end;
close(fbaz);
end;
5
Procedure ydal;
Begin
clrscr;
assign(f2,'delit.txt');
Reset(Fbaz);
rewrite(f2);
Seek(fbaz, 0);
while not eof(fbaz) do
begin
read(fbaz,ff);
if filepos(fbaz)<>nom+1 then write(f2,ff);
end;
Close(fbaz);
Close(f2);
erase(fbaz);
rename(f2,'UEFA.txt');
End;
6
Procedure korrekt;
Begin
repeat
clrscr;
reset(fbaz);
seek(fbaz,nom);
read(fbaz,ff);
Write(' - ');
writeln(Ff.Nazvanie);
Write(' - ');
Writeln(Ff.God);
Write(' - ');
Writeln(Ff.Trener);
Write(' - ');
|
|
Writeln(Ff.Stadion);
Write(' - ');
Writeln(Ff.Mesto);
Write(' - ');
writeln(Ff.UEFA);
Write(' - ');
Writeln(Ff.Strana);
Write('ESC-');
Write(' - ',nom+1);
write(' ?');
h:=readkey;
case h of
'1':begin write('1- - ');
Readln(Ff.Nazvanie);
end;
'2':begin Write('2- - ');
Readln(Ff.God);
end;
'3':begin Write('3- - ');
Readln(Ff.Trener);
end;
'4':begin Write('4- - ');
Readln(Ff.Stadion);
end;
'5':begin Write('5- - ');
Readln(Ff.Mesto);
end;
'6':begin write('6- - ');
Readln(Ff.UEFA);
end;
'7':begin Write('7- - ');
Readln(Ff.Strana);
end;
#27: exit;
end;
clrscr;
seek(fbaz,nom);
write(fbaz,ff);
until h=#27;
close(fbaz);
clrscr;
End;
7
:
Program FUTBOL;
uses crt;
type
el=^baz;
baz=record
Nazvanie:string[30];
God:string[30];
Trener:string[30];
Stadion:string[30];
Mesto:string[30];
UEFA:string[30];
Strana:string[30];
next:el;
end;
var
fbaz,f2:file of baz;
h:char;
nom:integer;
ff:baz;
Procedure dobav;
Begin
assign(fbaz,'UEFA.txt');
reset(fbaz);
Seek(Fbaz,filesize(fbaz));
textcolor(15);
Writeln(' ',filesize(fbaz)+1);
write(' - ');
readln(Ff.Nazvanie);
Write(' - ');
readln(Ff.God);
Write(' - ');
readln(Ff.Trener);
Write(' - ');
readln(Ff.Stadion);
Write(' - ');
readln(Ff.Mesto);
Write(' - ');
readln(Ff.UEFA);
Write(' - ');
readln(Ff.Strana);
Write(Fbaz,ff);
Close(Fbaz);
clrscr;
End;
Procedure korrekt;
Begin
repeat
clrscr;
reset(fbaz);
seek(fbaz,nom);
read(fbaz,ff);
Write(' - ');
writeln(Ff.Nazvanie);
Write(' - ');
Writeln(Ff.God);
Write(' - ');
Writeln(Ff.Trener);
Write(' - ');
Writeln(Ff.Stadion);
Write(' - ');
Writeln(Ff.Mesto);
Write(' - ');
writeln(Ff.UEFA);
Write(' - ');
Writeln(Ff.Strana);
Write('ESC-');
Write(' - ',nom+1);
write(' ?');
h:=readkey;
case h of
'1':begin write('1- - ');
Readln(Ff.Nazvanie);
end;
'2':begin Write('2- - ');
Readln(Ff.God);
end;
'3':begin Write('3- - ');
Readln(Ff.Trener);
end;
'4':begin Write('4- - ');
Readln(Ff.Stadion);
end;
'5':begin Write('5- - ');
Readln(Ff.Mesto);
end;
'6':begin write('6- - ');
Readln(Ff.UEFA);
end;
'7':begin Write('7- - ');
Readln(Ff.Strana);
end;
#27: exit;
end;
clrscr;
seek(fbaz,nom);
write(fbaz,ff);
until h=#27;
close(fbaz);
clrscr;
End;
Procedure vivod;
var
k: integer;
tab: baz;
begin
k:=0;
assign(fbaz,'UEFA.txt');
reset(fbaz);
clrscr;
writeln('UEFA');
while not eof (fbaz) do
begin
k:=k+1;
read(fbaz,tab);
textcolor(10);
writeln(' ',k);
writeln(' : ',tab.Nazvanie);
writeln(' : ',tab.God);
writeln(' : ',tab.Trener);
writeln(': ',tab.Stadion);
writeln(' : ',tab.Mesto);
writeln(' UEFA: ',tab.UEFA);
writeln(' : ',tab.Strana);
writeln('_______Enter - _______');
readln;
end;
close(fbaz);
|
|
end;
Procedure Sort;
var st,a,b:baz;
i,j:byte;
begin
assign(fbaz,'UEFA.txt');
reset(fbaz);
for i:=0 to filesize(fbaz)-2 do
for j:=i+1 to filesize(fbaz)-1 do
begin
seek(fbaz,i);
read(fbaz,a);
seek(fbaz,j);
read(fbaz,b);
if a.Nazvanie>b.Nazvanie then
begin
st:=a;
a:=b;
b:=st;
seek(fbaz,i);
write(fbaz,a);
seek(fbaz,j);
write(fbaz,st);
end;
end;
close(fbaz);
end;
Procedure Poisk;
var
a:baz;
fir:string;
i:integer;
begin
clrscr;
write(' : ');
readln(fir);
assign(fbaz,'UEFA.txt');
reset(fbaz);
for i:=1 to filesize(fbaz) do
begin
read(fbaz,a);
if pos(upcase(fir),upcase(a.Nazvanie))<>0 then
begin
writeln(' : ',a.Nazvanie);
writeln(' : ',a.God);
writeln(' :',a.trener);
writeln(': ',a.Stadion);
writeln(' : ',a.Mesto);
writeln(' UEFA: ',a.UEFA);
writeln(' : ',a.Strana);
readln;
end
else
write('');
end;
close(fbaz);
end;
Procedure ydal;
Begin
clrscr;
assign(f2,'delit.txt');
Reset(Fbaz);
rewrite(f2);
Seek(fbaz, 0);
while not eof(fbaz) do
begin
read(fbaz,ff);
if filepos(fbaz)<>nom+1 then write(f2,ff);
end;
Close(fbaz);
Close(f2);
erase(fbaz);
rename(f2,'UEFA.txt');
End;
begin
assign(fbaz,'UEFA.txt');
reset(fbaz);
repeat
clrscr;
textcolor(15);
writeln(' ');
reset(fbaz);
if IOresult<>0 then rewrite(fbaz);
close(fbaz);
writeln('1. ');
writeln('2. ');
writeln('3. ');
writeln('4. ');
writeln('5. ');
Writeln('6. ');
Writeln('7.');
writeln(' Enter ');
h:=readkey;
case h of
'1': begin dobav;
end;
'2': begin
writeln;
write(' ? - ');
read(nom); nom:=nom-1;
korrekt;
end;
'3':begin vivod;
end;
'4':begin sort;end;
'5': begin
writeln;
write(' ???=');
read(nom); nom:=nom-1;
ydal;
end;
'6':begin poisk;
end;
end;
until h='7';
end.