PASCAL "Persamaan Kuadrat"

PASCAL “ Persamaan Kuadrat”

Program persamaan_kuadrat;

uses WinCrt;

var a,b,c: integer;

    d, x1, x2:real

begin

     clrscr;

     write('masukkan koefisien persamaan kuadrat:');

     readln (a,b,c);

     writeln('persamaan kuadrat:',a,'x^2+',b,'x+',c);

     if a=01 then write ('ini bukan persamaan kuadrat')

else

begin

     d:=(b*b)-4*a*c;

     if d>0 then

begin

     writeln('persamaan kuadrat ini memiliki akar yang berbeda');

     x1:=(-b+sqrt(d))/(2*a);

     x2:=(-b-sqrt(d))/(2*a);

     writeln('akar-akarnya:',x1:3:2,' dan ',x2:3:2);

end

else if d=0 then

begin

     writeln('punya akar kembar');

     x1:=-b/(2*a);

     writeln('akar-akarnya:',x1:3:2);

end

else

    writeln('persamaan kuadrat anda berakar kompleks');

end;

end.