Задано: массивы A =(a1,a2,...,an) , B =(b1,b2,...,bn).
Сформировать: массив C =(c1,c2,...,cn) , где Сi = Ai+Bi; i=1,2,...,n.
Задача сводится к организации цикла по i и вычислению Ci=Ai+Bi при каждом значении i от 1 до n.
Исходные данные:
N- размер массива;
A, B - массивы слагаемые размером N;
Результат: массив С - размером N;
Вспомогательные переменные: I - индекс - управляющая переменная цикла.
Procedure SUM_MAS (n : integer; A,B :mas; var C : mas);
{ где mas должен быть описан в главной программе в разделе описания типов , например так :
type mas = array[1..100 ] of real ;
тогда это будет процедура для суммирования двух одномерных массивов размером не более 100 элементов }
begin
for i := 1 to n do C[i] := A[i]+B[i];
end;
Опубликовал Kest
November 12 2008 21:13:42 ·
0 Комментариев ·
8232 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
