Rumus Hitung di Delphi

Sebelum ke materi rumus, ada baiknya Anda pelajari dulu tentang tipe data yang umum digunakan seperti string, integer & real.

String : untuk karakter biasa               (str)

Integer : untuk bilangan                      (int)

Real : untuk bilangan sampai koma    (float)

Untuk mengubah tipe data caranya sangat mudah, sebagai contoh tipe string akan dirubah menjadi integer : strtoint( ). Untuk lebih jelasnya coba lihat cara menghitung luas segitiga di bawah.

1.      Siapkan 4 label, 3 Edit & 1 Button

Komponen	Name
Label1	Menghitung Luas segitiga
Label2	Alas
Label3	Tinggi
Button1	Hitung

2.      Pada event Onclick button1 ketikkan code berikut:

procedure TForm1.Button1Click(Sender: TObject);

var luas:Real;

begin

  luas:=strtofloat(Edit1.Text)*strtofloat(Edit2.Text)/2;

  edit3.Text:=floattostr(luas);

end;

end.

3.      Coba Run dan isi alas & tinggi, lalu klik button Hitung