Иллюстрированный самоучитель по Delphi 7 для начинающих

Выбор. Инструкция if.

Следующая программа, диалоговое окно которой приведено на рис. 2.5, запрашивает вес и рост, вычисляет оптимальное значение, сравнивает его с реальным весом и выводит соответствующее сообщение.

Иллюстрированный самоучитель по Delphi 7 для начинающих › Управляющие структуры языка Delphi › Выбор. Инструкция if.
Рис. 2.5. Окно программы Контроль веса

Алгоритм программы Контроль веса изображен на рис. 2.6.

Как и в предыдущей программе, вычисления выполняются при щелчке на кнопке Вычислить (ее имя Button1). В листинге 2.2 приведен текст программы.

Иллюстрированный самоучитель по Delphi 7 для начинающих › Управляющие структуры языка Delphi › Выбор. Инструкция if.
Рис. 2.6. Алгоритм программы Контроль веса

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.