Dalam pemrograman PASCAL terdapat struktur perulangan pascal. Ada 3 struktur perulangan pascal yang akan saya contohkan disini, yaitu :
1. Struktur Perulangan For ... Do
Struktur perulangan ini memiliki syntax sebagai berikut :
For xvar := nawal to nakhir do
statment ;
atau
For xvar := nawal to nakhir do
begin
statement ;
statement ;
....
....
end;
Keterangan :
xvar : nama variabel yang digunakan
nawal : nilai awal pengulangan
nakhir : nilai akhir pengulangan
Sebagai contoh :
User Crt ;
Var i : Byte ;
Begin
For i := 1 to 5 do
writeln(i) ;
end.
Jadi akan menampilkan hasil :
1
2
3
4
5
2. Struktur Perulangan Repeat Until
Struktur perulangan repeat until ini merupakan perulangan yang terjadi apabila salah.
Sintax :
Repeat
statement ;
....
Until kondisi ;
Keterangan :
Kondisi ini berguna untuk gerbang terjadinya pengulangan. Apabila kondisi disini bernilai salah, maka perulangan akan terjadi, sebaliknya jika kondisi bernilai benar, maka perulangan terjadi.
Contoh program
User Crt ;
Var i : Byte ;
Begin
i := 1 ;
Repeat
writeln (i) ;
inc (i) ;
Until i>5 ;
end.
Hasil :
1
2
3
4
5
Contoh kedua
User Crt ;
Var i : Byte ;
Begin
i := 5 ;
Repeat
writeln(i) ;
dec (i) ;
Until i<=1 ;
end.
Hasil :
5
4
3
2
1
3. Struktur Perulangan While Do
Sintaks perulangan
While kondisi Do
begin
statement ;
statement ;
.....
end;
Contoh Program :
User Crt ;
Var i : Byte ;
Begin
i := 1 ;
While i<=5 Do
begin
writeln (i) ;
inc (i) ;
end;
end.
Hasil :
1
2
3
4
5
Demikianlah artikel struktur perulangan ini, semoga bermanfaat. Terima kasih.
Sumber : Mesran.Net
