|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.12.2013, 21:48 | #1 |
Регистрация: 06.12.2013
Сообщений: 3
|
в паскале сделать циклический однонаправленный список(операции добавления,удаления и просмотра списка)
вот нециклический список,как переделать и еще добавить остальные процедуры?
Уже несколько дней не могу сделать правильно( не нравится ему что то((( завтра уже зачет:-( пожалуйста кому не сложно) type spisok=^spisok_type; spisok_type=record; name:string; next:spisok; end; var first:=Nil; comanda:=0; while (comanda <>4) do begin write ('Введите команду(1-добавить,2-удалить,3-вывод на экран,4-выход)') readln (comanda); case comanda of 1: begin if (first=nil) then begin new(first); write ('Введите имя'); readln (first^.name ); first^.next=nil; end. Else begin adr:=first; while(adr^.next<>nil); adr:=adr^.next; new (adr^.next); adr:=adr^.next; write ('введите имя'); readln(adr^.name); adr^.next:=nil; end; 3: begin adr:=first; write ('список') while (adr<>nil) do begin write(adr^name) adr=adr^.next; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
составление программ в паскале:циклический алгоритм, массивы и арифметические операции с массивами | Сашаа | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 21.12.2011 21:00 |
составление программ в паскале:циклический алгоритм, массивы и операции с массивами | Сашаа | Помощь студентам | 2 | 21.12.2011 20:21 |
Макрос добавления\удаления людей в табель | madex | Microsoft Office Excel | 5 | 31.03.2011 18:20 |
операции над стеком в С - добавления и удаления следующего элемента стека | Matadora | Помощь студентам | 0 | 04.09.2010 21:16 |
обработчики добавления и удаления в дерево (TreeView) | kayman | Компоненты Delphi | 10 | 08.03.2010 11:17 |