1 Востаннє редагувалося Torbins (26.04.2016 12:43:44)

Тема: Робота з масивом дійсних чисел

Дано одновимірний масив дійсних чисел:
X={0.01; -27.3; 0; 125.27; -371.45; 0; 12; -5; -172.3; 0.05; -17.1; 49.5; -0.01}

Обчислити добуток елементів, котрі не дорівнюють 0.

var
A:array[1..14] of real=(0.01,-27.3,0,125.27,-371.45,0,12,-5,-172,3,0.05,-17.1,49.5,-0.01);

i:real;
begin
write('x= ');
 for i:=1 to  14 do
 read(A[i]);
 if (A[i] * i>0) then begin 
 arr[i]:=arri]*i;
 A[i]:=A[i*i];
end;
 
end.

помилка очікувався порядковий тип

2 Востаннє редагувалося ADR (26.04.2016 03:01:04)

Re: Робота з масивом дійсних чисел

Молодець. Візьми собі печеньку.

Додано: оу ви написали щось про помилку.

3

Re: Робота з масивом дійсних чисел

...
 arr[i]:=arri]*i;
...

можливо за 10 рядка де відсутня квадратна дужка "["

Подякували: leofun011

4

Re: Робота з масивом дійсних чисел

ні в 7 рядку помилка

5

Re: Робота з масивом дійсних чисел

Помилки очевидні і там і там, але краще я почекаю, доки ви видасьте всю інформацію, що у вас є. А то вибивати по рядку - то нецікаво: ви не партизан, а ми не гестапо.
Я вам так скажу: ви робите ЗОВСІМ не те, що в умові. Спробуйте розбити умову на окремі частини і розставити їх вздовж свого коду коментарями - і це стане очевидним.

Подякували: leofun01, letitbe2

6

Re: Робота з масивом дійсних чисел

Цікаво, в рядку №2 ти ініціалізував масив, а навіщо друга ініціалізація цього масиву у №8 рядку?

Подякували: letitbe1

7

Re: Робота з масивом дійсних чисел

ТС це завдання шкільні??

8

Re: Робота з масивом дійсних чисел

помилка очікувався порядковий тип

в 7 рядку помилка

Йдемо до 7-го рядка й бачимо:

for i:=1 to  14 do

Тобто, for потребує, щоб змінна в ньому була якогось із порядкових типів (integer, char, boolean, перелічувані типи і т.п.), тоді як вище було оголошено:

i:real;

real до порядкових типів не належить, тому вилітає ця помилка. Щоб змінну можна було використовувати як лічильник циклу чи індекс масиву, вона має бути integer (чи іншого порядкового типу).

Подякували: Torbins, letitbe, leofun013

9

Re: Робота з масивом дійсних чисел

Як на мене, на цьому помилки не закінчилися:  де виводиться результат? де присвоюється значення результату?

10

Re: Робота з масивом дійсних чисел

 var
 A:array[1..14] of real=(0.01,-27.3,0,125.27,-371.45,0,12,-5,-172,3,0.05,-17.1,49.5,-0.01);
  x:real;
 i:integer;
 begin
 write('x= ');
 x:=1;
 for i:=1 to 14 do
 if (A[i] <>0) then 
 x:=x*A[i];
 

Здається, так

11

Re: Робота з масивом дійсних чисел

І в кінці write(x:3:5);

12

Re: Робота з масивом дійсних чисел

Перепрошую, write(x:5:3);