PROGRAM KNVERSI SUHU MENGGUNAKAN DELPHI

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
input_c,output_f:integer;
begin
input_c:=strToint(edit1.Text);
output_f:=input_c*9 div 5+32;
edit2.Text:=intTostr(output_f);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
input_f,output_c:integer;
begin
input_f:=strToint(edit2.Text);
output_c:=input_f*5 div 9-32;
edit1.Text:=intTostr(output_c);
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

end.
Hasil Runing