Dalam membuat suatu program kadang-kadang diinginkan agar program tersebut mampu memproses halyang sama secara berulang-ulang sampai ditemukan suatau nilai tertentu yang telah ditentukan. untuk itu maka Turbo Pascal telah menyediakan suatu struktur perulangan yang memudahkan untuk melakukan proses tersebut sehingga kode-kode dalam program menjadi lebih sederhana.
• Dalam bahasa Pascal ada 3 macam perulangan:
o For
o While - do
o Repeat - until
1. Struktur For
Di dalam suatu blok, digunakan untuk pengulangan sesuai dengan counter
Berbentuk :
o Perulangan Positif/Ascendant/Naik
o Perulangan Negatif /Descendant/Turun
o Perulangan Bersarang
Perulangan Positif / Ascendant / Naik
Menggunakan counter dari kecil ke besar
Pertambahan positif
Statemen : For . . . to . . . Do . . .
Syntax :
For variabel_kontrol := nilai_awal to
nilai_akhir Do statemen
(variabel kontrol harus integer)
Perulangan Negatif/Descendant/Turun
Pencacah dari besar ke kecil, pertambahan negatif
Dapat menggunakan :
For Var_kontrol := nilai_awal DownTo nilai_akhir Do statemen
Struktur For hanya dapat digunakan pada cacah perulangan yang diketahui (berapa kali perulangan tersebut dilakukan).
Contoh:
Program latihan_for_positif;
Uses wincrt;
Var N,I,j:integer;
Begin
Clrscr;
Write(‘Masukkan angka= ‘);
Readln(N);
For i:=1 to N do
Begin
For j:=1 do
Write(i:3);
Writeln;
End;
Readln;
End.
Hasil run program:
Masukkan angka=5
1
2 2
3 3 3
4 4 4 4
5 5 5 5 5
Program latihan_for_negatif;
Uses wincrt;
Var N,I,j,data:integer;
Begin
Clrscr;
Write(‘Masukkan angka= ‘);
Readln(N);
data:=N;
For i:=1 to N do
Begin
For j:=1 to N do
Write(data:3);
Writeln;
data:data-1;
End;
End.
Hasil run program:
Masukkan angka=5
5
4 4
3 3 3
2 2 2 2
1 1 1 1 1
Program ulang;
uses wincrt;
var
n:integer;
begin
write('kata akan diulang berapa kali : ');
readln(n);
for n:=1 to n do
writeln(' ',n,'. wetengku ngeleh!!!!!!');
end.
Program ulang_for_do;
Uses wincrt;
Var z:integer;
Begin
For z:=1 to 5 do
Writeln (z, ‘. Pemrograman Komputer’);
End.
Hasil program:
1.Pemrograman Komputer
2.Pemrograman Komputer
3.Pemrograman Komputer
4.Pemrograman Komputer
5.Pemrograman Komputer
2. Struktur While…Do.
Format: while (kondisi) do Aksi/blok aksi
Kondisi: Ekspresi Boolean
Pengecekan untuk melakukan pengulangan dilakukan pada awal proses dan perulangan akan dikerjakan selama kondisi benar. Oleh karena itu, perlu adanya suatu proses yang dapat mengontrol kondisi agar dapat menghentikan proses.
Struktur perulangan while do dapat digunakan untuk melakukan perulangan baik yang diketahi maupun yang tidak diketahui jumlah perulangannya.
Contoh:
Program ulang_whiledo;
Uses wincrt;
Var z:integer;
Begin
Z:=0;
While (z<4) do
Begin
Writeln (z, ‘. Pemrograman Komputer’);
Z:=z+1;
End;
End.
Hasil program:
1.Pemrograman Komputer
2.Pemrograman Komputer
3.Pemrograman Komputer
4.Pemrograman Komputer
5.Pemrograman Komputer
3. Struktur Repeat…Until…
Format : Repeat aksi/blok aksi until (kondisi);
(kondisi) di sini berupa boolean.
Perulangan dilakukan terus-menerus hingga diperoleh kondisi bernilai benar. Dalam hal ini pun diperlukan adanya kondisi yang dapat mengontrol program agar program dapat berhenti akan tetapi berbeda dengan while do yang kontrolnya ditempatkan pada awal proses, maka repeat until kontrolnya diletakkan pada akhir proses.
Pada perulangan yang menggunakan repeat until, proses pembacaan program dilaksanakan paling tidak satu kali karena proses pengecekan syarat dilakukan pada akhir.
Contoh :
Program ulang_repeatuntil;
Uses wincrt;
Var z:integer;
Begin
Z:=1;
repeat
Writeln (z, ‘. Pemrograman Komputer’);
Z:=z+1;
Until z>5
End.
Hasil program:
1.Pemrograman Komputer
2.Pemrograman Komputer
3.Pemrograman Komputer
4.Pemrograman Komputer
5.Pemrograman Komputer
Contoh:
Program penjumlahan_bilangan;
uses wincrt;
var x,y,jmlh:integer;
begin
x:=1;
jmlh:=0;
write('masukkan nilai suatu bilangan: ');readln(y);
repeat
write (x);
if x
jmlh:=jmlh+x;
x:=x+1;
until x>y;
write('=');
write(jmlh);
end.
Hasil program:
masukkan suatu bilangan: 4
1+2+3+4=10
Tidak ada komentar:
Posting Komentar