Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Пример 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);
Date: 2015-07-25; view: 435; Нарушение авторских прав