Декомпозиция и формулировка частных задач
Для нашего примера предварительно сформулируем 4 частные задачи.
1. Вывод информационного сообщения о назначении программы.
2. Ввод исходных данных и контроль алфавита вводимых символов.
3. Преобразование в числовые типы значений полей ввода.
4. Вычисления и представление результата.
Подготовка проекта
1. Сохранить проект в отдельной папке в соответствии с общими требованиями к программному интерфейсу.
2. Переопределить заголовок формы в соответствии с общими требованиями к пользовательскому интерфейсу.
Form1.Caption ← Ст. Умников гр. 1040
3. Записать формулировку задачи в виде комментария после заголовка модуля.
4. Описать глобальные переменные X, dX, Y.
5. Запустить проект на выполнение и критически оценить результаты, при необходимости внести изменения.
Фрагмент листинга модуля.
unit Umnik_1; {Вычислить n значений выражения Y = X/(X-5) начиная с X0 с шагом dX. Вывести значения X и Y} ........................ implementation Var n, X, dX: integer; Y: Real; |
Теперь можно приступать к следующему этапу – постановке и реализации частных задач
4. 2. Постановка и реализация частных задач Задача 1. Вывод информационного сообщения
На этом этапе следует принять и оформить следующие конкретные решения.
Определить содержание сообщения о назначении программы.
Выбрать компонент для вывода сообщения.
Выбрать событие, приводящее к появлению сообщения.
Содержание сообщение должно кратко и точно информировать о назначении программы, при необходимости о действиях пользователя (если они не очевидны).
Сообщение – Вычисление n значений Y = X/(X-5) от X с шагом dX.
Выбор компонента для вывода сообщения. Для вывода информационного сообщения можно использовать компоненты класса: TLabel, TEdit, TMemo. Выберем компонент TLabel, установим и переименуем его в LInfo. Label1.Name ←. LInfo
Выбор события для вывода сообщения. Для вывода информационного сообщения в LInfo можно использовать три варианта.
1. Переопределить свойство Label1.Caption на этапе разработки.
Label1.Caption← Вычисление n значений Y = X/(X-5) от X с шагом dX
2. Описать константу
Const Info = ‘Вычисление n значений Y = X/(X-5) от X с шагом dX’;
Назначить событие формы OnActivate . Дополнить код процедуры
обработки события
procedure TForm1.FormActivate(Sender: TObject);
begin
LInfo.Caption:= Info;
end;
3. Назначить событие формы OnActivate . Дополнить код процедуры
обработки события
procedure TForm1.FormActivate(Sender: TObject);
begin
LInfo.Caption:= ‘Вычисление n значений Y = X/(X-5) от X с шагом dX’;
end;
Выбираем вариант 3.
Тестирование. Запускаем программу на выполнение, оцениваем результат. Устраняем несоответствие требованиям размера шрифта. Увеличиваем размер шрифта до 10. LInfo.Font.Size ←10
Если Ваша форма выглядит как на рис. 1, можно считать, что результат достигнут.
Фрагмент листинга модуля.
type TForm1 = class(TForm) LInfo: TLabel; //Для информационного сообщения procedure FormActivate(Sender: TObject); {Вывод информационного сообщения} end; //Вывод информационного сообщения procedure TForm1.FormActivate(Sender: TObject); begin LInfo.Caption:= 'Вычисление n значений Y = X/(X-5) от X c шагом dX'; end; |
Рис. 1. Вывод информационного сообщения