![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() ![]() |
![]() |
7777 |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: ![]() ![]() ![]() |
Помогите с написанием программы
Имеется список, элементами которого являются вещественные числа. Создать консольное приложение, описывающее подпрограмму, которая определяет является ли список пустым(все ссылки пустые). Сам список я задал, не получается сама функция работы с пустым списком. 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 |
![]() ![]() |
![]() |
Текстовая версия | 29.07.2025 22:13 |