PROGRAM Menentukan_Akar_Persamaan_Kuadrat

PROGRAM Menentukan_Akar_Persamaan_kuadrat;

Uses wincrt;

Var

a,b,c,D,X1,X2,pk:real;

Begin

Write('masukkan nilai a=');

Readln(a);

Write('masukkan nilai b=');

Readln(b);

Write('masukkan nilai c=');

Readln(c);

writeln('pk=',a:0:0,'x2 +',b:0:0,'x1',c:0:0,'=0');

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

Begin

X1:=(-b+sqrt(D))/2*a;

X2:=(-b+sqrt(D))/2*a;

Writeln('X1=',X1:10:1);

Writeln('X2=',X2:10:1);

End;

End.