Kasus 3.3

Kasus 3.3.
Mencari akar-akar persamaan kuadrat

Analisis:

• Input: a,b,c
• Proses: mencari akar-akar persamaan kuadrat.
• Output: akar-akar 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)

FLOWCHART

kasus 3.1 dan 3.2 disini

kasus 3.4 dan 3.5 disini