Тема 5. Программирование с использованием двумерных массивов

Цель лабораторной работы: изучить свойства компонента TBitBtn. Написать программу с использованием двумерных массивов.

5.1. Компонент tBitBtn

Компонент TBitBtn расположен на странице Additonal палитры компонентов и представляет собой разновидность стандартной кнопки TButton. Его отличительная особенность – наличие растрового изображения на поверхности кнопки, которое определяется свойством Glyph. Кроме того, имеется свойство Kind, которое задает одну из 11 стандартных разновидностей кнопок. Нажатие любой из них, кроме bkCustom и bkHelp, закрывает модальное окно и возвращает в программу результат mr*** (например, bkOk – mrOk). Кнопка bkClose закрывает главное окно и завершает работу программы.

5.2. Примеры программ

Пример 1. Поменять местами максимальный и минимальный элементы в каждой строке думерного массива.

Const

N_Max = 10;

Type

Matr = Array [1 .. N_Max , 1 .. N_Max ] Of Extended;

Var

A : Matr;

i, n, j, m, j_Min, j_Max:Byte; // j_Min – номер столбца минимального элемента,

Min, Max : Extended; // j_Max – номер столбца максимального элемента

Begin

// Ввод элементов массива

For i := 1 To n Do Begin

Min := A[i, 1]; //Предположения о начальных значениях максимального

j_Min := 1; //и минимального элементов i-ой строки

Max := A[i, 1];

j_Max := 1;

For j:=2 To m Do // Поиск максимального и минимального элементов

Begin // в i-ой строке

If A [i, j] > Max Then Begin

Max := A[i, j];

j_Max := j;

End;

If A [i, j] < Min Then Begin

Min := A[i, j];

j_Min := j;

End;

End; // For j

A [i, j_Max] :=Min; //Перестановка максимального и минимального

A [i, j_Min] :=Max; // элементов в i-ой строке

End; // For i

// Вывод элементов массива

End;

Пример 2. Сформировать новый массива С, состоящий из отрицательных и кратных трем элементов массива А размерностью n∙m.

Const

N_Max = 10;

Type

Mas = Array [1..N_Max* N_Max] Of Integer ;

Matr = Array [1..N_Max, 1..N_Max] Of Integer ;

Var

A : Matr;

C : Mas;

i, j, k, n, m : Byte; // k – количество элементов массива С

Begin

// Ввод элементов массива

k:=0;

For i := 1 To n Do

For j := 1 To m Do

If (A [i, j] < 0) And ( A [i, j] Mod 3 = 0) Then // Поиск отрицательных и

Begin // кратных трем элементов массива А

Inc (k); // k:= k +1;

C [k] := A [i, j];

End;

// Вывод элементов массива

End;

Пример 3. Отсортировать элементы каждой строки массива А по возрастанию, применяя улучшенный метод пузырька.

Const

N_Max = 10;

Type

Matr = Array [1..N_Max, 1..N_Max ] Of Extended;

Var

A : Matr;

i, n, j, m : Byte;

t : Extended; // Переменная для перестановки элементов массива

Fl : Boolean; // Флаг для определения: отсортирована строка или нет

Begin

// Ввод элементов массива

For i := 1 To n Do

Repeat

Fl := True; // Предположение о том, что строка отсортирована

For j := 1 To m-1 Do // Просмотр элементов i-ой строки массива

if A [i, j] > A [i, j+1] Then Begin // Если элементы стоят по убыванию,

t := A [i, j]; // то поменять их местами

A [i, j] := A [i, j+1] ;

A [i, j+1] := t;

Fl:= False; // Строка не отсортирована

End;

Until Fl; // Если Fl=True, то выйти из цикла, т.к. строка отсортирована

// Вывод элементов массива

End;

Пример 4. Найти максимальный элемент, стоящий на главной диагонали, и минимальный элемент, стоящий на побочной диагонали массива А.

К элементу, стоящему на главной диагонали, обращаются как А[i,i] или А[j,j], т.к. индексы строки и столбца у него совпадают (А[1,1], А[2,2],…, А[n, n]); а к элементу побочной диагонали – А[i, n-i+1].

Max:= A[1, 1]; //Предположения о начальных значениях максимального

Min := А[1, n]; //и минимального элементов диагоналей

For i := 2 To n Do Begin // Поиск максимального и минимального элементов

If A[i, i]> Max Then Max := A[i, i];

If A[i, n-i+1] < Min Then Max := A[i, n-i+1];

End;

Пример 5. Найти сумму нечетных элементов массива, расположенных ниже главной диагонали, и произведение четных элементов, расположенных выше ее.

Sum := 0;

For i := 2 To n Do //Поиск нечетных элементов массива,

For j := 1 To i-1 Do // расположенных ниже главной диагонали

If Odd(A[i, j]) Then Sum := Sum + A[i, j];

Pr := 1 ;

Kol:= 0;

For i := 1 To n-1 Do //Поиск четных элементов массива,

For j := i+1 To n Do // расположенных выше главной диагонали

If Not Odd(A[i, j]) Then Begin

Pr:= Pr * A[i, j];

Inc(Kol); // Kol:= Kol +1;

End;

If Kol = 0Then Pr := 0; //Если четных элементов нет, то произведение равно 0