Jumat, 22 Maret 2013

Kasus 3.3

Algoritma Menghitung akar-akar persamaan kuadrat

Analisis: 

    Input
         a,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}
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:


Contoh program

Tidak ada komentar:

Posting Komentar