NuSinau

Program untuk Mencari Akar Persamaan Kuadrat

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.

Sahabat

14 responses to “Program untuk Mencari Akar Persamaan Kuadrat”

  4. 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

  5. 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!!

  8. 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. . .

Leave a Reply