Program Mencari_akar2_persamaan_kuadrat Menggunakan FREE PASCAL

Struktur umum  persamaan kuadrat adalah ax2 + bx + c
dari persamaan tersebut dapad di gunakan untuk mencari nilai dari x1 dan x1. Pencarian nilai tersebut menggunakan rumus:

Untuk mempermudah pencarian nilai x1 dan x2 tersebut dapat menggunakan FREE PASCAL
dengan script program sebagai berikut:

Program Mencari_akar2_persamaan_kuadrat;
Uses crt;
Var  a, b, c : integer;
     det1, det2, x1, x2 : real;
Begin
     Clrscr;
     Write('Masukkan nilai a = '); Readln (a);
     Write('Masukkan nilai b = '); Readln (b);
     Write('Masukkan nilai c = '); Readln (c);
        det1:=(sqr(b))-(4*a*c);
        det2:=sqrt(abs(det1));
        x1:=((-b)+det2) /(2*a);
        x2:=((-b)-det2) /(2*a);
        writeln('det = ',det1:2:2);
     Writeln('Jika sebuah persamaan kuadrat dengan nilai');
     Writeln('a = ',a);
     Writeln('b = ',b);
     Writeln('c = ',c);
     Writeln('Maka akar-akar persamaannya adalah : ');
     Writeln('x1 = ',x1:2:2);
     Writeln('x2 = ',x2:2:2);

     Readln;
End.