Создание программы, использующей алгоритм для отработки данных, хранящихся в двумерных массивах (Вычисление суммы элементов на побочной диагонали)

Цель работы:

Создание программы по известному алгоритму, отработка данных, хранящихся в двумерных массивах.

Задачи:

а) Дан массив A (n, n). Вычислить сумму элементов на побочной диагонали.

б) составить алгоритм и программу для решения задачи:

Дана матрица b (n, n). Найти индексы всех элементов, имеющих наибольшее значения.

Блок-схемы:

 

б)

 

                                                                                                           Да                                                                                                           Нет          

 

                 Да                    Нет

Программы:

а) Program L_6_1;

uses crt;

var i, j, n:integer;

S1,S2,S3:real;

A: array [1..n,1..n] of integer;

begin

clrscr;

writeln (‘Введите размер массива n=’);

readln (n);

writeln (‘Введите элементы массива’);

for i:=1 to n do

for j:=1 to n do

begin

write (‘A[‘,i,’,’,j,’]=’);

readln (A[i, j]);

end;

S₁:=0

S₂:=0

S₃:=0

for i:=1 to n do

S₁:=S₁+A[i,n-i+1];

for i:=1 to n-1 do

for j:=1 to n-i do

S₂:=S₂+a[i, j]; 

б)for i:=2 to n do

for j:=n-i+2 to n do

S₃:=S₃+a[i, j];

writeln (‘исходный массив:’);

for i:=1 to n do

begin

writeln;

for j:=1 to n do

writeln (a[I, j],’’:2);

writeln (‘Сумма элементов на побочной диагонали’,S₁:8:2);

writeln (‘Сумма элементов выше побочной диагонали’,S₂:8:2);

writeln (‘Сумма элементов ниже побочной диагонали’,S₃:8:2);

readln;

end.

б) Program L_6_2;

uses crt;

var max, i, j:integer;

A: array [1..4,1..4] of integer;

begin

clrscr;

for i:=1 to 4 do

for j:=1 to 4 do

begin

write (‘A[‘,i,’,’,j,’]=’);

readln (A[i, j];

end;

writeln;

writeln (‘Массив A:’);

for i:=1 to 4 do

begin

writeln;

for j:=1 to 4 do

write (A[i, j]:3,’’:2);

end;

max:=A[1, 1];

for i:=1 to 4 do

for j:=2 to 4 do

if A[i, j]>max then max:=A[i, j];

writeln (‘’:100);

writeln (‘Индексы максимальных элементов массива:’);

writeln;

for i:=1 to 4 do

for j:=1 to 4 do

if A[i, j]=max then writeln (‘[‘,i,’,’,j,’]’);

readln;

end.

Результаты:

а)

б) A [1, 1] =6             Матрица A

A [1, 2] =7

6	7	9	5
4	8	1	4
8	5	9	9
0	4	11	34

A [1, 3] =9

A [1, 4] =5

A [2, 1] =4

A [2, 2] =8

A [2, 3] =1

A [2, 4] =4

A [3, 1] =8

A [3, 2] =5

A [3, 3] =9

A [3, 4] =9

A [4, 1] =0

A [4, 2] =4

A [4, 3] =11

A [4, 4] =34

Индексы максимальных элементов массива [4, 4].

Вывод:

Я научился создавать программы, в которых обрабатываются данные, хранящиеся в одномерном массиве.