Perulangan
Pengulangan (loop) merupakan bentuk yang sering
ditemui di dalam suatu program aplikasi. Di dalam bahasa Pascal, dikenal tiga
macam perulangan, yaitu dengan menggunakan pernyataan For, While-Do, dan
Repeat…Until.
1.1
Struktur Perulangan For
Perulangan dengan pernyataan For digunakan
untuk mengulang pernyataan atau satu blok pernyataan berulang kali sejumlah
yang ditentukan. Perulangan dengan pernyataan For dapat
berbentuk perulangan positif, perulangan negatif dan perulangan tersarang.
1.
Perulangan positif.
Perulangan positif adalah perulangan dengan penghitung
dari kecil ke besar atau pertambahan positif. Perulangan positif dapat dibentuk
dengan menggunakan pernyataan For-To-Do, dengan bentuk umum:
For variabel-kontrol:=nilai awal To
nilai akhir Do pernyataan
Variabel kontrol, nilai awal, nilai akhir harus
betipe integer
Contoh
Var
I:Integer;
Begin
For I:= 1 to 5 Do Writeln(‘Pascal’);
End.
Bila program dijalankan akan menghasilkan:
Pascal
Pascal
Pascal
Pascal
Pascal
Penjelasan:
Pernyataan Writeln(‘Pascal’) akan diulang sebanyak 5 kali,
yaitu dengan penghitung dari nilai awal 1 sampai dengan nilai akhir 5.
Apabila pernyataan diulang lebih dari satu pernyataan
maka seteleh DO harus memakai Begin kemudian
beberapa pernyataan yang akan diulang dan diakhiri dengan End;.
Contoh
Var
I:Integer;
Begin
For I:= 1 to 2 Do
Begin
Write(‘Pascal’);
Writeln(‘Turbo’);
End;
End.
Bila program dijalankan akan menghasilkan:
PascalTurbo
PascalTurbo
2.
Perulangan negatif
Perulangan negatif adalah perulangan dengan penghitung
dari besar ke kecil atau pertambahan negatif. Perulangan negatif dapat dibentuk
dengan menggunakan pernyataan For-DownTo-Do, dengan bentuk
umum:
For variabel-kontrol:=nilai awal DownTo
nilai akhir Do penyataan
Contoh
Var
I:integer;
Begin
For I:=5 downto 1 do
Begin
Writeln(I);
End;
End.
Bila program dijalankan maka akan menghasilkan:
5
4
3
2
1
3.
Perulangan tersarang
Perulangan tersarang adalah perulangan yang berbeda di
dalam perulangan yang lainnya. Perulangan yang lebih dalam akan diproses
terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan
akan bertambah, mengerjakan perulangan yang lebh dalam lagi mulai dari nilai awalnya
dan seterusnya.
Contoh
Var
I,J:Integer;
Begin
For I:=1 to 5 Do
Begin
For j:=1 to 3 Do
Begin
Write(I:8,J:3);
End;
Writeln;
End;
End.
Bila program dijakankan akan menghasilkan:
1
1 1 2 1 3
2
1 2 2 2 3
3
1 3 2 3 3
4
1 4 2 4 3
5
1 5 2 5 3
Perulangan tersarang banyak digunakan dalam aplikasi
matrik dengan menggunakan variabel tipe larik. (Lebih lanjut akan di bahas pada
materi matrik)
1.2
Struktur Perulangan While-Do
Perulangan ini menggunakan pernyataan While—Do.
Pernyataan While—Do digunakan untuk melakukan proses perulangan
suatu pernyataan atau blok pernyataan terus-menerus selama kondisi ungkapan
logika pada While masih bernilai logika benar.
Bentuk Umum
While kondisi ungkapan Do
Pernyataan
Contoh
Var
I:Integer;
Begin
I:=0;
While I<5 Do
Begin
Writeln(I);
I:=I+1;
End;
End.
Bila program dijalankan akan menghasilkan:
0
1
2
3
4
Penjelasan:
Perulangan dari while akan terus menerus dikerjakan
bila kondisinya masih benar. Dalam hal ini kondisinya adalah I dan bila nilai I
kurang dari 5, berarti kondisi di dalam While masih terpenuhi dan perulangan
akan selesai setelah nilai I lebih besar atau sama dengan 5.
1.3
Struktur Repeat…Until
Struktur Repeat…Until digunakan
untuk mengulang pernyataan-pernyataan atau blok pernyataan sampai kondisi yang
diseleksi di Until tidak terpenuhi.
Bentuk mumnya adalah:
Repeat pernyataan Until
Contoh
Var
I:Integer
Begin
I:=0;
Repeat
I:=I+1;
Writeln(I);
Until I=5;
End.
Bila program dijalankan akan menghasilkan:
1
2
3
4
5
Tidak ada komentar:
Posting Komentar