NuSinau

Program PersamaanKuadrat;
uses wincrt;
var a,b,c,d,x1,x2 :real;
begin
  clrscr;
  writeln('Menghitung akar-akar persamaan kuadrat');
  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')
  else
  begin
    x1:=(-b + (sqrt(d)))/(2*a);
    x2:=(-b - (sqrt(d)))/(2*a);
    writeln('x1 =',x1:6:2);
    writeln('x2 =',x2:6:2);
  end;
  readln;
end.