| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
динамические структуры
vinpol © (2008-12-23 03:19:00)помогите пожалуйста! очень прошу! на вас последняя надежда. нужно составить вот такую прогу: дан список а, который состоит из записей: первое поле - вещественное число, второе - адрес след. элемента. нужно составить прогу для вставки нового элемента Е1 перед последним вхождением элемента Е, если элемент есть в списке А.
program А;
{$APPTYPE CONSOLE}
uses
SysUtils;
type spB=^elem;
elem=record
info:string;
next:spB;
end;
var P,Pk:integer;
begin
new (P);
P^.info:=9;
P^.Link:=Pk.^Link;
Pk.^Link:=P;
{ TODO -oUser -cConsole Main : Insert code here }
end.
Сергей М. (2008-12-23 08:12:00) [1]http://pascal.helpov.net/index/dynamic_lists_pascal_programming
MBo (2008-12-23 07:51:00) [2]info:string;
как-то не согласуется с
P^.info:=9;
По делу - что не получается? Нужно обдумать алгоритм, саму вставку сначала нарисовать на бумаге, прикинуть, как будут изменяться связи.
| |
