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

> ВНИМАНИЕ!

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

 
 Ответить  Открыть новую тему 
> Пустой список
7777
сообщение 2.06.2008 14:14
Сообщение #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 - 28.11.2009 11:25
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 

- Текстовая версия 29.07.2025 22:13
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"