Изучение Delphi. Графическая схема алгоритма

Условие задачи: В каждой из задач данного раздела предполагается, что задана матрица размером n х m. Программа должна:

1) вводить размерность и элементы матрицы;

2) вводить некоторые дополнительные числа;

3) выполнять действия в соответствии с условием задачи;

4) выводить исходные данные и результаты вычислений.

Исходные данные для отладки программы выбрать самостоятельно.

Вариант	Задание
5	Вычислить сумму элементов, меньших заданного В и расположенных в столбцах с номерами кратными 3

Исходные данные :

X(массив)

n (количество строк)

m (количество столбцов)

B (число)

Результат:

S (сумма)

Графическая схема алгоритма:

X[i,j] < B

Конец

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

Проектирование формы:

Таблица компонентов:

Элемент интерфейса	Визуальный компонент	Свойства	Значение свойства
Заголовок окна	Form1	Caption	РАБОТА С ДВУМЕРНЫМИ МАССИВАМИ
Метка для оформления ввода n	Label1	Caption	Ввести количество строк
Метка для оформления ввода m	Label2	Caption Visible False	Ввести количество столбцов
Метка для оформления ввода B	Label3	Caption Visible False	Ввести число B
Метка для оформления ввода матрицы	Label4	Caption Visible False	Ввести матрицу
Поле вывода S	Label5	Caption Visible False
Кнопка “Определить”	Button1	Caption Visible False	Определение
Поле ввода n	Edit1	Text Visible False
Поле ввода m	Edit2	Text Visible False
Поле ввода B	Edit3	Text Visible False
Поле ввода массива X	StringGrid1	Visible False FixedCols 1 FixedRows 1 ColCount 2 RowCount 2 Options: goEditing True goTabs True

Таблица используемых событий:

Визуальный компонент	Событие	Процедура обработки события	Реализуемый алгоритм
Button1	OnClick	TForm1.Button1Click	Вычисление суммы элементов, меньших заданного В и расположенных в столбцах с номерами кратными 3
Edit1	OnChange	TForm1.Edit1Change	Подгон StringGrid1 под количество строк
Edit2	OnChange	TForm1.Edit2Change	Подгон StringGrid1 под количество столбцов
Edit3	OnChange	TForm1.Edit3Change	Присваивание Button1.Visible, Label4.Visible, StringGrid1.Visible значения True