|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.05.2008, 20:36 | #1 |
Пользователь
Регистрация: 31.05.2008
Сообщений: 25
|
Помогите исправить косяк в задаче на динамические переменные списки
Списки
Составить программу, которая в списке L из каждой группы подряд идущих одинаковых элементов оставляет только один. type sp=^zap; zap=record inf:integer; next:sp end; var nach,p2,p:sp; a:integer; begin new(p); nach:=p; writeln('Введи числа до 0'); readln(nach^.inf); repeat p2:=p; new(p); p2^.next:=p; readln(a); if a<>0 then p^.inf:=a else p2^.next:=nil; p^.next:=nil; until a=0; p:=nach; while p<>nil do if p^.inf = p^.next^.inf then p^.next:=p^.next^.next else p:=p^.next; p:=nach; while p<>nil do begin write(p^.inf,' '); p:=p^.next; end; writeln; readln; end. |
31.05.2008, 21:19 | #2 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
У тебя вот в этой части ошибка
Код:
Код:
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
31.05.2008, 21:49 | #3 |
Пользователь
Регистрация: 31.05.2008
Сообщений: 25
|
Спасибо! Я просто уже запарилась. Цитата миленькая.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите исправить ошибку в задаче | Vladislav_87 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 04.07.2008 12:27 |
сохранение структуры (динамические списки очередей) в файле | AlenaZ | Помощь студентам | 2 | 09.06.2008 20:14 |
Помогите дописать и исправить ошибку в задаче | Vladislav_87 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 30.05.2008 00:14 |
Помогите исправить ошибку в задаче | VANOLORD | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 19.05.2008 22:16 |
Динамические переменные, делфи, в чем ошибка | Agent[PNZ] | Помощь студентам | 17 | 05.05.2008 21:43 |