Soru 21: İkinci dereceden denklemin köklerini bulan program

{Ikinci dereceden denklemin köklerini bulan program}

program poli_kok;

uses crt;

var

  a,b,c,delta:real;

begin

  clrscr;

  writeln('Denklemin katsayılarını giriniz ax² + bx + c = 0');

  write('a = ');

  readln(a);

  write('b = ');

  readln(b);

  write('c = ');

  readln(c);

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

  if delta<0 then

     write('Bu denklemin gerçek kökü yoktur.');

  if delta=0 then

     write('Bu denklemin bir adet gerçek kökü vardır :',

            -B/(2*A));

  if delta>0 then

    begin

      writeln('Bu denklemin iki adet gerçek kökü vardır :');

      write(((-b+sqr(delta))/(2*a)):12:2,' ve ',((-b-    

            sqr(delta))/(2*A)):12:2);

    end;

  readkey;

end.