Пустой список

[Executr]

Помогите с написанием программы
Имеется список, элементами которого являются вещественные числа. Создать консольное приложение, описывающее подпрограмму, которая определяет является ли список пустым(все ссылки пустые).
Сам список я задал, не получается сама функция работы с пустым списком.

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
pitem=^item;
item=record
data: real;
prev: pitem;
end;

var
top, p: pitem;
k, buf, res: real;
n,i: byte;
min:integer;

procedure add(x:real);
begin
new(p);
p^.data:=x;
p^.prev:=top;
top:=p;
end;

procedure WriteStack;

begin
writeln('soderzimoe steka nachinja s vershini: ');
p:=top;
while p<> nil do
begin
write(p^.data:2:1,' ');
p:=p.prev;
end;
writeln;
end;

function IsNULL(p:pitem):boolean;
begin
{if p <> nil then
Result:=false
else Result:=true; }


end;

begin
randomize;
writeln('VVedite dlinu spiska');
readln(n);
top:=nil;
{ if n <> 0 then
begin}
For i:=1 to n do
begin
k:=random(6)-2;
add(k);
end;
end;
WriteStack;
writeln;
if IsNULL(top) then writeln('is null')
else writeln('not is null');
writeln;
WriteStack;
readln;
end.

[alexBlack]

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

Помогите с написанием программы
Имеется список, элементами которого являются вещественные числа. Создать консольное приложение, описывающее подпрограмму, которая определяет является ли список пустым(все ссылки пустые).
Сам список я задал, не получается сама функция работы с пустым списком.

Какие все ?
Список пуст, если его голова ни на что не указывает.
По-моему у Вас правильно написано:

function IsNULL(p:pitem):boolean;   
begin  
   result := p = nil;
end;

[Executr]

Нужно чтобы было так: Если в списке присутствует хотябы один элемент "0", то выдается соответствующее сообщение.

[alexBlack]

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

Нужно чтобы было так: Если в списке присутствует хотябы один элемент "0", то выдается соответствующее сообщение.

Тогда Вы не о том спрашивали.
Проход по списку и сравнение с нулем:

function IsNULL(p:pitem):boolean;
begin
   result := false;
   while p <> nil do begin
      if abs(p.data) < 1e-7 then begin
         result := true;
         break;
      end;
      p := p^.prev;
   end;
end;

[Executr]

alexBlack

Огромное Спасибо, все правильно выводит.
Не пойму только вот эти строчки, какие их функции?
1e-7

   while p <> nil do begin
      if abs(p.data) < 1e-7 then begin

[alexBlack]

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

Не пойму только вот эти строчки, какие их функции?
1e-7

   while p <> nil do begin
      if abs(p.data) < 1e-7 then begin

while p <> nil do begin
Цикл пока указатель на эл-т <> nil. Там ниже переход на следующий компонент списка p:=p^.prev

if abs(p.data) < 1e-7 then begin
Если абсолютное значение элемента меньше 1 на 10 в -7 степени.
Это сравнение с нулем. То есть попросту - если элемент равен нулю.