Контроль веса
Листинг 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:='Bu в хорошей форме!'
else
if w < opt then
begin
d:=opt-w;
Labels.caption:='Вам надо поправиться, на '
+ FloatToStr(d)+ 'кг.';
end
else
begin
d:=w-opt;
Labels.caption:='Haдo немного похудеть, на '
+ FloatTostr(d)+ ' кг.';
end;
end;
end.
В приведенном примере множественный выбор реализован при помощи
двух инструкций if, одна из которых "вложена" в другую.
