VPF::[delphi] поиск в односвязном списке

karpyssa

Дата 20.12.2009, 16:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.12.2009

Репутация: нет
Всего: нет

Помогите пожалуйста справиться с задачей.
с клавиатуры построчно вводят числа больше 0 , но меньше 100
ввод оканчивается 0. вывести  все числа меньше 50 в порядке появления.
описание списка
type
   Tspis=^Telem;
   Telem = record
             chislo: real;
             next: Tspis;
           end;
var
   head, spis, elem: Tspis;
   c: real;

t_gran

Дата 21.12.2009, 05:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

Репутация: 33
Всего: 37

Код


type
   TList= ^TNode;
   TNode= record
      digit: byte;
      next: TList;
   end;

{------------------------------------------------}
procedure AddInList (var theList: TList; theDigit: byte);
var
   node: TList;
begin
   new(node);
   node^.digit:= theDigit;
   node^.next:= theList;
   theList:= node;
end;
{------------------------------------------------}
procedure PrintList (theList: TList; theLimit: byte);
begin
   while (theList <> nil) do
   begin
      if (theList^.digit < theLimit) then
         write(theList^.digit, ' ');
      theList:= theList^.next;
   end;
end;
{------------------------------------------------}
var
   list: TList;
   digit: byte;
begin
   list:= nil;
   repeat
      readln(digit);
      if (0 < digit) and (digit < 100) then
         AddInList(list, digit);
   until (digit = 0);
   PrintList(list, 50);
end.

--------------------

Я знаю, что ничего не знаю© Сократ
user posted image

karpyssa

Дата 21.12.2009, 11:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.12.2009

Репутация: нет
Всего: нет

Спасибо огромное, работает просто супер smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »