program Menghitung Akar di delphi

Belajar membuat Program Menghitung akar

Selasa, 03 Februari 2009

Langka-langkanya adalah sebagai berikut :
1.Disainla sebuah for seperti pada gambar 14 dibawa ini. Program ini 

hanya mengunakan satu edit, dua tombol dan tiga buah label.

Gambar 14.
2.Ketikan code berikut pada code editor.
Untuk tombol Proses ada ketikan code berikut :
procedure TForm1.Button1Click(Sender: TObject);
var x : real;
AkarDariX : real;
begin
// ubah input dari Edit1 yg bertipe string ke tipe real
x := StrToFloat (Edit1.Text);
// hitung akar dari x, disimpan sbg AkarDariX
AkarDariX := sqrt (x);
// tampilkan keterangan
Label4.Caption := 'Akar dari ' +' ' + Edit1.Text+ ' ' + 'adalah';
// hasil perhitungan
Label2.Caption := FloatToStr (AkarDariX);
// memindah fokus ke Edit1
Edit1.SetFocus;
end;

Untuk tombol keluar anda masukan tombol berikut ini :
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
End;