3.3 Algoritma Mencari Akar akar Persamaan Kuadrat

Deklarasi :
a,b,c : integer {input}
Disk : Longint {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)


 Flowchartnya adalah :

Program c++ nya adalah :

outputnya adalah :