Правила форума
Прочтите прежде чем задавать вопрос!
вот смотрю я на свою прогу и не могу понять зачем я в ней счётчик сделал?
без него вроде не работает .. а что он делает я не поёму (забыл за лето)
может опытный глаз профи увидит недочёты
program laba_4_a;
uses crt;
type
link=^komanda;
komanda=record
name:string[20];
shayb:integer;
peredach:integer;
stime:integer;
nkom:string[10];
score:integer;
next:link;
end;
fkom=file of komanda;
var
f:fkom;
xxx,k,z,n,i:integer;
s,newrec:link;
p:pointer;
beg:link;
min_score:integer;
begin
xxx:=0;
repeat;clrscr;
writeln(' ....laba....');
gotoxy (1,10);
writeln ('1. VvoD DaHHbIX..........');
writeln ('2. View DaHHbIX..........');
writeln ('3. SaVe DaHHbIE..........');
writeln ('4. Load DaHHbIE..........');
writeln ('5. Delete................');
writeln ('9. BEST PLAYERS..........');
writeln (' ');
writeln ('0. E-X-I-T');
writeln ('Press 1-4:');
readln (z);
case z of
1:
begin
xxx:=xxx+1;
clrscr;
writeln ('BBeDuTe Kol-vo igrokov:');
readln (n);
mark(p);
beg:=nil;
for i:=1 to n do begin
new(s);
write ('N',i);
write (' Name of player:'); readln (s^.name);
write (' Kol-vo shayb:'); readln (s^.shayb);
write (' Kol-vo peregach:'); readln (s^.peredach);
write (' Shtraf.time:'); readln (s^.stime);
s^.score:=s^.shayb+s^.peredach;
s^.next:=beg;
beg:=s;
end;
end;
2:
begin
clrscr;
s:=beg;
writeln('Name of player Kol-vo shayb Kol-vo peredach Shraf.Time');
repeat
writeln(s^.name,' ',s^.shayb,' ',s^.peredach,' ',s^.stime);
s:=s^.next;
until s=nil;
readln;
end;
3:
begin
assign (f,'file.dat');
rewrite(f);
s:=beg;
repeat
write (f,s^);
s:=s^.next
until s=nil;
release(p);
end;
4:
begin
if xxx>0 then release(p);
assign (f,'file.dat');
reset(f);
mark(p);
s:=beg;
for i:=1 to filesize (f) do
begin new (s);
read(f,s^);
s^.next:=beg;
beg:=s;
end;
close (f);
{s:=beg;}
end;
9:
begin
clrscr;
writeln ('Enter min. Score');
readln (min_score);
s:=beg;
writeln('Name of player Kol-vo shayb Kol-vo peredach Shraf.Time');
repeat
if (min_score<=s^.score) then
writeln(s^.name,' ',s^.shayb,' ',s^.peredach,' ',s^.stime);
s:=s^.next;
until s=nil;
readln;
end;
5:
begin
writeln ('Enter Number...');
readln (n);
if n=1 then
begin newrec:=beg;
beg:=beg^.next;
end
else begin
s:=beg;
for i:=1 to n-2 do s:=s^.next;
newrec:=s^.next;
s^.next:=newrec^.next;
end;
dispose(newrec);
end;
end;
until z=0;
end.
