Kamis, 10 Februari 2011

Program Mencari Persamaan Kuadrat

PersamaanKuadrat


 

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.

Reaksi:

0 komentar: