Ni sekedar buat belajar bareng aja yah…..ea itung2 ni Program Persamaan Kuadrat buat persiapan besok ujian… hehhe jangan lupa koment… sapa tau ada yang salah…tapi biasanya kalau koment programnya jadi bener kok.. haha Monggo…
Program PersamaanKuadrat;
uses wincrt;
var a,b,c,d,x1,x2 :real;
begin
clrscr;
writeln(‘======================================’);
writeln(‘Menghitung akar-akar persamaan kuadrat’);
writeln(‘======================================’);
write(‘Masukkan nilai a=’);readln(a);
write(‘Masukkan nilai b=’);readln(b);
write(‘Masukkan nilai c=’);readln(c);
d:=(b*b) – (4*a*c);
if d < 0 then writeln(‘tidak ada akar real’)
else
begin
x1:=(-b + (sqrt(d)))/(2*a);
x2:=(-b – (sqrt(d)))/(2*a);
writeln(‘x1 =’,x1:6:2);
writeln(‘x2 =’,x2:6:2);
end;
readln;
end.
Jangan lupa komentarnya ya,,,,sapa tau ni program ada yang masih bisa disempurnain..he
Backlink
Populer Post
-
Kali ini saya akan memberikan cara join atau gabung 3 tabel.. atau menggabungkan beberapa data dari beberapa tabel... Oke langsung saja,,, ... -
Sekarang om-tedjo bakal share tentang dork lagi nih... kali ini om-tedjo bakal share tentang dork asp. langsung aja ya gan... ASP DORK ...
-
Buat kalian yang lagi cari atau hunting password ni gw kasih dork buat nyari password dan Db. Langsung aja disedot.. intitle:"Index o...
-
Yap mungkin sekarang kalian tau kalau setiap pada waktu tertentu atau moment tertentu Google sekarang bergambar unik bahkan gambar terse... -
IIS Vulnerability sharing folder Dork google inurl:.ah.cn/*.asp inurl:.bj.cn/*.asp inurl:.cq.cn/*.asp inurl:.fj.cn/*.asp inurl:.gd.c... -
The developed and developing world, as well as technology. Technology will continue to evolve rapidly. Android is an evidence of the de... -
MANUAL SQL INJECTION sekarang saya akan memberikan salah-satu cara step by step SQL Injection pada salah satu website. Hanya dengan maksu...
-
MIKROTIK STEP BY STEP Sekilas Mikrotik Mikrotik sekarang ini banyak digunakan oleh ISP, provider hotspot, ataupun oleh pemilik warnet...
{ 2 komentar... read them below or add one }
program perhitunganakarkuadrat;
uses
crt;
var
a : integer;
b : integer;
c : integer;
D : real;
x1 : real;
x2 : real;
Hasil:char;
function determinan(x:integer;y:integer;z:integer):real;
begin
determinan :=((y*y)-(4*x*z));
end;
procedure D<0(x:integer;y:integer;z:integer;var t:real;var u:real);
begin
t :=((-y)/(2*x));
u :=(sqrt(-1*((y*y)-(4*x*z))))/(2*x);
end;
procedure D=0(x:integer;y:integer;z:integer;var t:real;var u:real);
begin
t :=((-y)/(2*x));
u :=((-y)/(2*x));
end;
procedure D>0(x:integer;y:integer;z:integer;var t:real;var u:real);
begin
t :=(((-y)+(sqrt((y*y)-(4*x*z))))/(2*x));
u :=(((-y)-(sqrt((y*y)-(4*x*z))))/(2*x));
end;
procedure awal;
begin
clrscr;
write('Masukkan Bilangan 1 :');readln(a);
write('Masukkan Bilangan 2 :');readln(b);
write('Masukkan Bilangan 3 :');readln(c);
writeln('');
end;
procedure akhir;
begin
writeln('Akar Persamaannya :',a,'x^2+',b,'x+',c);
D :=determinan(a,b,c);
writeln('Determinan :',D:0:2);
writeln('');
if ( D < 0 )
then begin
D<0(a, b, c, x1, x2);
writeln('Akar Persamaan x1 :',x1:0:2,'+',x2:0:2,'i');
writeln('Akar Persamaan x2 :',x1:0:2,'-',x2:0:2,'i');
writeln('Dua akar imaginer yang berbeda,Tidak ada akar real!!');
end
else if ( D = 0 )
then begin
D=0(a, b, c, x1, x2);
writeln('Akar Persamaan x1 :',x1:0:2);
writeln('Akar Persamaan x2 :',x2:0:2);
writeln('Akarnya kembar');
end
else if ( D > 0 )
then begin
D>0(a, b, c, x1, x2);
writeln('Akar Persamaan x1 :',x1:0:2);
writeln('Akar Persamaan x2 :',x2:0:2);
writeln('Dua akar berlainan');
end;
readln;
end;
begin
awal;
akhir;
end.
ne gw buat gan!
Sip deh,,,udah master ni? :-)
Posting Komentar