Delphi World - Контроль веса
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Контроль веса


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 Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  w: real; { вес }
  h: real; { рост }
  opt: real; { оптимальный вес }
  d: real; { отклонение от оптимального веса }
begin
  w := StrToFloat(Edit1.text);
  h := StrToInt(Edit2.Text);
  opt := h - 100;
  if w = opt
    then
    Label3.caption := 'Ваш вес оптимален !'
  else
    if w < opt
      then
    begin
      d := opt - w;
      Label3.caption := 'Вам надо поправиться, на '
        + FloatTostr(d) + 'кг.';
    end
    else
    begin
      d := w - opt;
      Label3.caption := 'Надо немного похудеть, на '
        + FloatTostr(d) + ' кг.';
    end;
end;
end.
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования