Лабораторная работа 26. Решение задач на обработку массивов

Стр 1 из 2Следующая ⇒

Лабораторная работа 26

Решение задач на обработку массивов

1. Цель работы:овладеть практическими навыками работы с одномерными массивами в среде программирования Pascal ABC.

2. Теоретическое обоснование

Пример решения задачи с использованием массивов Паскаля

Задача: даны два n -мерных вектора. Найти сумму этих векторов.

Решение задачи:

Входными данными в этой задаче будут являться два одномерных массива. Размер этих массивов может быть произвольным, но определенным. Т.е. мы можем описать заведомо большой массив, а в программе определить, сколько элементов реально будет использоваться. Элементы этих массивов могут быть целочисленными. Тогда описание будет выглядеть следующим образом:

var a , b : array [1..100] of integer ;

Выходными данными будут элементы результирующего массива, назовем его c . Тип результирующего массива также должен быть целочисленным.

Кроме трех массивов нам потребуется переменная – параметр цикла и индекс массива, назовем ее i , а также переменная n для определения количества элементов в каждом массиве.

Ход решения задачи:

· определим количество элементов (размерность) массивов, введем значение n ;

· введем массив a ;

· введем массив b ;

· в цикле, перебирая значения индекса i от 1 до n , вычислим последовательно значения элементов массива c по формуле:

c [ i ]= a [ i ]+ b [ i ];

· выведем на экран полученный массив.

Текст программы :

Program summa;
Var
a, b, c: array [1..100] of integer;
I, n: byte;
Begin
Write ('введите размерность массивов:');
Readln(n);
For i:=1 to n do
Readln (a[i]); { ввод массива a}
For i:=1 to n do
Readln (b[i]); { ввод массива b}
For i:=1 to n do
C[i]:=a[i]+b[i]; { вычисление суммы массивов }
For i:=1 to n do
write (c[i],' '); { вывод массива с }
end.

3.Алгоритм выполнения работы:

12 Следующая ⇒