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 );

[+/-] Selengkapnya...

[+/-] Ringkasan saja...

Akses data langsung

Seorang sekretaris memerlukan satu program sederhana yang dapat membantunya mengetahui nomor telepon seorang dengan cepat tanpa harus membuka buku agenda.

Andaikan nama-nama orang tersebut adalah sebagai berikut :

Andi (0411) 324-678
Charles (021) 434-6783
Daud (022) 256-1234
Pedro (0411) 567-342
Deblenk (0411) 344-235
Doni (021) 765-0856
Andri (0421) 123-876

Analisis :

1. Ketika program di jalankan maka muncul permintaan untuk memasukkan satu nama

2. Nama ini kemudian di cari,misalnya dengan rentetan if/then/else atau dengan instruksi case().

3. Bila nama tersebut ketemu maka nomor teleponnya di tampilkan.

4. Bila nama tersebut tidak ada maka tampilkan "nama tersebut tidak ada!".


Algoritma Buku_telepon
(mencari nomor telepon seseorang)

Deklarasi
string nama,notelp;

Deskripsi
write ("ketik namanya :");
read (name);

case (nama);
'Andi' : notelp <- '(0411) 324-678';
'Charles' : notelp <- '(021) 434-6783';
'Daud' : notelp <- '(022) 256-1234';
'Pedro' : notelp <- '(0411) 567-342';
'Deblenk' : notelp <- '(0411) 344-235';
'Doni' : notelp <- '(021) 765-0856';
'Andri' : notelp <- '(0421) 123-876';
default : notelp <- 'nama tsb tdk ada';

endcase

write (notelp);

[+/-] Selengkapnya...

[+/-] Ringkasan saja...