implementation

Программа проверки двух условий

Часто в программе необходимо реализовать выбор более чем из двух вариантов. Например, известно, что для каждого человека существует оптимальное значение веса, которое может быть вычислено по формуле:

Рост(см)- 100.

Реальный вес может отличаться от оптимального: вес может быть меньше оптимального, равняться ему или превышать оптимальное значение.

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

Рис. 2.5.Окно программы Контроль веса

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

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

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

Листинг 2.2.Контроль веса

unit wtest_;

Interface

uses

Windows, Messages, SysUtils, Classes,

Graphics, Controls, Forms, Dialogs, StdCtrls;

Type

TForm1 = class(TForm) Label1: TLabel;

Label2: TLabel;

Edit1: TEdit; // поле ввода веса

Edit2: TEdit; // поле ввода роста

Button1: TButton; // кнопка Вычислить

Label3: TLabel; // поле вывода сообщения —результата работы

// программы

procedure ButtonlClick(Sender: TObject);

private

{ Private declarations }

Public

{ Public declarations } end;

Var

Form1: TForm1;

implementation

($R *.DFM}

procedure TForml.ButtonlClick(Sender: TObject);

Begin

end;

End.

В приведенном примере множественный выбор реализован при помощи

двух инструкций if, одна из которых " вложена" в другую.

Окно программного кода: