Source Code Program Mencari akar dengan Delphi 7

Properties Form seperti berikut :

Label1                   : Caption : Bilangan

Label2                   : Caption : Hasil

Label3                   : Caption : …

Edit1                      : Teks : kosongkan

Button1                : Caption : Hitung

Button2                : Caption : Keluar

 

Klik double Button1 lalu ketik procedurnya :

procedure TForm1.Button1Click(Sender: TObject);

var x : real;

akarx : real;

begin

x:=strtofloat(edit1.Text);

akarx:=sqrt(x);

label2.Caption:='akar '+''+edit1.Text +''+' adalah ';

label3.Caption:=floattostr(akarx);

edit1.SetFocus;

end;

Klik double Button2 lalu ketik procedurnya :

procedure TForm1.Button2Click(Sender: TObject);

begin

application.Terminate;

end;

Hasil Programnya setelah di Jalankan :

 

Selamat Mencoba ...yaa kawan-kawan......