Program Mencari Akar-Akar Persamaan Kuadrat

Nah , ini dia ni program awal yang saya ciptakan , ya namanya juga orang baru belajar, hehe :P , buat semua yang punya komentar membangun jangan ragu ya buad di comment ,, sipa tahu gw bisa jadi programmer yang baik nantinya .. :D

Sintaks di bawah ini menggunakan bahasa Pascal,,

Semoga membantu... :D

program Mencari_Akar_Persamaan_Kuadrat;

uses crt;

var

   a,b,c,D,x1,x2,x1i,x2i:real;

Begin

     clrscr;

     writeln('********************************************************');

     writeln('*--Selamat Datang di Program Pencarian Akar Persamaan--*');

     writeln('*-------Bentuk umum persamaan kuadrat = ax^2+bx+c------*');

     writeln('********************************************************');

     writeln(' ');

     write('Tekan ENTER untuk mulai memasukkan nilai a, b, c');

     readln;

     writeln(' ');

     write('input nilai a : ');

     readln(a);

     write('input nilai b : ');

     readln(b);

     write('input nilai c : ');

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

     write('Maka didapat nilai D adalah ', D:0:2);

     readln;

     if D > 0 then

        Begin

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

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

             writeln(' ');

             writeln('KESIMPULAN : ');

             write('Akar-akarnya antara lain : x1 = ', x1:0:2);

             write(' dan x2 = ', x2:0:2);

             readln;

        End;

     if D = 0 then

        Begin

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

             x2:=x1;

             writeln(' ');

             writeln('KESIMPULAN : ');

             write('x1 = x2 yaitu ', x1:0:2);

             readln;

        End;

     if D < 0 then

        Begin

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

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

             writeln(' ');

             writeln('KESIMPULAN : ');

             write('Akar-akarnya imajiner antara lain : x1i = ', x1:0:2);

             write(' dan x2i = ', x2:0:2);

             readln;

        End;

End.