Algoritma Menghitung Akar Persamaan Kuadrat Turbo Pascal

Berikut ini adalah sintak untuk membuat program sederhana menghitung akar persamaan kuadrat dengan menggunakan Turbo Pascal for Windows.

program akar_persamaan_kuadrat;

uses wincrt;

var

   a,b,c,d : integer;

   x1,x2   : real;

   nama    : string;

   jawab   : char;

begin

repeat

 clrscr;

 writeln('                         Mencari Akar Persamaan Kuadrat');

 writeln;

 writeln;

 writeln ('Bentuk Persamaan Kuadrat : ax^2+bx+c=0');

 write ('Masukkan Nilai a = ') ;readln (a);

 write ('Masukkan Nilai b = ') ;readln (b);

 write ('Masukkan Nilai c = ') ;readln (c);

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

 writeln (' D = ', d);

 if d < 0 then

 begin

    writeln ('Persamaan Kuadrat Tersebut Mempunyai Akar yang Immaginier');

 end

 else

  if d=0 then

  begin

    writeln ('Persamaan Kuadrat Tersebut Mempunyai Akar yang Sama');

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

    writeln('x1,x2 = ', x1:0:2);

   

  end

  else

   if d > 0 then

   begin

   writeln ('Persamaan Kuadrat Tersebut Mempunyai 2 Akar Real yang Berbeda');

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

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

   writeln ('x1 = ',x1:0:2);

   writeln ('x2 = ',x2:0:2);

   end;

 writeln;

writeln ('                                Terima Kasih');

 write ('coba lagi? (Y or N):  '); readln (jawab);

until (jawab = 'N') or (jawab = 'n');

end.