#Program_Komputer | Program Menghitung Akar Real Polinom Kuadrat

Program Menghitung_Akar_Real_Polinom_Kuadrat;
Uses dos, crt;
Var
   ch:char;
   a,b,c,d,akar1,akar2:real;
Begin
     Clrscr;
     Write('Masukkan koefisien a = ');
     Readln(a);
     Write('Masukkan koefisien b = ');
     Readln(b);
     Write('Masukkan koefisien c = ');
     Readln(c);
     d:=sqr(b)-(4*a*c);
     If d>0 Then
     Begin
          akar1:=(-b+sqrt(d)/(2*a));
          akar2:=(+b+sqrt(d)/(2*a));
          Writeln;
          Writeln('Akar-akar real dari polinom adalah : ');
          Writeln('x1=',akar1:10:5);
          Writeln('x2=',akar2:10:5);
          End;
          Write('Tekan sembarang untuk melanjutkan!');
          ch:=readkey;
     End.