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

Algoritma Penjumlahan Deret Pecahan
{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)