Menghitung 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 :

Gambar C++ dari aplikasi Dev C++ :