Source Code Delphi 7 Persamaan Kuadrat dengan Rumus ABC - Ini salah satu tugas gue yang disuruh sama dosen gue, kata yang lain sih dosen killer gitu tapi kalo kata gue mah, serem, haha! Waktu itu karena, masih awal-awal masuk kelas jadi doi ngasih pemanasan buat bikin ginian. Sebelom dapet tugas ginian gue juga 'lagi' mainin Delphi, ya coba-coba bikin 'Ojek' sendiri tapi ya gitu, gak pernah gue coba lagi dan hasilnya nihil.
Kalo diliat dari bahasa pemrograman yang lain sih, menurut gue cukup gampang kalo emang di seriusin buat Delphi. Apalagi tinggal Drag & Drop doang, tambah gampang aja kalo gitu. Pernah sekali nyoba buat tugas dari dosen ini juga pake Delphi juga, bisa dibilang kalo pas di otak gue mah gampang aja gitu eh, pas gue terapin di Delphi, modar gue, haha! Beralih ke yang lebih gampang lagi dari Delphi.
Source yang gue share kali ini tentang perhitungan persamaan kuadrat dengan rumus ABC. Rumus pastinya gue gak hafal, pokoknya ada variabel a, b , sama c aja. Coba liat langsung aja mendingan.
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,x1,x2:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
d:=(b*b)-(4*a*c);
edit7.Text:=floattostr(d);
if d=0 then
begin
x1:= -b/(2*a);
x2:= -b/(2*a);
edit4.Text:=floattostr(x1);
edit5.Text:=floattostr(x2);
edit6.Text:='Mempunyai akar-akar real dan kembar';
end;
if d< 0 then
begin
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';
edit6.Text:='Mempunyai akar-akar imajiner';
end;
if d>0 then
begin
x1:=(-b+sqrt((b*b)-(4*a*c)))/(2*a);
x2:=(-b-sqrt((b*b)-(4*a*c)))/(2*a);
edit4.Text:=floattostr(x1);
edit5.Text:=floattostr(x2);
edit6.Text:='Mempunyai akar-akar real dan berlainan';
end;
end;
Kurang lebihnya sih kaya gitu, nyari nilai diskriminannya dulu baru deh nilainya dimasukin, apa gimana gue juga kurang tau apa yang mesti dicari gitu, haha. Nah, untuk. Nah, untuk lebih jelasnya mengenai source code diatas dan biar lebih gampang, gue udah nyediain link downloadnya dibawah, Silakan download my friend.
Segini aja dulu buat Source Code Delphi 7 Persamaan Kuadrat dengan Rumus ABC lain kali gue postlagi kalo emang ada source yang mesti gue share dimari. Regards.
EmoticonEmoticon