1.2 Компоненты программы

Имя компонента	Тип компонента	Свойства компонента	Значение компонента	Событие
Edit1	TEdit	ввод	Text	OnChange
Edit2	TEdit	ввод	Text	OnChange
Button1	TButton	По Цельсию	Caption	OnClick
Button2	TButton	очистить	Caption	OnClick
Button3	TButton	По фаренгейгу	Caption	OnClick
Button4	TButton	закрыть	Caption	OnClick
Image1	TImage	картинка		OnClick
Image2	TImage	картинка		OnClick
Label1	TLabel	вывод	Caption	OnClick
Label2	TLabel	вывод	Caption	OnClick

1.3 Листингпрограммы

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text := '';

Edit2.Text := '';

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clWhite;

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

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

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

end;

procedure TForm1.Button1Click(Sender: TObject);

var a, b, c : real;

begin

a := StrToFloat(Edit1.Text);

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

if a > 100 then b := 212;

if a < 0 then b := 32;

Edit2.Text := FloatToStr(b);

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clWhite;

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

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clRed;

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

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

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

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clBlue;

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

end;

procedure TForm1.Button3Click(Sender: TObject);

var a, b, c : real;

begin

a := StrToFloat(Edit1.Text);

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

if a > 100 then b := 212;

if a < 0 then b := 32;

Edit2.Text := FloatToStr(b);

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clWhite;

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

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clRed;

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

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

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

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clBlue;

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

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text := '';

Edit2.Text := '';

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Brush.Color := clWhite;

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

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

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

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

Button2.Visible := true;

Button1.Visible := False;

end;

procedure TForm1.Edit2Change(Sender: TObject);

begin

Button1.Visible := True;

Button2.Visible := False;

end;

end.