Проверить, работает ли очистка списка

@Kumana · Регистрация: 06.09.2011

Author24 — интернет-сервис помощи студентам

Была задача на работу с динамической структурой данных, точнее списком. Я её написал, но сомневаюсь в одном месте. По условию после работы со списком программа должна его полностью удалить. Я её как бы написал, но не знаю работает ли она.
Вот программа:

Pascal

program Links;
type
Link = ^Number;
Number = record
ID: integer; 
Cislo : integer; 
NextRec: Link; 
end;
var
i, c, j: integer;
Last, First, Curr, spisok, tmp : Link; 
 
 
procedure ShowList;
begin
      Writeln('Список элементов:');
      Curr := First; 
      while Curr <> Last do 
          begin
             Writeln(Curr^.Cislo);
             Curr := Curr^.NextRec;
          end;
end;
begin
      Writeln('Укажите длину списка: ');
      Readln(c);
      Last := New(Link); 
      First := Last; 
      Writeln('Введите целые числа:');
      for i := 1 to c do
          begin
          Last^.ID := i;
          Readln(Last^.Cislo);
          Last^.NextRec := New(Link); 
          Last := Last^.NextRec; 
end;
ShowList; 
Writeln('Укажите индекс элемента для удаления: ');
readln(j);
Curr := First;
for i := 1 to j - 2 do Curr := Curr^.NextRec;
if (j > c) or (j<=0) then writeln('Нету такого индекса.')
    else
    if j = 1
         then First := First^.NextRec
              else if j = c 
                  then begin
                      Curr^.NextRec := Nil; 
                      Last := Curr^.NextRec; 
                      end else 
                          Curr^.NextRec := Curr^.NextRec^.NextRec;
                          ShowList;
                          Dispose(First);
begin
  while spisok<>nil do
  begin
    tmp:=spisok;
    spisok:=spisok^.NextRec;
    FreeMem(tmp,SizeOf(Number));
  end;
end;
Writeln('Список удалён');
readln;
end.

Волнующее меня место:

Pascal

begin
  while spisok<>nil do
  begin
    tmp:=spisok;
    spisok:=spisok^.NextRec;
    FreeMem(tmp,SizeOf(Number));
  end;
end;
Writeln('Список удалён');

Поможете пожалуйста посмотреть работает ли очищение списка, если нет, то помогите поправить или предложите свой способ.

@BumerangSP · 12.03.2012, 15:29

Ох, что-то как-то тут все не по-стандартному

Немного по исправлял, т.к. abcpascal успешно отказался компилировать.
В частности, эта строчка:

Pascal

1	Last := New(Link);

Тут выделение памяти под что происходит? Под все элементы этого типа?

Pascal

program Links;
uses crt;
type
Link = ^Number;
Number = record
 ID: integer;
 Cislo : integer;
 NextRec: Link;
end;
var i, c, j: integer;
    Last, First, Curr, spisok, tmp : Link;
 
procedure add(var first: link; dob:integer);
var kur: link;
begin
 new(kur);
 kur^.nextrec:=first;
 kur^.cislo:=dob;
 first:=kur;
end;
 
procedure del(var first:link);
var kur: link;
begin
 kur:=first;
 first:=first^.nextrec;
 dispose(kur);
end;
 
procedure ShowList(first: link);
begin
 Writeln('Список элементов:');
 if first=nil then writeln('V spiske net elementov')
 else
  begin
   while first<>nil do
    begin
     writeln(first^.cislo);
     first:=first^.nextrec;
    end;
 end;
end;
 
begin
      Writeln('Укажите длину списка: ');
      Readln(c);
      first:=nil;
      Writeln('Введите целые числа:');
      for i := 1 to c do
           add(first,i);
ShowList(first);
Writeln('Укажите индекс элемента для удаления: ');
readln(j);
Curr := First;
for i := 1 to j - 2 do Curr := Curr^.NextRec;
if (j > c) or (j<=0) then writeln('Нету такого индекса.')
    else
    if j = 1
         then First := First^.NextRec
              else if j = c
                  then begin
                      Curr^.NextRec := Nil;
                      Last := Curr^.NextRec;
                      end else
                          Curr^.NextRec := Curr^.NextRec^.NextRec;
                          ShowList(first);
 
 if first=nil then
  writeln ('V spiske net elementov')
  else
   while first<>nil do
    del(first);
Writeln('Список удалён');
readln;
showlist(first);
readln;
end.

Это на обоих паскалях компилируется. Я не стал вручную вводить элементы, автозаполнение идет. И еще добавил в конце тот же showlist для проверки. А также пару своих процедур.

@Kumana · 12.03.2012, 21:26 **[ТС]**

BumerangSP, спасибо. Вот только что означают?

Pascal

1 2	kur: link dob:integer

Насчёт оформления, то мне оно тоже казалось немного странным, просто я делал по примерам из книги.

@BumerangSP · 12.03.2012, 22:49

1)kur - это вспомогательный указатель, все равно что Curr у Вас.
2)

Pascal

1 2	for i := 1 to c do add(first,i);

dob (по-русски "добавить"

) в процедуре - это все равно что параметр i в вызове процедуры. Т.е. он принимает значения i и подставляет в подпрограмму.

@Kumana · 13.03.2012, 00:03 **[ТС]**

А как убрать автозаполнение? Это?

Pascal

1	add(first,i);

@BumerangSP · 13.03.2012, 00:40

К примеру, так:

Pascal

for i := 1 to c do
 begin           
  read(a);
  add(first,a);
 end;

где a - какая-нибудь переменная.

	13.03.2012, 00:40