menghitung akar-akar persamaan kuadrat Ax^2+Bx+C

analisis:

persamaan kuadrat adalah persamaan dgn bentuk umum Ax²+Bx+C=0 ,

dan tentu saja dgn A≠0. Akar persamaan kuadrat diperoleh dgn rumus:

X_1,2= -b±sqrt b²-4ac/2a

bila b²-4ac<0 akan diperoleh akar imajiner.

Deklarasi:

A,B,C: int (koefisien-koefisien persamaan)

disk :longint (nilai diskriminan)

X1,X2 : real (nilai-nilai akar untuk disk>=0)

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

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)

berikut gambar flowchartnya: