Вывести значение N - количество элементов в списке и указатели Р1 и Р2 на первый и последний элементы списка

@Nikr · Регистрация: 03.12.2014

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста написать программу.
Вот текст задачи: Дан указатель Р0 на один из элементов непустого двусвязного списка. Вывести значение N - количество элементов в списке и указатели Р1 и Р2 на первый и последний элементы списка.
Проблема в том что я знаю как задать список, но не получается вывести N, Р1 и Р2

@newyork7776 · 06.12.2014, 17:26

Динамические структуры данных (списки, очереди, стеки, деревья)

@Nikr · 06.12.2014, 17:36 **[ТС]**

newyork7776, да, как раз это я и знаю, эту статью я изучал, в ней нету того с чем у меня проблема.

@Legolas · 06.12.2014, 18:23

да, как раз это я и знаю, эту статью я изучал, в ней нету того с чем у меня проблема.

ну-ну, изучали...
вам нужно:
-пройтись первый циклом от указателя P0 "вправо" - начало цикла P0, конец - nil
-пройтись вторым циклом от указателя P0 "влево" - начало цикла p0, конец - nil
в каждый цикл засунуть переменную, которая будет счетчиком
в качестве примера смотрите процедуры - вывода списка на экран - всё аналогично

Вывести значение N - количество элементов в списке и указатели Р1 и Р2 на первый и последний элементы списка.

бред, нельзя выводить указатели, паскаль напишет что-то вроде "can not write/read variables this type"
наверное имеется ввиду, вывести то, что находится по адресу на который указывают эти указатели

@Nikr · 06.12.2014, 18:47 **[ТС]**

Legolas, спасибо

@Mawrat · 07.12.2014, 14:43

Сообщение от Legolas

нельзя выводить указатели

Значение указателя всё же можно распечатать. По внутреннему представлению он совпадает с типом Longint. В реальном режиме адресации значение указателя состоит из двух частей - номера сегмента и значения смещения в пределах сегмента. Распечатать можно так:

Pascal
1
2
3
4
5
6
7
8
9
10
var
  P : ^Integer;
begin
  New(P);
  P^ := 10;
  Writeln('P^ = ', P^);
  Writeln('P = ', Longint(P), ', Сегмент = ', Seg(P), ', Смещение = ', Ofs(P));
  Dispose(P);
  Readln;
end.

Добавлено через 3 минуты
Этот код для Borland/Turbo Pascal.

Добавлено через 9 минут
В Delphi, FreePascal, PascalABC, Pascal.NET работа идёт в защищённом режиме. Поэтому там значение указателя - это целое число (Longint), представляющее абсолютный адрес ячейки в пределах блока памяти, выделенного программе операционной системой.

@Legolas · 07.12.2014, 14:47

Значение указателя всё же можно распечатать.

Значение да, никто не спорит, просто у автора формулировка задания немного хромает

В реальном режиме адресации значение указателя состоит из двух частей

Про сегменты и смещения, функция seg и ofs - знаю, но вам +

По внутреннему представлению он совпадает с типом Longint

что вы имеете в виду? то что и указатель и longint по 4 байта?

@Mawrat · 07.12.2014, 14:48

Сообщение от Legolas

Значение да, никто не спорит, просто у автора формулировка задания немного хромает

Здесь, в самом деле, иногда встречаются задания, где просят распечатать именно сам указатель.

Сообщение от Legolas

что вы имеете в виду? то что и указатель и longint по 4 байта?

Да, верно - 4 байта в обоих случаях.

@Cyborg Drone · 07.12.2014, 22:19

Сообщение от Mawrat

Да, верно - 4 байта в обоих случаях.

Не вполне верно. Зависит от типа процессора. Для старинного i8086 - 2 байта в обоих случаях. И, да, знание базового адреса и смещения ничего не даёт: нужно ещё учитывать гранулярность. По всей видимости, ТС не вполне верно понял задание.

@Mawrat · 08.12.2014, 01:04

Cyborg Drone, что-то ты не в ту степь.

Гранулярность здесь не причём. Речь же идёт о реальном режиме работы, а не о защищённом. И Borland/Turbo Pascal - это компилятор для систем, совместимых с 16 битной архитектурой x86. Поэтому указатель там во внутреннем представлении имеет 4 байта.

Сообщение от Cyborg Drone

Для старинного i8086 - 2 байта в обоих случаях.

Видимо, имелся в виду i8080/i8085 - он 8 битный. И на нём Borland Pascal работать не будет. А i8086 - это уже 16 битный процессор, первый из архитектуры x86.

@Cyborg Drone · 08.12.2014, 01:49

Сообщение от Mawrat

Видимо, имелся в виду i8080/i8085

Нет. У этих процессоров нет сегментной адресации памяти. Их система команд несовместима с i8086, так что какой уж там TP/BP. И i8080, и i8086 я знаю изрядно, учил их лет 30 назад.

Просто я невнимательно прочитал предыдущие сообщения и полагал, что имеется ввиду, что под базовый адрес и смещение отводится по 4 байта. Естественно, это не так, указатель состоит для данного случая из двух слов по два байта, то есть, всего 4 байта. Да, и гранулярность тут и правда ни при чём.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Nikr 0 / 0 / 0 Регистрация: 03.12.2014 Сообщений: 3

	Вывести значение N - количество элементов в списке и указатели Р1 и Р2 на первый и последний элементы списка 06.12.2014, 17:12. Показов 1540. Ответов 10 Метки нет (Все метки) Помогите пожалуйста написать программу. Вот текст задачи: Дан указатель Р0 на один из элементов непустого двусвязного списка. Вывести значение N - количество элементов в списке и указатели Р1 и Р2 на первый и последний элементы списка. Проблема в том что я знаю как задать список, но не получается вывести N, Р1 и Р2 0

@newyork7776 351 / 344 / 279 Регистрация: 21.05.2013 Сообщений: 1,312
	06.12.2014, 17:26
	Динамические структуры данных (списки, очереди, стеки, деревья) 0

@Nikr 0 / 0 / 0 Регистрация: 03.12.2014 Сообщений: 3
	06.12.2014, 17:36 [ТС]
	newyork7776, да, как раз это я и знаю, эту статью я изучал, в ней нету того с чем у меня проблема. 0

@Nikr 0 / 0 / 0 Регистрация: 03.12.2014 Сообщений: 3
	06.12.2014, 18:47 [ТС]
	Legolas, спасибо 0