Запишіть виконання наведеного фрагмента програми для табличної величини, значеннями елементів якої є числа: 0,5; -3; 2; -1,6. sum := 0;
for i := 1 to 4 do sum := sum + a[i] * a[i];
Ответы на вопрос
Ответил uplmtq
19
Ответ:
15.81
Объяснение:
Массив = 0,5; -3; 2; -1,6
sum := 0;
for var i := 1 to 4 do
sum := sum + arr[i] * arr[i];
~~~~~~~~~~
Итерация 1:
sum = 0 || arr[i] = 0.5
sum = 0 + 0.5 × 0 .5 = 0 + 0.25
sum = 0.25
~~~~~~~~~~
Итерация 2:
sum = 0.25 || arr[i] = -3
sum = 0.25 + (-3) × (-3) = 0.25 + 9
sum = 9.25
~~~~~~~~~~
Итерация 3:
sum = 9.25 || arr[i] = 2
sum = 9.25 + 2 × 2 = 9.25 + 4
sum = 13.25
~~~~~~~~~~
Итерация 4:
sum = 13.25 || arr[i] = -1.6
sum = 13.25 + (-1.6) × (-1.6) = 13.25 + 2.56
sum = 15.81
~~~~~~~~~~
mmagicmmagicmm:
Спасибо большое !
Для начала я должна добавить на форум «memo”?
Форму*
Не понял Вас. Задавайте вопрос на самой платформе, как задавали этот.
После begin я должна писать
sum = :
.......?
sum = :
.......?
А точнее sum := 0
??
Вам программа нужна?
program programma;
var
arr: array[1..4] of double = (0.5, -3, 2, -1.6);
sum: double;
begin
sum := 0;
for var i := 1 to 4 do
sum := sum + arr[i] * arr[i];
write(sum);
end.
var
arr: array[1..4] of double = (0.5, -3, 2, -1.6);
sum: double;
begin
sum := 0;
for var i := 1 to 4 do
sum := sum + arr[i] * arr[i];
write(sum);
end.
Спасибо
Новые вопросы