Выбор. Инструкция if.
Листинг 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);
var
w:real; { вес } h:real; { рост } opt:real;
{ оптимальный вес }
d:real;
{ отклонение от оптимального веса }
begin
w: = StrToFloat(Editl.text);
h: = StrToInt(Edit2.Text);
opt: = h-100;
if w=opt then
Label3.caption: = 'Вы в хорошей форме!'
else
if w < opt then
begin
d: = opt-w;
Labels.caption: = 'Вам надо поправиться, на '
+ FloatToStr(d)+ 'кг.';
end
else
begin
d: = w-opt;
Labels.caption: = 'Надо немного похудеть, на '
+ FloatTostr(d)+ ' кг.';
end;
end;
end.
В приведенном примере множественный выбор реализован при помощи двух инструкций if, одна из которых "вложена" в другую.