Программа
вычисления произведения
элементов двумерного
вещественнозначного
массива X
максимального размера 10x10.
|
|
|
Program
pr21 (Input, Output);
|
Объявление
имени программы |
|
Var
|
Блок
объявления глобальных переменных |
|
X
: Array [1..20, 1..20] Of Real;
|
Переменная
X - двумерный массив действительных
чисел, размер - не более 20x20 |
|
N
: Integer;
|
Переменная
N - число элементов массива X |
|
P
: Real; |
Переменная
P - искомое произведение элементов
массива |
|
i,
j
: Integer;
|
Переменные
i,j - параметры циклов |
|
|
|
|
Begin
|
Начало
тела программы |
|
|
|
|
WriteLn
('PASCAL: Вычисление произведения элементов
прямоугольной таблицы.');
|
Формулировка
цели алгоритма |
|
Write
('Введите размерность:
N = ');
|
Запрос
ввода N - числа элементов массива |
|
ReadLn
(N);
|
Ввод
N |
|
WriteLn
('Введите элементы таблицы:');
|
Запрос
ввода элементов таблицы |
|
For
i := 1 To N Do
|
Цикл
для i от 1 до N, где i - номер очередной
строки |
|
For
j := 1 To N Do
|
Цикл
для j от 1 до N, где j - номер очередного
столбца |
|
Begin
|
Начало
тела цикла |
|
Write
('X[', i, ',', j, '] = ');
|
Вывод
удобной подсказки |
|
ReadLn
(X [i, j] ); |
Ввод
очередного элемента - X[i,j] |
|
End;
|
Конец
тела цикла |
|
|
|
|
P
:= 1; |
Переменной
P присваиваем начальное значение 1 |
|
For
i := 1 To N Do
|
Цикл
для i от 1 до N, где i - номер очередной
строки |
|
For
j := 1 To N Do
|
Цикл
для j от 1 до N, где j - номер очередного
столбца |
|
P
:= P * X [i, j]; |
Домножаем
P на очередной элемент массива X - X[i,j] |
|
|
|
|
WriteLn
('Произведение: P = ', p: 6: 1);
|
Вывод
полученного значения произведения |
|
ReadLn;
|
Ожидание
нажатия клавиши Enter для завершения |
|
End.
|
Конец
программы. |
