Министерство образования РФ
УГТУ-УПИ
Филиал в г. Краснотурьинске
кафедра вычислительной техники
По лабораторной работе №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
Вывод: в этой лабораторной работе мы научились работать с данными хранящимися в двумерных массивах..
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.