Minggu, 06 Januari 2013

Program menghitung jumlah deret menggunakan repeat

Hai sobat blogger… pada sore hari ini saya ingin berbagi program ni buat sobat sekalian.
Program ini saya dapat ketika masih semester awal kuliah lalu.

Sedikit perkenalan, ini adalah program menghitung jumlah deret 1+2+3+...+N. Walaupun masih dalam masa-masa sibuk, saya berusaha untuk membuat postingan ini agar dapat membantu siapa saja yang membutuhkan.
Dalam pembuatan program deret ini, pertama saya membuatkan algoritma programnya. Setelah itu barulah program intinya dapat tereselesaikan. Kenapa harus pakai algoritma?

Karena algoritma dapat memudahkan seseorang dalam pembuatan program. Tanpa mengetahui algoritma suatu program, maka  program tersebut tidak akan berhasil di buat. 

Algoritma Program :

Program PenjumlahanDeret
{Menjumlahkan deret
        1 + 2 + 3 + … + N
Dengan N adalah bilangan bulat positif. Nilai N di baca terlebih dahulu. }
DEKLARASI
N : integer
I   : integer
Jumlah : integer

ALGORITMA
 Read (N)
Jumlah <= 0       { inisiasi jumlah deret dengan 0}
For  i   <= 1 to N     { ulangi penjumlahan deret sebanyak N kali }
Jumlah    <= jumlah + i
Endfor
Write (jumlah)

Berikut pembuatan program penjumlahan deret 1+2+3+...+N dengan menggunakan operator REPEAT

Program PENJUMLAHAN_DERET;
Var
    N : integer;
    I  : integer;
Jumlah: integer;

Begin
Write ('Berapa N ?') ; readln (N) ;
Jumlah:= 0;
I:= 1;
Repeat
Jumlah := jumlah + I ;
I := I + 1;
Until I > N;
Writeln ('Jumlah deret = ', Jumlah );
readln;
End.

Penjelasan program di atas adalah sebagai berikut :
Bentu umum pernyataan REPEAT  adalah :

Repeat
    Pernyataan
Until kondisi

Notasi ini mendasarkan pengulangan pada kondisi Boolean. Pernyataan di dalam badan kalang ( berisi dua instruksi yaitu, Jumlah := jumlah + I dan I := I + 1 )
Akan terus di ulang- ulang sampai kondisi bernilai true. Dengan kata lain, jika kondisi masih false (belum terpenuhi), proses pengulangan masih akan terus di lakukan.
Untuk lebih jelasnya telitilah :

Repeat
Jumlah := jumlah + I ;     { jumlah deret sekarang }
I := I + 1;     { suku deret berikutnya }
Until I > N;
Writeln ('Jumlah deret = ', Jumlah );

I harus terdefinisi nilainya sebelum pengulangan di laksanakan pertama kali. Oleh karena itu, pada bagian inisiasi, I diisi dengan nilai 1 yang menandakan ia adalah suku deret pertama. Untuk lebih jelasnya perhatikan di bawah

Write ('Berapa N ?') ; readln (N) ;
Jumlah:= 0;     { jumlah deret pertama }
I:= 1;     { karena bernilai 1, ini adalah suku deret yang pertama}
Repeat

Instruksi yang mengubah nilai peubah kondisi adalah pernyataan ( Jumlah := jumlah + I dan I := I + 1).Pernyataan ini mencacah jumlah pengulangan, sehingga jika I > N, pengulangan di hentikan.

Karena proses pengulangan suatu saat harus berhenti, maka di dalam badan pengulangan harus ada pernyataan yang mengubah nilai peubah kondisi ( I > N ) => pengulangan berhenti.

Pernyataan REPEAT memiliki makna yang sama dengan WHILE, dan dalam beberapa masalah kedua pernyataan tersebut komplemen satu sama lain.

Sekian program untuk menghitung jumlah deret, mudah-mudahan dapat bermanfaat bagi semua. Senang rasanya bisa membantu dengan sedikit pengetahuan yang saya miliki. Good bye selamat menyelesaikan tugas….

       


Artikel Terkait
Judul: Program menghitung jumlah deret menggunakan repeat; Ditulis oleh Al Mustakim; Rating Blog: 5 dari 5

2 komentar: