Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Робота з масивом дійсних чисел
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися
Дано одновимірний масив дійсних чисел:
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 ти ініціалізував масив, а навіщо друга ініціалізація цього масиву у №8 рядку?
помилка очікувався порядковий тип
в 7 рядку помилка
Йдемо до 7-го рядка й бачимо:
for i:=1 to 14 do
Тобто, for потребує, щоб змінна в ньому була якогось із порядкових типів (integer, char, boolean, перелічувані типи і т.п.), тоді як вище було оголошено:
i:real;
real до порядкових типів не належить, тому вилітає ця помилка. Щоб змінну можна було використовувати як лічильник циклу чи індекс масиву, вона має бути integer (чи іншого порядкового типу).
Як на мене, на цьому помилки не закінчилися: де виводиться результат? де присвоюється значення результату?
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];
Здається, так
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися