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

Министерство образования РФ

УГТУ-УПИ

Филиал в г. Краснотурьинске

кафедра вычислительной техники

ОТЧЕТ

По лабораторной работе №6

По теме: «Работа с двумерным массивом»

преподаватель:  Мезецева О. В.

             студент:  Боробов И. С.

              группа:  Р-131 КТ

2003г.

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

Блок схемы.

Программа №1

Задача: Дан массив a[n,n]. Вычислить сумму элементов на побочной диагонали, выше побочной диагонали и ниже побочной диагонали.

Программа №2

Составить алгоритм и программу для решения задачи. Дана матрица a[n,n]. Составить матрицу b[n,n], в которой все отрицательные элементы обращаются в нуль. Напечатать обе матрицы.

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

Программа №1.

Program matix;

uses crt;

type massiv=array [1..100,1..100] of integer;

var a:massiv;

    i,j,n,s1,s2,s3:integer;

begin

clrscr;

writeln ('введите размер массива');

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;

for i:=1 to n do

s1:=s1+a[i,n-i+1];

for i:=1 to n-1 do

for j:=1 to n-i do begin

s2:=s2+a[i,j];

end;

for i:=2 to n do

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

s3:=s3+a[i,j];

end;

writeln ('Исходный массив');

for i:=1 to n do begin

for j:=1 to n do

write (a[i,j],' ');

writeln;

end;

writeln ('Сумма элементов на побочной диагонали ', S1);

writeln ('Сумма элементов выше побочной диагонали ', S2);

writeln ('Сумма элементов ниже побочной диагонали ', S3);

readln;

end.

Программа№2.

Program matix_IV;

uses crt;

type massiv=array [1..100,1..100] of integer;

var a,b:massiv;

    i,j,n,s1,s2,s3:integer;

begin

clrscr;

writeln ('введите размер матрици');

readln (n);

randomize;

for i:=1 to n do

for j:=1 to n do begin

a[i,j]:=random(10)-5;

end;

writeln ('исходная матрица');

for i:=1 to n do begin

for j:=1 to n do

write (a[i,j],' ');

writeln;

end;

for i:=1 to n do begin

for j:=1 to n do

if a[i,j]<0 then b[i,j]:=0

else b[i,j]:=a[i,j];

end;

writeln ('готовый массив');

for i:=1 to n do begin

for j:=1 to n do

write (b[i,j],' ');

writeln;

end;

readln;

end.

Результаты:

Программа №1

1   2   3

4   5   6

7   8   9

Сумма элементов на побочной диагонали

Сумма элементов выше побочной диагонали

Сумма элементов ниже побочной диагонали

Программа №2

Исходная матрица                                  Получившаяся матрица

2    3    -4    5                                            2    3   0   5

7    8     1   -9                                            7    8   1   0

-1  -2   -5     5                                           0    0    0   5

6    8    -7    5                                           6    8    0   5

Вывод: в этой лабораторной работе мы научились работать с данными хранящимися в двумерных  массивах..