Menjumlahkan Deret

Buatlah sebuah algoritma untuk menghitung jumlah deret dengan N buah suku sebagai berikut :

S = 1 - 1/2 + 1/4 - 1/6 + 1/8 - 1/10 + 1/12 - 1/14 + ...

Analisis :

1. Ketika di jalankan maka akan ada permintaan untuk memasukkan jumlah suku N.

2. Bila di perhatikan maka tanda berselang-seling positif dan negatif;pada posisi
ganji maka tandanya positif dan pada posisi genap maka tandanya negatif.

3. Nilai yang di jumlah kan adalah kelipatan dari (1/2) yang di kalikan sesuai
dengan posisinya,mula-mula 1/2 kemudian 1/(2*2), 1/(2*3),...


Algoritma Jumlah_Deret
(menjumlahkan deret bersuku N)

Deklarasi
Integer N,cacah k;
real S;

Deskripsi
write (" Berapa banyak suku ? ");
read (N);

S <- 1;
cacah <-1;
k <- 0;

while ( cacah < = N ) do
cacah <- cacah + 1;
k <- k + 2;
if (cacah % 2 = 0 )
then S <- S - 1/k;
else S <- S + 1/k;
endif.
endwhile.

write ( "Jumlah deret = ",S );





Algoritma Jumlah_Deret_V2
(cara lain untuk menghitung jumlah deret)

Deklarasi
Integer cacah,N,k,tanda;
real S;

Deskripsi
write (" Berapa banyak suku ? ");
read (N);

S <- 1;
cacah <-1;
k <- 0;
tanda <- +1;

while ( cacah < = N ) do
k <- k + 2;
cacah <- cacah + 1;
tanda <- (-1)* tanda;
S <- S + tanda * (1/k);
endwhile.

write ( "Jumlah deret = ",S );