Algoritma untuk menghitung nilai dari 1 - 1/2 + 1/3 - 1/4 +....+ 1/n

Algoritma PenjumlahanDeretPecahan

{Menjumlahkan deret dengan bentuk pecahan 1-1/2+1/3-1/4+…1/n. Nilai n dibaca, ditentukan terlebih dahulu}

Deklarasi :

jumlah  : real       {jumlah deret}

n          : integer  {penyebut pada suku terakhir, n >0}

i           : integer  {suku ke-i}

p          : integer  {penyebut suku ke-i}

Algoritma :

read(n)

jumlah ← 0

i ← 1   {suku pertama}

p ← 1  {penyebut suku pertama}

while p ≤ n do

                        if i mod 2 = 1 then   {suku ke-i ganjil}

                                    jumlah ← jumlah + 1/p

                        else

                                    jumlah ← jumlah – 1/p

                        endif

                        i ← i+1    {tinjau suku berikutnya}

                        p ← p + 1    {tinjau penyebut suku berikutnya}

endwhile

{p > n}

write(jumlah)