Program PersamaanKuadrat;
uses wincrt;
var a,b,c,d,x1,x2:real;
begin
writeln('menghitung akar-akar persamaan kuadrat');
writeln('nilai a,b,c dimasukkan dengan jeda spasi');
write('masukan 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.
Tidak ada komentar:
Posting Komentar