Указатели как должно быть

@trim74 · Регистрация: 11.06.2010

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

Суть в том что вводится массив или 2. и определить что выведется

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Type arr=array[1..4] of real;
pa=^arr;
var p,g,s:pa;
i,j:integer;
Begin
new(p);
new(g);
For i:=1 to 4 do
read(p[i]);    Error 121: Invalid qualifier
For i:=1 downto 1 do
read(g[i]);
For i:=1 to 2 do
Begin
For j:=1 to 4 do
writeln(p^[j]/g^[j]);
writeln;
S:=p;
p:=g;
S:=s;
end;
end.

@Puporev · 03.12.2010, 23:02

Pascal
1
2
3
4
For i:=1 to 4 do
read(p^[i]);    Error 121: Invalid qualifier
For i:=1 downto 1 do
read(g^[i]);

@trim74 · 03.12.2010, 23:13 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Type arr=array[1..4] of real;
pa=^arr;
var p,g,s:pa;
i,j:integer;
Begin
new(p);
new(g);
For i:=1 to 4 do
read(p^[i]);    
For i:=1 downto 1 do
read(g^[i]);
For i:=1 to 2 do
Begin
For j:=1 to 4 do
Error 200: Division by zero. Ну не понимаю откуда деление на ноль [Ввожу 1 2 3 4 5 ]
writeln(p^[j]/g^[j]);
writeln;
S:=p;
p:=g;
S:=s;
end;
end.

Блин я тупорез..

@trim74 · 04.12.2010, 23:52 **[ТС]**

Подошел сегодня к преподу.
Спросил по поводу деления на ноль (см. выше)
Он сказал что ошибка детская.

Но я не вижу где?

@STGE · 05.12.2010, 02:44

trim74, у вас цикл, в котором мы вводим значения элементов 2-ого массива

Pascal
1
2
3
...
For i:=1 downto 1 do read(g^[i]);
...

не совпадает с циклом, в котором мы их используем

Pascal
1
2
3
...
For j:=1 to 4 do writeln(p^[j]/g^[j]);
...

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

@trim74 · 05.12.2010, 15:44 **[ТС]**

Исправил..

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Type arr=array[1..4] of real;
pa=^arr;
var p,g,s:pa;
i,j:integer;
Begin
new(p);
new(g);
For i:=1 to 4 do
read(p^[i]);    
For i:=4 downto 1 do
read(g^[i]);
For i:=1 to 2 do
Begin
For j:=1 to 4 do
writeln(p^[j]/g^[j]:6:2);
writeln;
S:=p;
p:=g;
S:=s;
end;
end.

Ответ:
Ввожу [1 2 3 4 5 6 8 8]

0.13
0.29
0.50
0.80

1.00
1.00
1.00
1.00

Так и должно быть*?

@STGE · 05.12.2010, 16:09

trim74, конкретно напишите условие задачи и вам представят наиболее рациональное решение.

@trim74 · 05.12.2010, 16:13 **[ТС]**

STGE, Там как такового условия то и нет.
Дан код (возможно в нем ошибки) во входном файле расположены действительные числа 1 2 3 4 5 6 8 8] которые я и ввожу. Определить что будет напечатано.

@Настенушка · 05.12.2010, 17:13

Смотри.
Может там g:=s а то чушь какая-то.
Тогда

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@trim74 0 / 0 / 1 Регистрация: 11.06.2010 Сообщений: 64
	04.12.2010, 23:52 [ТС]
	Подошел сегодня к преподу. Спросил по поводу деления на ноль (см. выше) Он сказал что ошибка детская. Но я не вижу где? 0

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	05.12.2010, 16:09
	trim74, конкретно напишите условие задачи и вам представят наиболее рациональное решение. 0

@trim74 0 / 0 / 1 Регистрация: 11.06.2010 Сообщений: 64
	05.12.2010, 16:13 [ТС]
	STGE, Там как такового условия то и нет. Дан код (возможно в нем ошибки) во входном файле расположены действительные числа 1 2 3 4 5 6 8 8] которые я и ввожу. Определить что будет напечатано. 0