IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Пустой список
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация: -  0  +


Помогите с написанием программы
Имеется список, элементами которого являются вещественные числа. Создать консольное приложение, описывающее подпрограмму, которая определяет является ли список пустым(все ссылки пустые).
Сам список я задал, не получается сама функция работы с пустым списком.
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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 26.11.2020 11:23
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name