Практичесl= 2;ая работа № 32

Прак= 090;ическая работа № 32

«Градусни = 82;»

Цель работы - созk= 6;ать программу, которая переводит значение температурm= 9; по Цельсию в значения температурm= 9; по Фаренгей = 90;у. Введите графическиl= 1; объект изоб = 88;ажения значения температурm= 9;.

1. Поместит= е на форму два поля ввода Edit l= 0; четыре кнопки.

= ;

2. Ввести число в лево= 077; поле. По нажатию на кнопку «по Фаренгейту&raqu= o; в правом пол= 077; выводится преобразовk= 2;нное число. По нажатию кно = 87;ки «Очистить» очищаются поля ввода.

3. Ограничь= те вводимые температурm= 9; диапазоном от 0&= deg;C до = 100°C (если введен= 086; значение, превышающеk= 7; 100°C или 212°F, то при нажатии кнопки в полях ввода должно отобразитьl= 9;я 100 и 212 соответствk= 7;нно).

4. Отобрази= ть столбик термометра графически. Добавьте ко = 84;поненты Image.

5. Сделать видимой только ту кнопку, которая нео = 73;ходима для преобразовk= 2;ния.

Листи&#= 1085;г программы<= /b>

unit= Unit1;

interface

uses

Windows, Messages, SysUtils, Varia= nts, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;<= /o:p>

type

TForm1 =3D class(TForm)=

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;=

    Button2: TButton;=

    Button3: TButton;=

    Button4: TButton;=

    Image1: TImage;

    Image2: TImage;

    Label1: TLabel;

    Label2: TLabel;

    procedure FormCreate(S= ender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button1Click= (Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

private

    { Private declarations= }

public

    { Public declarations = }

end;

var

Form1: TForm1;
implementation

{$R *.dfm}=

procedure TForm1.FormCreate(Sender: TObject);

begin

   Edit1.Text :=3D '';

   Edit2.Text :=3D '';

   Image1.Canvas.Pen.Color :=3D= clRed;

   Image1.Canvas.Brush.Color := =3D clWhite;

   Image1.Canvas.Rectangle(10,1,23,360);

   Image2.Canvas.Pen.Color :=3D= clBlue;

   Image2.Canvas.Brush.Color := =3D clWhite;

   Image2.Canvas.Rectangle(10,1,23,360);

end;=

procedure TForm1.Button2Click(Sender: TObject);

var = a, b, c : real;

begin

a :=3D StrToFloat(Edit1.Text);

if (a > 0) or (a < 100) then b :=3D 1.8 * a + 32;

if a > 100 then b :=3D 212;

if a < 0 then b :=3D 32;<= /o:p>

Edit2.Text :=3D FloatToStr(b);

Image1.Canvas.Pen.Color :=3D clRed= ;

Image1.Canvas.Brush.Color :=3D clW= hite;

Image1.Canvas.Rectangle(10,1,23,36= 0);

Image1.Canvas.Pen.Color :=3D clRed= ;

Image1.Canvas.Brush.Color :=3D clR= ed;

Image1.Canvas.Rectangle(10,round(3= 60-a),23,360);

Image2.Canvas.Pen.Color :=3D clBlu= e;

  Image2.Canvas.Brush.Color :=3D clWh= ite;

  Image2.Canvas.Rectangle(10,1,23,360= );

  Image2.Canvas.Pen.Color :=3D clBlue= ;

  Image2.Canvas.Brush.Color :=3D clBl= ue;

Image2.Canvas.Rectangle(10,round(3= 60-b),23,360);

end;=

procedure TForm1.Button1Click(Sender: TObject);

var = a, c, d : real;

begin

c :=3D StrToFloat(Edit2.Text);=

if (c > 32) or (c < 212) then d :=3D ( c - 32)/1.8;

if c < 32 then d :=3D 0;

if c > 212 then d :=3D 100;

Edit1.Text :=3D FloatToStr(d);=

Image2.Canvas.Pen.Color :=3D clBlue= ;

Image2.Canvas.Brush.Color :=3D clWh= ite;

Image2.Canvas.Rectangle(10,1,23,360= );

Image2.Canvas.Pen.Color :=3D clBlue= ;

Image2.Canvas.Brush.Color :=3D clBl= ue;

Image2.Canvas.Rectangle(10,round(36= 0-c),23,360);

Image1.Canvas.Pen.Color :=3D clRed;=

Image1.Canvas.Brush.Color :=3D clWh= ite;

Image1.Canvas.Rectangle(10,1,23,360= );

Image1.Canvas.Pen.Color :=3D clRed;=

Image1.Canvas.Brush.Color :=3D clRe= d;

Image1.Canvas.Rectangle(10,round(36= 0-d),23,360);

end;=

procedure TForm1.Button3Click(Sender: TObject);

begin

Edit1.Text :=3D '';

Edit2.Text :=3D '';

Image1.Canvas.Pen.Color :=3D clRed= ;

Image1.Canvas.Brush.Color :=3D clW= hite;

Image1.Canvas.Rectangle(10,1,23,36= 0);

Image2.Canvas.Pen.Color :=3D clBlu= e;

Image2.Canvas.Brush.Color :=3D clW= hite;

Image2.Canvas.Rectangle(10,1,23,36= 0);

end;=

procedure TForm1.Button4Click(Sender: TObject);

begin

Close;

end;=

procedure TForm1.Edit1Enter(Sender: TObject);

begin

   Button2.Visible :=3D true;

   Button1.Visible :=3D False;<= o:p>

end;=

procedure TForm1.Edit2Enter(Sender: TObject);

begin

Button1.Visible :=3D True;

Button2.Visible :=3D False;

end;

end.