Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Паскаль] Задача на двосвязные списки!!!

Автор: Belfor12 23.2.2012, 21:56

Помогите пожалуйста написать код к даной задаче!! Дан адрес P2 записи типа TNode, содержащей поле Data (целого типа) и поля Prev и Next (типа PNode — указателя на TNode). Эта запись связана полями Prev и Next соответственно с предыдущей и последую- щей записью того же типа. Вывести значения полей Data предыдущей и последующей записи, а также адреса P1 и P3 предыдущей и последующей записи.

Автор: t_gran 24.2.2012, 02:53

Код // ... procedure Print(node: PNode); begin    if (node <> nil) then    begin       writeln('data = ', node^.Data);       writeln('seg  = ', Seg(node^));       writeln('ofs  = ', Ofs(node^));    end; end; // ... begin    // ...    Print(P2^.Prev);    Print(P2^.Next);    // ... end.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)