рекурсивная процедура в Паскаль

[mishammm]

есть односвязный список. (весь код кидать не буду) . Нужно было написать рекурсивную процедуру которая "смотрит" сколько раз входит данный элемент в список , тоесть количество одинаковых значений.
Вот небольшой код:

type
 PNode = ^TNode;
 TNode = record
   Next: PNode;
   Value: Integer;
 end;
var
 Root: PNode;
var
 cnt: Integer;
 SearchValue: Integer;
procedure CheckEqual(Node: PNode);
begin
 if (Node = nil) then Exit;
 if (Node.Value = SearchValue) then inc(cnt);
 CheckEqual(Node.Next);
end;
begin
 cnt := 0;
 ReadLn(SearchValue);
 CheckEqual(Root);
 Writeln(cnt);
end.

при вводе чисел постоянно выдает 0. помогите плиз исправить процедуру

[Аватар]

Root инициализирован перед обращением к CheckEqual?

[mishammm]

Сообщение от Аватар

Root инициализирован перед обращением к CheckEqual?

с утра немного туплю, извините это имеете в виду

var
 Root: PNode;

?

[Аватар]

Ну да, в него помещен указатель на первый элемент списка?

[Serge_Bliznykov]

Сообщение от mishammm

с утра немного туплю, извините это имеете в виду

var
 Root: PNode;

?

именно так.
в вашей программе Вы вызываете:

CheckEqual(Root);

если Root, как и должно, показывает на голову (начало == первый элемент) списка, то всё должно отработать.
Если же там мусор или nil - как раз ноль в cnt и вернётся.

[Аватар]

Там если мусор, то прога вообще в ступор может упасть или ошибка по памяти

[reflexx]

del del del

[reflexx]

Работает ваш код. Вот быстрый пример:

type
 PNode = ^TNode;
 TNode = record
   Next: PNode;
   Value: Integer;
 end;
 
var
 Root: PNode;
 RootNext: PNode;
var
 cnt: Integer;
 SearchValue: Integer;
 
procedure CheckEqual(Node: PNode);
begin
 if (Node = nil) then Exit;
 if (Node^.Value = SearchValue) then inc(cnt);
 CheckEqual(Node^.Next);
end;

begin
 cnt := 0;
 //
 New(Root);
 Root^.Value:=5;
 New(RootNext);
 RootNext^.Value:=5;
 Root^.Next:=RootNext;
 //
 ReadLn(SearchValue);
 CheckEqual(Root);
 Writeln(cnt);
 //
 Dispose(RootNext);
 Dispose(Root);
end.

Вывод:
5
2

Выделенные жирным строки - то, что я дописал для проверки.

[mishammm]

Выделенные жирным строки - то, что я дописал для проверки.

ваш пример то работает, но если вводить другие значения кроме 5 которые вы указали в коде то всеравно будет ноль выводиться. получаеться как бы мусор кидает в переменную

[reflexx]

А что должно выводится то? Если нет таких значений в списке, то будет именно ноль.