|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.04.2011, 17:37 | #1 |
Новичок
Джуниор
Регистрация: 20.04.2011
Сообщений: 1
|
динамическая структура
Реализовать динамическую структуру: список. Обеспечить:
− создание списка; − добавление элементов в список; − просмотр списка; − удаление элементов из списка; − удаление всего списка. Выбор операций обеспечить с помощью меню. вот то что я написал примерно помогите дописать program pr; var x1,x2: nil; begin x1:=nil; x2:=nil; writeln ('Введите элементы очереди. Окончание ввода - О'); read(digit); while digit<>0 do begin writeoch(x1,x2,digit); read (digit); end; end. Procedure writeOch (var x1, x2:Exo; c:integer); var u:exo; begin new(u); u^.data:=c; x^.next:=nil; if x1=nil then {если очередь пуста} x1:=u else x2^.next:=u; {заносим элемент в конец списка} x2:=u; end; Procedure ReadOche (var x1, x2:Exo; c:integer); var u:exo; Function Nul (x1: exo): Boolean; Begin Nul:=(x1=nil); End; begin if nul(x1) then writeln ('Очередь пуста') else begin c:=x1^.data; u:=x1; x1:=x1^.next; dispose(u); end; writeOch (x1,x2 c:integer); ReadOche (x1,x2 c:integer); writeln(''); end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Динамическая структура(список) в Delphi | Karina89 | Общие вопросы Delphi | 5 | 02.04.2011 22:35 |
Динамическая структура данных | tanjusha | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 01.07.2010 18:46 |
Динамическая структура. | triasoft | Фриланс | 5 | 02.06.2010 01:47 |
Динамическая структура | Nitriyc | Помощь студентам | 0 | 18.12.2009 17:51 |
динамическая структура | o4arova6ka90 | Помощь студентам | 0 | 17.10.2009 14:05 |