Основы языка Delphi

         

Контроль веса



Листинг 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, одна из которых "вложена" в другую.



Содержание раздела