Struktur perulangan adalah suatu susunan perintah atau pernyataan yang dijalankan untuk melakukan proses berulang-ulang selama kondisi masih bernilai True atau kondisi masih dipenuhi. Proses perulangan akan berhenti apabila kondisi bernilai False atau kondisi menjadi tidak dipenuhi.
Terdapat tiga jenis struktur perulangan, yaitu :
a. Perulangan dengan statement For .. Do
b. Perulangan dengan statement While .. Do
c. Perulangan dengan statement Repeat .. Until
A. Perulangan dengan statement For .. Do
Perulangan dengan statement For .. Do adalah struktur perulangan dengan menggunakan suatu variabel kontrol yang berfungsi sebagai indeks atau counter. Terdapat dua jenis perulangan dengan menggunakan statement For .. Do, yaitu :
a. Perulangan menaik, dari kecil ke besar, atau disebut juga dengan perulangan positif. Perintah yang digunakan adalah For .. To .. Do.
b. Perulangan menurun, dari besar ke kecil, atau disebut juga dengan perulangan negatif. Perintah yang digunakan adalah For .. DownTo .. Do.
Struktur Perulangan For
Struktur perulangan For .. To .. Do adalah sebagai berikut :
For counter:=awal To akhir Do
Pernyataan atau blok pernyataan
Struktur perulangan For .. DownTo .. Do adalah sebagai berikut :
For counter:=awal DownTo akhir Do
Pernyataan atau blok pernyataan
Contoh 1
Susun program untuk menampilkan bilangan 1 s/d 5 berurutan.
Jawab :
Contoh 2
Susun program untuk menampilkan bilangan 5 s/d 1 berurutan.
Jawab :
Contoh 3
Susun program untuk menghitung jumlah dari data berikut : 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
Jawab :
Contoh 4
Susun program untuk menghitung nilai rata-rata data berikut : 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
Jawab :
Contoh 5
Susun program untuk menghitung nilai rata-rata data yang diinputkan.
Jawab :
Jika statement yang diulang lebih dari satu statement, maka penulisannya dapat dilakukan dengan menggunakan blok statement (diawali dengan Begindan diakhiri dengan End;).
contoh :
Program for_7;
var
i : integer;
begin
for i := 1 to 5 do
begin
write(i);
writeln(' Turbo Pascal');
end;
readln;
end.
Bila kode program diatas dijalankan, akan didapat hasil:
1 Turbo Pascal
2 Turbo Pascal
3 Turbo Pascal
4 Turbo Pascal
5 Turbo Pascal
Perulangan tersarang (nested-loop) adalah perulangan yang berada dalam perulangan lainnya.
contoh :uses crt;
var
i, j : integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
write(j, ' ');
writeln;
end;
readln; end.
Bila kode program diatas dijalankan, akan didapat hasil:
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
Demikian pembahasan dengan banyak contoh mengenai perulangan kali ini, mmm cukup pusiing dikit iiaa,,,, bawa ngopi+ngudud dulu ahhh ben tidak sepaneng,,hehe.
Hari ini saya telah membahas tentang perulangan FOR-DO, liat pembahasan selanjutnya dengan Perulangan menggunakan WHILE-DOdan REPEAT-UNTIL.
Tidak ada komentar:
Posting Komentar