Algoritma Menghitung akar-akar persamaan kuadrat
Analisis:
Inputa,b,c
Proses
- mencari akar-akar persamaan kuadrat.
- akar-akar kuadrat (output)
Algoritma
Deklarasi:- a,b,c : integer{Input}
- disk : longint{output}
- x1,x2 : real{output}
- 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:
Contoh program
Tidak ada komentar:
Posting Komentar