Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.06.2009, 21:07   #1
Chief
Пользователь
 
Регистрация: 29.12.2008
Сообщений: 29
По умолчанию Списки

Ввести номер и значение элемента вставляемого в список.Измененный список вывести на экран.
Код есть,но не полностью,нужен кусок проги,который добавляет элементы в однонапраленный список.
Chief вне форума Ответить с цитированием
Старый 02.06.2009, 23:32   #2
diliana
Форумчанин
 
Аватар для diliana
 
Регистрация: 24.05.2009
Сообщений: 119
По умолчанию

вот тебе кусок проги - добавление элемента в список

Код:
 new (t);
 t^.next:=nil;
 if Head = nil then Head:=t
   else Curr^.next:=t;
 Curr:=t;
diliana вне форума Ответить с цитированием
Старый 03.06.2009, 09:09   #3
Chief
Пользователь
 
Регистрация: 29.12.2008
Сообщений: 29
По умолчанию

Цитата:
Сообщение от diliana Посмотреть сообщение
вот тебе кусок проги - добавление элемента в список

Код:
 new (t);
 t^.next:=nil;
 if Head = nil then Head:=t
   else Curr^.next:=t;
 Curr:=t;
спасибо!!!а что такое Head?
Chief вне форума Ответить с цитированием
Старый 03.06.2009, 10:07   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

это переменная, в ней находится ссылка на первый элемент списка.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 03.06.2009, 18:29   #5
Chief
Пользователь
 
Регистрация: 29.12.2008
Сообщений: 29
По умолчанию

спасибо,работает)
Chief вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Списки? Chainic Microsoft Office Excel 13 06.05.2009 22:53
На списки... Neznau Паскаль, Turbo Pascal, PascalABC.NET 1 02.07.2008 19:49
Списки AVer Паскаль, Turbo Pascal, PascalABC.NET 6 06.12.2006 23:05