Cara Merubah Celcius ke Farenheit dengan Delphi 7 dengan perulangan Refeat Until

1.Design Form

 cats
2.Design Properties
Objek
Caption
Name
Label1
Mencari Konversi suhu dari Celcius Ke Farenheit
 
Label2
Batas Awal
 
Label3
Batas Akhir
 
Label4
Penambahan
 
Label5
Hasil Dalam Celcius
 
Label6
Hasil Dalam Farenheit
 
GroupBox1
Menentukan Batasan Awal(dalam celcius)
 
GroupBox2
Daftar angka Dalam Konversi Suhu yang diPeroleh
 
Button
OK
ok
Button
CLOSE
close
ListBox1
celcius
ListBox2
farenheit
Edit1
awal
Edit2
akhir
Edit3
tambah
     
3. Ketentuan soal :

  1.  Batas Awal dan Batas Akhir diberikan untuk mengetahui nilai awal dan akhir derajat celcius yang ingin dihasilkan.
  2. Penambahan diberikan untuk memberikan penambahan dari awal untuk mencapai nilai akhir.
  3. Close adalah untuk keluar program.
  4. Rumus mencari Farenheit adalah = (1,8*Celcius) + 32.

4.Listing Program

unit Unit8;

interface

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

type
TForm8 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
awal: TEdit;
akhir: TEdit;
tambah: TEdit;
GroupBox2: TGroupBox;
celcius: TListBox;
farenheit: TListBox;
Button1: TButton;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button2: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);
var
d:integer;
g:integer;
h:Real;
k:Real;
begin
k:=strtofloat(tambah.Text);
d:=0;
g:=5;
repeat
d:=d+5;
h:=(9/5*d)+32;
awal.Text:=(floattostr(g));
akhir.Text:=(floattostr(d));
celcius.Items.add(inttostr(d));
farenheit.Items.add(floattostr(h));
tambah.SetFocus;
until d=20;
end;

procedure TForm8.Button2Click(Sender: TObject);
begin
if application.MessageBox(‘Anda Yakin Akan Keluar Dari Program Ini?’,’Informasi’,mb_yesno)=idyes then close;

end;

end.