Selamat datang di blogspot Rahbir Fikom Unimus

rahbir-fikom.blogspot.co.id SELAMAT DATANG di blog Rahbir Fikom Unimus.., Jangan lupa berkomentar di blog...!! Semoga kunjungannya bisa bermanfaat ==DENGAN KEYAKINAN DAN KETEGUHAN ANDA PASTI BISA==

Source Code Program Mencari Akar Persamaan Kuadrat di Delphi 7

sebelumnya saya sudah posting tentang membuat kalkulator scientist sederhana menggunakan delphi,,kalo ada yang kurang jelas tolong ditanyakan yah. kita sama-sama belajar. ..NAAAH, sekarang saya akan posting tentang program Mencari akar-akar persamaan kuadrat menggunakan Delphi 7..silahkan pelajari code dibawah ini dan download juga file lengkapnya via ziddu…….
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e,x1,x2:real;

begina:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
d:=(b*b)-(4*a*c);
if a=0 then
begin

label11.Caption:=’bukan bentuk persamaan kuadrat’;
label10.Caption:=edit1.Text;
label8.Caption:=edit2.Text;
label9.Caption:=edit3.Text;
end
else
if
d=0 then
begin

label11.Caption:=’Mempunyai akar-akar real dan kembar’;
label10.Caption:=edit1.Text;
label8.Caption:=edit2.Text;
label9.Caption:=edit3.Text;
x1:=(-b)/2*a;
x2:=(-b)/2*a;
edit4.text:=floattostr(x1);
edit5.text:=floattostr(x2);
end
else
if
d>0 then
begin

label11.Caption:=’Mempunyai akar-akar real dan berlainan’;
label10.Caption:=edit1.Text;
label8.Caption:=edit2.Text;
label9.Caption:=edit3.Text;
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
edit4.text:=floattostr(x1);
edit5.text:=floattostr(x2);
end
else
if
d<0 then
label11.Caption:='mempunyai akar-akar imajiner';
label10.Caption:=edit1.Text;
label8.Caption:=edit2.Text;
label9.Caption:=edit3.Text;
x1:=(-b/2*a)+(sqrt(-1*d)/2*a);
x2:=(-b/2*a)-(sqrt(-1*d)/2*a);
edit4.text:=floattostr(x1)+' i';
edit5.text:=floattostr(x2)+' i';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
label10.caption:='';
label8.caption:='';
label9.caption:='';
label11.caption:='';
end;
end.

No comments:

Post a Comment

Periksa PageRank langsung dari halaman website anda:

Alat Pemeriksa pagerank ini didukung oleh Page Rank Checker Layanan