IV. Задания повышенной сложности

Лабораторная работа №2

Приемы работы с двумерными массивами (Тема .2.3.2.)

Двумерные массивы. Трехмерные массивы, n-мерные массивы. Объявление двумерного, трехмерного, n-мерного массива. Ввод и вывод двухмерных массивов.

После изучения темы студент должен

знать:

- синтаксис объявления двумерного массива;

- операции над двумерными массивами;

- стандартные функции для работы с двумерными массивами;

Уметь

- осуществлять ввод и вывод двумерных массивов;

- сравнивать двумерные массивы;

- применять стандартные функции для работы с двумерными массивами.

I. Обработка элементов двумерного массива

Задание 1 В тетради код и блок-схема

Ввод и вывод элементов двухмерного массива

Задание 2 В тетради код и блок-схема

С помощью генератора случайных чисел сформировать двухмерный массив и вывести элементы в виде матрицы

writeln(' Введите число строк и столбцов');

readln(n,k);

Randomize; { Стандартная процедура см. теорию}

{ Заполнение матрицы случайными числами}

for i:=1 to n do

for j:=1 to k do

M[i,j]:=Random(500);

writeln(' Элементы заполненной матрицы');

for i:=1 to n do

begin

for j:=1 to k do

write(M[i,j]:4); writeln;

end;

Задание 3. Реализовать и сохранить

Найти сумму элементов прямоугольной матрицы размером MхN

Задание 4. Реализовать и сохранить

Вычислить суммы элементов столбцов заданной матрицы A(N, M).

Тест

Данные	Результат
N=2 M=2	A=	S=(6,4)

Задание 3. В каждой строке заданной матрицы A(N, M) вычислите сумму, количество и среднее арифметическое положительных элементов. (Самостоятельно)

II. Поиск максимальных и минимальных элементов массива

Задание 4. В тетради код и блок-схема

Найти максимальный элемент прямоугольной таблицы размером NхM

Задание 5. Реализовать и сохранить

Подсчитать, сколько раз встречается в заданной целочисленной матрице A(N, M) максимальное по величине число.

Тест

Данные	Результат
N=2 M=3	A=	K=3

Задание 6. В тетради код и блок-схема

Дана матрица A(N, M). Найдите её наибольший элемент и номера строки и столбца, на пересечении которых он находится.

III. Обработка строк и столбцов элементов массива

Задание 7. Реализовать и сохранить

В заданной матрице A(N, M) поменять местами строки с номерами P и Q
(1 <= P <= N, 1 <= Q <= N).

Тест

Данные	Результат
N=3 M=3 P=1 Q=3

Задание 8. Реализовать и сохранить

В массиве A(N, N) вычислить две суммы элементов, расположенных ниже и выше главной диагонали.

Тест

Данные	Результат
N=3	S1=6 S2=9

IV. Задания повышенной сложности

Задание 9^* Реализовать и сохранить

Заполнить элементами таблицу, располагая их по спирали.

var i,j,m,n,l,r : integer;

tab : array [1..50,1..50] of integer;

begin

clrscr;

write('Кол-во строк : '); readln(m);

write('Кол-во столбцов : '); readln(n);

repeat

inc(r);

for i:=r to n-r+1 do begin inc(l);tab[i,r]:=l end;

for i:=r+1 to m-r+1 do begin inc(l);tab[n-r+1,i]:=l end;

for i:=n-r downto r do begin inc(l);tab[i,m-r+1]:=l end;

for i:=m-r downto r+1 do begin inc(l);tab[r,i]:=l end;

until l=m*n;

for j:=1 to m do

for i:=1 to n do

begin

write(tab[i,j]:4);

if i=n then writeln;

end;

readln;

end.

Задание10^* Реализовать и сохранить

Расположить по краям таблицы нули

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

i,j,m,n : longint;

begin

clrscr;

write('кол-во строк ');readln(m);

write('кол-во столбцов ');readln(n);

for i:=1 to m do

for j:=1 to n do

begin

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

end;

for i:=1 to m do a[i,1]:=0;

for j:=1 to n do a[m,j]:=0;

for i:=1 to m do a[i,n]:=0;

for j:=1 to n do a[1,j]:=0;

for j:=1 to n do

begin

writeln(' ');

for i:=1 to m do write(' ',a[i,j]);

end;

readln;

end.

Задание 11* В тетради код и блок-схема

Дан прямоугольный целочисленный массив размером N*N. Определить является ли данный массив магическим квадратом, т.е. сумма элементов в строках, столбцах и на главных диагоналях равна (Самостоятельно)

V. Практический контроль

Согласно указанному варианту (номер компьютера), выполнить практическое задание. Формулировку задания, код и блок-схему оформить в тетрадь.