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

[7777]

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

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.

Сообщение отредактировано: volvo - 28.11.2009 11:25