Примеры задач

Двумерные массивы


Даны два двумерных массива одинаковой размерности. Создать третий массив той же размерности, каждый элемент которого равен сумме соответствующих элементов первых двух массивов.

Методика решения

Пример:
Пусть даны: и . Тогда получим массив:.

Используемые переменные:
A, B, C - двумерные массивы одинаковой размерности,
D,k – размерность массивов,
I,j – индексы элементов массивов.

В данной программе целесообразно использовать процедуры формирования и вывода на экран массива.
Для начала формируем массивы (в цикле считываем с экрана их элементы) и выводим их на экран.
Затем, по условию, необходимо сформировать третий массив той же размерности, каждый элемент которого равен сумме соответствующих элементов первых двух массивов.
Перебираем в цикле элементы двух первых массивов, складываем элемент первого массива с элементом второго и помещаем в третий.
Выводим полученный массив на экран.

Листинг программы

Program ex3_7;
uses crt;
Const n=60;
Type mas=Array[1..n,1..n] Of Integer;
Var i,j,d,k:Integer;
a,b,c:mas;
{Процедура формирования массива}
Procedure Init(Var m:mas);
Begin
For i:=1 To d Do
For j:=1 To k Do
m[i,j]:=-25+Random(51);
End;
{Процедура вывода массива на экран}
Procedure Print(m:mas);
Begin
For i:=1 To d Do
Begin
For j:=1 To k Do
Write(m[i,j]:5);
Writeln;
End;
End;
{Процедура формирования массива C по правилу}
Procedure Summa( x,y:mas; Var z:mas);
Var i,j:Integer;
Begin
For i:=1 To d Do
For j:=1 To k Do
z[i,j]:=x[i,j]+y[i,j];
End;
Begin ClrScr;
Writeln('Введите количество строк и столбцов массивов');
Readln(d,k);
ClrScr;
Writeln('Сгенерированные массивы A и B');
Randomize;
{Вызов процедур формирования и вывода на экран массива}
Init(a);
Init(b);Writeln('Массив A:');
Print(a);Writeln('Массив B:');
Print(b);Writeln;
{Вызов процедуры формирования массива C}
Summa(a,b,c);
Writeln('Полученный массив C');
Print(c);
Readkey;
End.

Запустить программу






Назад

Закрыть