rain87 Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Код: uses list; var l,t,t2:plist;     a:tdata; begin      repeat      write('Enter a (0 - end of input): ');      readln(a);      t2:=l;      t:=l;      while(t<>nil)and(a>=t^.d)do      begin           t2:=t;           t:=t^.next;      end;      if(t2=l)then      begin           insert(l,l^.d);           l^.d:=a;      end      else insert(t2,a);      until a=0;      writeln('Got list:');      t:=l;      while(t<>nil)do      begin           writeln(t^.d);           t:=t^.next;      end;      readln; end. Всего записей: 1744 | Зарегистр. 21-06-2006 | Отправлено: 20:49 05-11-2006

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование