Program untuk Mencari Akar Persamaan Kuadrat
Jun 28, 2009 9 Comments
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.
Kata Kunci
mencari akar, persamaan kuadrat, program persamaan kuadrat, mencari akar persamaan kuadrat, pangkat dan akar kuadrat pascal, penulisan akar pada program pascal.
Related posts:
- Program Mencari Rata-rata, Nilai Tertinggi dan Terendah
- Program Mencari Nilai Mata Uang
- Program untuk Mengurutkan Data dengan Metode RADIX SORT
- Program GJE (Gauss Jordan Exchange) dengan Pascal
- Program Banyak Huruf dalam Kalimat
- Program Penilaian Mahasiswa
- Menghitung Hambatan
- Program PSB SMA Ver.1 Pascal
- Program Input Nilai Mahasiswa
- STRUKTUR CASE OF ELSE
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