Akar-akar imajiner

uses wincrt;

var
a, b, c,i : integer;
x1, x2, D : real;

begin
write('masukkan koefisien a = '); readln(a);
write('masukkan koefisien b = '); readln(b);
write('masukkan koefisien c = '); readln(c);
D:=(b*b)-(4*a*c);
if D>=0 then
begin
x1:=((-b)+sqrt(D))/(2*a);
x2:=((-b)-sqrt(D))/(2*a);
writeln('x1= ',x1:2:4);
writeln('x2= ',x2:2:4);
end
else
begin
i:=-1;
D:=D/i;
writeln('x1=(' ,-b,' + ',sqrt(D):0:4,' i) / ',2*a);
writeln('x2=(' ,-b,' - ',sqrt(D):0:4,' i) / ',2*a);
end;
end.

Related Posts by Categories

Posted in: Pemrograman