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

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

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

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

Pascal

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

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

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

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 а то чушь какая-то.
Тогда

Pascal

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

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

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

	05.12.2010, 17:13