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)
0 comments:
Post a Comment