Задача на тему СПИСКи Опции

[punkska]

вот наступила оень пора закрывать сессию!=)



вот смотрю я на свою прогу и не могу понять зачем я в ней счётчик сделал?
без него вроде не работает .. а что он делает я не поёму (забыл за лето)
может опытный глаз профи увидит недочёты

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.

[volvo]

Уже лучше, чем было, но все равно есть еще много над чем работать. Например, возьмем структуру Obj... Ты прямо в этой структуре хранишь указатель на следующий элемент (next), так? А зачем? Если ты запишешь эту структуру в файл, а потом прочитаешь, то прочитаешь ты элементы в другие адреса памяти, т.е. для сохранения работоспособности придется в поле next заново заносить правильную информацию, т.е. производятся лишние действия. Кроме того, размер файла тоже увеличивается (всего на 2 байта для каждого элемента списка, но все-таки, этого тоже можно избежать)...

Далее... При добавлении всех возможностей программы ты обязательно столкнешься с тем, что вот этот кусок будет дублироваться почти в каждой процедуре:

  P:=Beg;
  ...
  repeat
    { Произвести какое-то действие с каждым элементом списка }
    p:=p^.next;
  until p = nil;

Этого можно избежать (посмотри, как я это сделал). Кстати, с таким кодом ты элементарно можешь получить Run-Time Error: например, если в момент вызова View список еще не сформирован, и следовательно Beg = nil, что приведет к попытке перехода по нулевому указателю, а это Ошибка !!! Вот так будет гораздо правильнее:

P:=Beg;
  ...
  While p <> nil Do Begin
    { Произвести какое-то действие с каждым элементом списка }
    p:=p^.next;
  End;

Теперь если Beg = nil, то ты вообще не войдешь в цикл, как и должно быть...