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)