Program PersamaanKuadrat;
uses wincrt;
var a,b,c,d,x1,x2 :real;
begin
clrscr;
writeln('Menghitung akar-akar persamaan kuadrat');
writeln('Nilai a,b,c dimasukkan dengan jeda spasi');
write('Masukkan nilai a,b,c:');
readln(a,b,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.
14 responses to “Program untuk Mencari Akar Persamaan Kuadrat”
gmn neeh cara mencari akar pake metoda setengah selang gauss jordan error mulu pake pascal ato c++. thank
maaf bang!!
sedikit komentar!!
kayak nya itu salah deh!!
hasil nya jadi kebalik antara negatid dan positif!
makasih
@turangga
hmmm.. makasih masukannya… salahnya bagian mana ya?
bang saya dpt tugas buat program kurang lebih kayak gini..
tp ada satu dua lagi tambahan syarat soal saya.. sehingga saya harus modifikasi ini script
programnya sudah berhasil
jadi kurang lebih postingan ini sangat berguna
thanks bgt
tapi
krna sy masih awam pascal saya pengen nanya
writeln(‘x1 =’,x1:6:2);
writeln(‘x2 =’,x2:6:2);
pada script bagian diatas ini kenapa x1:6:2 ya?
6:2 tu apanya ya??
mohon info thanks :D
angka 6:2 klo g salah untuk menentukan hasilnya, ingin berapa angka di belakang koma :)
oiya bang, cara screenshot source code itu caranya gimana?? supaya source codenya bisa langsung dicopy dari screenshot seperti punya abang..
terima kasih,
mohon dijawab!!
thx atas infox gan…
thanks yeah buat pembelajarannya…
Klo blh saya ksih msukan,,Menurut saya hanya kurang tanda “()” ja.
x1:=(-b + (sqrt(d)))/(2*a);
x2:=(-b – (sqrt(d)))/(2*a);
Nach yg bnr gn : x1:=(-(b) + (sqrt(d)))/(2*a);
x2:=(-(b) – (sqrt(d)))/(2*a);
Mf y kwan jka aq dh sok ngsh tw tp ne cm demi ilmu qt smua brsama. . .!!!
Slam shabat dari Maduro. . .
6:2 : ditampilkan 6 digit dengan 2 digit angka desimal
contoh : 123456.12
hmm boleh request buat pertidaksamaan kuadratnya ga?
makasih om udah dikasih penerangan sedikit saya sekarang jadi mengerti ;)
maksih om he-he-he
makasih banget sangat membantu
mereparasi program yang eror
hehehe :)
klo buat cari ini gimana yah Algoritma Babel untuk menghitung akar kuadrat dari 2