Пример 9.1. Операции ввода и вывода двумерного массива с использованием компонент Edit, StringGrid

Дано: матрица размером . (; ). Сформировать вектор элементов, расположенных между min и max элементами матрицы.

Таблица имен переменных:

Имя	Структура	Тип	Семантика
m n k   a   b	простая простая простая   одном. массив одном. массив	целый целый целый   целый   целый	Количество строк матрицы Количество столбцов матрицы Количество элементов сформированного массива Исходная матрица   Сформированный массив из элементов матрицы, расположенных между min и max элементами матрицы

Размещенные компоненты:

Компонент	Свойство	Значение
Label - Label13     Edit1 – Edit5     StringGrid	Caption     Caption     ColCount RowCount FixedCols FixedRows	От “Формирование одномерного массива” до “Элементы матрицы, расположенные…”   Пусто   11(количество столбцов) 11(количество строк) 1(количество фикс. столбцов) 1(количество фикс. строк)

Вид формы с компонентами:

Отметим, что максимальные размеры матрицы:

m = 10 – количество строк; n = 10 – количество столбцов;

В таблице количество строк и столбцов на 1 больше, т.к. в таблице есть фиксированная часть.

Процедура обработки щелчка на кнопке “Ввод”

(формирование двумерного массива – вводом элементов из поля Edit3, перед процедурой необходимо разместить функцию GetSubstr в разделе Implementation)

procedure TForm1.Button1Click(Sender: TObject);

var i,j,k:integer;

Begin

m:=StrToInt(Edit1.text); n:=StrToInt(Edit2.text);