Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Пустой список

Автор: 7777 2.06.2008 18:14

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

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.