Coding persamaan kuadrat

Assalamualaikum untuk ke 17 postingan sobat readers, hhehe. kali ini dan menit ini ane mau bagi-bagi coding turbo pascal nih, eh bukan bagi bagi, tepatnya membagikan sedikit pengetahuan tentang coding persamaan kuadrat. Alhamdulillah syukur, masih diberi kesempatan oleh yang maha kuasa menghirup milyaran oksigennya sehingga menggerakkan hati, raga, dan tangan ini untuk sekedar berbagi pengetahuan kepada teman teman. Walaupun dengan adanya coding program ini membuat semua jadi instan untuk mencari persamaan kuadrat, Semoga saja dapat digunakan dan dimanfaatkan sebagaimana mestinya. Selamat menikmati :D



program akar_persamaan_kuadrat;
uses wincrt;

var
coba: char;
a,b,c,D : integer;
 x1,x2 : real;



begin

repeat
 clrscr;

 writeln ('                         **Program Mencari Akar Persamaan Kuadrat**');
 writeln (' ');
 writeln (' ');
 writeln ('Bentuk Persamaan Kuadrat : ax^2+bx+c=0');
 writeln ( ' ');
 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 (' ');
 writeln ('Nilai Diskriminan = ', D);
 writeln(' ');

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

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


end.