Вид окна проекта

Таблица используемых ВК
| Элемент интерфейса | Компонент | Свойство | Значение свойства | ||
| Заголовок окна | Form1 | Caption | Лабораторная работа 7 | ||
| Число элементов массива | Label1 | Caption | Число элементов массива | ||
| T | Label2 | Caption | T | ||
| Кнопка решить | Button1 | Caption | Решить | ||
| Поле ввода числа элементов массива | Edit1 | Text | |||
| Поле ввода Т | Edit2 | Text | |||
| Условие задачи | Memo1 | lines | Вычислить сумму неотрицательных чисел, стоящих на местах, кратных 3, и количество чисел равных заданному T. | ||
| Таблица для ввода массива | Stringgrid1 | Colcount Rowcount Fixsedcols Fixsedrows Options.goediting Options.gotabs | True true | ||
| Таблица для вывода массива | Stringgrid2 | Colcount Rowcount Fixsedcols Fixsedrows Options.goediting Options.gotabs | True true | ||
| Место для вывода результата | Memo2 | lines | |||
Таблица используемых событий
| Компонент | Событие | Имя процедуры обработки события | Реализуемый алгоритм |
| Button1 | OnClick | Tform1.Button1Click | Расчёт массива |
Таблица используемых переменных
| Имя переменной в задаче | Имя переменной в программе | Тип переменной | Комментарий |
| i | i | byte | Номер элемента |
| n | n | byte | Кол-во элементов |
| k | k | real | Кол-во элементов суммы |
| s | S | real | сумма |
| t | T | real | переменная |
| kv | kv | real | Кол-во элементов ранных Т |
| x[i] | x[i] | real | Элемент массива |
Схема олгаритма


Рукописные тесты
Тест1
Исходные данные: Число элементов массива=6
Т=4
массив: 1, 4, -1, 4, 5, 6
Ожидаемый результат: Сумма=6
Количество=2
Тест2
Исходные данные: Число элементов массива=6
Т=-1
массив: -1, -1, -1, -1, -1, -1
Ожидаемый результат: “Нет элементов”
Количество=6
Тест3
Исходные данные: Число элементов массива=6
Т=2
массив: -1, -1, 3, -1, -1, 3
Ожидаемый результат: Сумма=6
“Ошибка”






