Program Menghitung Akar Persamaan Kuadrat dengan Turbo Pascal for Windows

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
nama : string;
coba: char;
a,b,c,d : integer;
 x1,x2 : real;



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
 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 (coba);

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


end.