Thursday, 5 April 2012

Menentukan Nilai Akar dengan Delphi

harus lebih banyak postingan.......!!!!! semangat!!!!
kali ini tentang menentukan nilai akar.....
untuk kode d event onclick pada buttonnya seperti ini.

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;

screenshoot hasil programnya.



bagi yang mau download source codenya, silahkan klik disini.

0 comments:

UbaidRahman