Algoritma Persamaan Kuadrat

Program Persamaan_Kuadrat
{Dibaca koefisien persmaan kuadrat tampilkan akar dan jenisnya}

Deklarasi :
a, b, c : integer
D, x, x1, x2 : real

Algoritma :
read (a, b, c)
if a=0 then
         write('bukan persamaan kuadrat')
else
         D ? (b*b) - (4*a*c)
         if (D < 0) then
                 write ('akar-akanya imajiner')
                 else if (D = 0) then
                        x ? (-b/2)*a
                        write ('akar-akarnya kembar', x)
                        else
                            write ('akar-akarnya berbeda')
                            x ? (-b + ( sqrt (D)))/2 *a
                            x ? (-b - ( sqrt (D)))/2 *a
                            write (x1, x2)
                        endif
                endif
endif