3.3 Algoritma Menghitung akar-akar persamaan kuadrat

Masalah :
> Buatlah algoritma mencari akar - akar persamaan kuadratnya

Analisis :
> Input    : a,b,c
> Proses : mencari akar persamaan kuadrat
> Output : akar - akar kuadrat

Deklarasi :
> a,b,c : integer {Input}
> disk   : longin {output}
> x1,x2 : real {output}

Deskripsi :
> Read (a,b,c)
> Disk <-- b*b-4a*c
> if (a=0) then write ( Bukan persamaan kuadrat )
   else if disk>0 then
   x1 <-- (-b) + sqrt (disk)/2*a
     x2 <-- (-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)

Gambar Flowchart :