Написать программу, которая пересчитывает скорость ветра из "метров в секунду" в "километров в час". Рекомендуемый вид формы приведен на рис. Программа должна быть спроекти­рована таким образом, чтобы пользователь мог ввести в поле Скорость только целое положительное число. 

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Label1: TLabel;

    Button1: TButton;

    Label2: TLabel;

    Panel1: TPanel;

    Label3: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure WindSpeed;

var

  ms: integer;

  kmch: real;

begin

  if Length(Form1.Edit1.text) = 0 then

  begin

  Showmessage('Надо ввести скорость');

  exit;

  end;

  ms:=StrToInt(Form1.Edit1.text);

  kmch:=ms*3.6;

  Form1.panel1.caption:=(IntToStr(ms) + 'м/с = ' + FloatToStr(kmch) + 'км/ч')

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  Windspeed;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

  {if not ((key>='0')and (key<='9') or (key=#8) or (key=#13))

  then  key:=chr(0); }

  case key of

    '0'..'9',#8:;

    #13: WindSpeed;

    else key:=chr(0);

  end;

end;

end.

Подпишись, чтобы получать свежие исходники!