Указатели

@Denio · Регистрация: 27.03.2009

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

Написать программу используя указатели на переменные .Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа, включительно до нуля.

@Puporev · 22.10.2009, 15:29

Последовательность здесь, это массив?

@Denio · 22.10.2009, 15:43 **[ТС]**

да можно через массив, я вот ща пробую но у меня не получается(

@Dnnn · 22.10.2009, 16:21

Вы бы выложили хоть то, что написали, что пробуете )

@rangerx · 22.10.2009, 16:45

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
   arr : array[1..10] of integer = (1,5,7,2,6,5,0,4,1,7);
   p : ^integer;
begin
     p := @arr;
     while (p^ <> 0) do
     begin
          WriteLn(p^);
          Inc(p);
     end;
     WriteLn(p^);
     ReadLn;
end.

@Dnnn · 22.10.2009, 16:55

что-то все перепутано. arr - массив, р - указатель на интегер, inc(p) - вообще сомнительно , что указатель так можно изменить...
мож тогда
type TArr = array[1..10] of integer;
var Arr: TArr; p: ^TArr; - а не на интегер ?

и точно через массив? может, линейный список подразумевается, когда в каждом эл-те указатель на следующий ?

@Denio · 22.10.2009, 17:36 **[ТС]**

Попробовал как написал Rangerx не работает, в строке p := @arr; говорит что не тот тип.

@rangerx · 22.10.2009, 17:59

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

что-то все перепутано. arr - массив, р - указатель на интегер, inc(p) - вообще сомнительно , что указатель так можно изменить...

FreePascal

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@Denio 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 23

	Указатели 22.10.2009, 15:02. Показов 1098. Ответов 7 Метки нет (Все метки) Написать программу используя указатели на переменные .Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа, включительно до нуля. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.10.2009, 15:29
	Последовательность здесь, это массив? 0

@Denio 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 23
	22.10.2009, 15:43 [ТС]
	да можно через массив, я вот ща пробую но у меня не получается( 0

@Dnnn 1063 / 130 / 34 Регистрация: 09.10.2009 Сообщений: 271
	22.10.2009, 16:21
	Вы бы выложили хоть то, что написали, что пробуете ) 0

@Dnnn 1063 / 130 / 34 Регистрация: 09.10.2009 Сообщений: 271
	22.10.2009, 16:55
	что-то все перепутано. arr - массив, р - указатель на интегер, inc(p) - вообще сомнительно , что указатель так можно изменить... мож тогда type TArr = array[1..10] of integer; var Arr: TArr; p: ^TArr; - а не на интегер ? и точно через массив? может, линейный список подразумевается, когда в каждом эл-те указатель на следующий ? 0

@Denio 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 23
	22.10.2009, 17:36 [ТС]
	Попробовал как написал Rangerx не работает, в строке p := @arr; говорит что не тот тип. 0