progam mencari akar-akar persamaan kuadrat
Program Akar-akar persamaan kuadrat;
uses wincrt;
var a,b,c,D,x1,x2:real;
begin
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');
begin
x1:=(-b+(sqrt (D)))/(2*a);
x2:=(-b-(sqrt (D)))/(2*a);
writeln ('x1=',x1:6:2);
writeln ('x2=',x2:6:2);
end;
end.
0 komentar:
Posting Komentar