Struktur Pengulangan

Struktur pengulangan secara umum terdiri dari atas dua bagian :

1. Kondisi pengulangan, yaitu ekspresi boolean yang harus dipenuhi untuk melaksanakan pengulangan
2. Badan (body) pengulangan, yaitu bagian algoritma yang diulang.

Struktur pengulangan disertai dengan:

1. Inisialisasi, aksi yang dilakukan sebelum pengulangan dilakukan pertama kali.
2. Terminasi, aksi yang dilakukan setelah pengulangan selesai dilaksanakan.

<inisialisasi>

awal pengulangan

badan pengulangan

akhir pengulangan

<terminasi>

inisialisasi dan terminasi bersifat optional (tidak selalu harus dituliskan.

Notasi konstruksi pengulangan dalam bentuk pernyataan :

1. Pernyataan FOR                 unconditional looping
2. Pernyataan WHILE
3. Pernyataan REPEAT

Pernyataan FOR

Kontruksi FOR digunakan untuk menghasilkan pengulangan sejumlah kali yang telah dispesifikasikan. Jumlah pengulangan diketahui atau dapat ditentukan sebelum eksekusi.

FOR menaik (ascending):

for pencacah ß nilai_awal to nilai_akhir do

    aksi

endfor

Keterangan:

1. Pencacah/counter harus bertipe integer atau karakter.
2. Aksi bisa satu atau lebih intruksi yang diulang.
3. nilai_awal harus lebih kecil dari nilai_akhir.
4. Pencacah diinisialisasi dengan nilai_awal dan pencacah akan bertambah satu sampai nilai pencacah sama dengan nilai_akhir.
5. Jumlah pengulangan terjadi adalah :

nilai_akhir – nilai_awal + 1

PROGRAM Banyak_HalloPakRasid

DEKLARASI
i   : integer

ALGORITMA

for iß1 to 10 do

    write(‘Hallo Pak Rasid’)

endfor                                            Buatlah programnya

PROGRAM JumlahDeret_Rasid

DEKLARASI
i,N,jumlah : integer

ALGORITMA

read(N)

jumlahß 0

for iß1 to N do

    jumlah ß jumlah + i

endfor  

write(jumlah)                                     Buatlah programnya

PROGRAM HitungRataRata_Rasid

DEKLARASI
i,N,jumlah,x    : integer

ratarata : real

ALGORITMA

read(N)

jumlahß 0

for iß1 to N do

    read(x)

    jumlah ß jumlah + x

endfor   

ratarataß jumlah/N

write(ratarata)                                    Buatlah programnya

FOR menurun (descending):

for pencacah ß nilai_akhir downto nilai_awal do

    aksi

endfor

Buatlah Algoritma dan Program Hitung mundur peluncuran ROKET.

Pernyataan WHILE

Bentuk umum :

while kondisi do

aksi

endwhile

Aksi akan dilaksanakan berulangkali selama kondisi bernilai true.

Jika kondisi false, badan pengulangan tidak akan dimasuki yang berarti pengulangan selesai.

PROGRAM Banyak_HalloPakRasid

DEKLARASI
i   : integer

ALGORITMA

iß1

while i <= 10 do

    write(‘Hallo Pak Rasid’)

    i ß  i + 1

endwhile                                          Buatlah programnya

Buatlah Algoritma dan Program dengan WHILE DO:

1. Mencetak angka sampai N.
2. Menghitung deret angka.
3. Menghitung rata rata.
4. Hitung mundur peluncuran roket.

Pernyataan REPEAT

Bentuk umum :

repeat

    aksi

until kondisi

Aksi di dalam badan diulang-ulang sampai kondisi bernilai true. Jika kondisi masih false, proses pengulangan masih terus dilakukan.

PROGRAM Banyak_HalloPakRasid

DEKLARASI
i   : integer

ALGORITMA

iß1

repeat

    write(‘Hallo Pak Rasid’)

    i :=  i + 1

until i >= 10                                        à Buatlah programnya

Buatlah Algoritma dan Program dengan REPEAT UNTIL:

1. Mencetak angka sampai N.
2. Menghitung deret angka.
3. Menghitung rata rata.
4. Hitung mundur peluncuran roket.

WHILE atau REPEAT

Pada konstruksi repeat, kondisi pengulangan diperiksa pada akhir pengulangan. Instruksi pengulangan dilaksanakan terlebih dahulu, baru pengetesan kondisi dilakukan.

Pada konstruksi while, kondisi pengulangan diperiksa di awal pengulangan . Instruksi di dalam badan pengulangan hanya dapat dilaksanakan bila pengetesan kondisi menghasilkan nilai true.

Membaca/Menulis dari/ke Arsip

Langkah pertama kitaharus membuat notepad dengan isi:

5

1 2 3 4 5

yang kemudian disimpan dengan nama data.txt

Program RataRata_Rasid;

uses wincrt;

var     i,x,N,jumlah : integer;

ratarata   : real;

Fin            : text;

begin

assign(Fin,’data.txt’);

reset(Fin);

read(Fin, N);

jumlah := 0 ;

while  i <= N do

begin

read(Fin, x);

jumlah := jumlah + x;

i := i + 1 ;

end;

ratarata := jumlah / N;

write(‘Jadi rata ratanya adalah : ‘,ratarata:0:2)  ;

end.

Daftar Pustaka:

Munir, Rinaldi. 2007.  Algoritma dan pemrograman dalam Bahasa Pascal dan C, Penerbit informatika. Bandung.

Motivasi

Jangan biarkan orang lain mempengaruhi ide dan keputusan Anda. Dalam lima tahun ke depan, Anda lah – bukan mereka – yang harus hidup dengan pilihan yang Anda buat
(Sarah Brklacich)

Bukalah mata sewaktu berjalan, karena bisa saja Anda akan bertemu kesempatan. Adapun kesempatan itu sendiri buta. Peganglah erat-erat, karena kesempatan datang dan pergi tanpa memberitahu
(Anonim)

Agak LUCU   Jika Hewan Punya Facebook
Kalau binatang punya Facebook, kira-kira statusnya apa aja ya?

Kecoak : Baru aja selamat dari injekan maut, yeah!

Sapi : Aku diraba-rabi lagi oleh majikanku

Kucing : Anak gue yang ke- 5 barusan nanya siapa bapaknya. Gue bingung mau jawab apa. Gue sendiri lupa bapaknya siapa?

Nyamuk: Ane positif HIV AIDS boooo

Ayam : Teman-teman…kalo besok gw ga update… berarti gw udah di goreng… i luv u all…

Cumi-cumi: Abis isi ulang tinta nich.

Babi: Gw difitnah nyebarin flu. Sialan!!

Kambing : Selamat lebaran haji kemarin ndak disembelih.