Программа
нахождения массива
Z как
поэлементной суммы элементов массивов X
и Y
|
|
|
Program
Pr19 (Input, Output);
|
Объявление
имени программы |
|
Var
|
Блок
объявления глобальных переменных |
|
X,
Y : Array [1..20] Of Real;
|
Переменные
X, Y - массивы действительных чисел,
размер не более 20 эл-ов |
|
Z
: Array [1..20] Of Real;
|
Переменная
Z - результирующий массив, размер также
не более 20 эл-ов |
|
N
: Integer;
|
Переменная
N - размер массивов X, Y и Z |
|
i
: Integer;
|
Переменная
i - параметр цикла |
|
|
|
|
Begin
|
Начало
тела программы |
|
|
|
|
WriteLn
('PASCAL: Нахождения суммы двух массивов.');
|
Формулировка
цели алгоритма |
|
Write
('Введите размерность исходных массивов:
N = ');
|
Запрос
ввода N - размерности исходных массивов X
и Y |
|
ReadLn
(N);
|
Ввод
N |
|
WriteLn
('Введите массив Х:');
|
Запрос
ввода элементов первого массива |
|
For
i := 1 To N Do
|
Цикл
для i от 1 до N, где i - номер вводимого
элемента |
|
Begin
|
Начало
тела цикла |
|
Write
('X[', i, '] = ');
|
Вывод
удобной подсказки |
|
ReadLn
(X [i] ); |
Ввод
очередного элемента - X[i] |
|
End;
|
Конец
тела цикла |
|
WriteLn
('Введите массив Y:');
|
Запрос
ввода элементов второго массива |
|
For
i := 1 To N Do
|
Цикл
для i от 1 до N, где i - номер вводимого
элемента |
|
Begin
|
Начало
тела цикла |
|
Write
('Y[', i, '] = ');
|
Вывод
удобной подсказки |
|
ReadLn
(Y [i] ); |
Ввод
очередного элемента - Y[i] |
|
End;
|
Конец
тела цикла |
|
|
|
|
For
i := 1 To N Do
|
Цикл
для i от 1 до N суммирования
массивов X и Y в массиве Z |
|
Z
[i] := X [i] + Y [i];
|
i-ый
элемент массива Z получается
суммированием соотв. эл-тов массивов X и Y |
|
|
|
|
WriteLn
('Массив результатов:');
|
Сообщение
пользователю о выводе полученного
массива |
|
For
i := 1 To N Do
|
Цикл
для i от 1 до N, где i - номер элемента |
|
Write
(Z [i] : 8: 1);
|
Вывод
элемента Z[i] |
|
|
|
|
ReadLn;
|
Ожидание
нажатия клавиши Enter для завершения |
|
End.
|
Конец
программы. |
