Coding Persamaan Kuadrat

"Logic will get you from A to B, but imagination will take you everywhere"

- Albert Einstein -

Assalamualaikum readers..
Kali ini saya mau memposting coding TPW kembali. Karena sebelumnya saya sudah memposting tentang pertidaksamaan kuadrat maka kali ini saya akan memposting kembar tak siamnya yaitu persamaan kuadratnya. Semoga bermanfaat dan bisa kalian jadikan referensi belajar yah buat kalian. Sok langsung disimak..

Program deskriminan_akar;
uses wincrt;
var
D, a, b, c, x, x1, x2 : real;

Begin
   Writeln ('PROGRAM AKAR KUADRAT');
   Writeln ('====================');
   Writeln;
   Writeln ('Masukkan data kalian!');
   Writeln ('Contoh : a x^2 + b x + c');
   Writeln;
   Write ('nilai a= '); readln (a);
   Write ('nilai b= '); readln (b);
   Write ('nilai c= '); readln (c);

   Writeln;
   Writeln ('Data anda adalah " ',a:2:2,' x^2 + ',b:2:2,' x + ',c:2:2,' "');

   Writeln;

   D:= SQR (b) - (4*a*c);

   Writeln ('Nilai deskriminan data anda adalah ',D:2:2);

   Writeln;


   if D<0 then
   begin
    writeln ('Jenis akar anda adalah "IMAJINER"');
   End

   else

   if D>0 then
   Begin
    Writeln ('Jenis akar anda adalah "AKAR REAL DAN BERLAINAN"');

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

   Writeln ('Akar-akarnya= ',x1:2:2,' dan ',x2:2:2);
   end

   else

   if D=0 then
   begin
    Writeln ('Jenis akar anda adalah "AKAR REAL DAN KEMBAR"');

    x:= (-b/2*a);
    Writeln ('Akar-akarnya = ',x:2:2);
   end;

End.