Jumat, 21 Maret 2014

Pertemuan 04. Tugas PPT 3. Algoritma untuk menghitung deret pecahan


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
← 1   {suku pertama}
 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)

Tidak ada komentar:

Posting Komentar