Diktat Bab 4 Kasus 4.3

Algoritma Persamaan_Kuadrat

{Menghitung akar-akar persamaan kuadrat Ax^2+Bx+C=0}

Deklarasi:
                A,B,C : integer

                Disk : logint

                X1,x2 : real

Deskripsi:

                Read (A,B,C)

                Disk ß B*B-4*A*C

                If(A=0) then write (‘Bukan persamaan kuadrat’)

                Else if disk >0 then

                                X1 (-B+ sqrt (disk)/2*A

                                X1 (-B- sqrt (disk)/2*A

                Else if disk = 0 then

                                X1 (-B/2*A

                                X2(x1

                Else write (‘Akar Imajiner’)

End if

Write(x1,x2)