Perintah Perulangan atau Looping PASCAL
Perintah Perulangan atau Looping
Perintah perulangan atau looping berfungsi untuk mengulang baris pernyataan yang akan dieksekusi oleh alat proses (processor) komputer. Banyak perulangan/ looping yang dilakukan tidak memiliki batas, sesuai dengan kebutuhan algoritma dan processor yang mampu untuk mengolahnya. Jenis perintah ini terdiri atas sintaks FOR, melakukan proses perulangan/looping dengan telah menetapkan batas awal dan batas akhir dari perulangan tersebut.
Bentuk perintah perulangan/looping terdiri atas:
For (variabel_counter) := (nilai_awal) To (nilai_akhir) Do
Begin
pernyataan yang ingin diproses ulang …;
end;
Begin
pernyataan yang ingin diproses ulang …;
end;
atau
For (variabel_counter) := (nilai_awal) Downto (nilai_akhir) Do
Begin pernyataan yang ingin diproses ulang …;
End;
Begin pernyataan yang ingin diproses ulang …;
End;
Tipe variabel_counter haus bilangan bulat tidak dalam pecahan, tipe bilangan bulat seperti Integer, Byte, Word, Shortint, atau Longint.
Contoh program perulangan program mencetak 5 kali :
KALIAN BISA MENCOBANYA KLIK DISINI
KALIAN BISA MENCOBANYA KLIK DISINI
Program perulangan;
Uses Crt;
Var k : Integer;
Begin
For k:= 1 to 5 do {mencetak 5 kali}
Begin
Writeln('Tampilan ke-', k);
End;
Repeat Until Keypressed;
End.
Uses Crt;
Var k : Integer;
Begin
For k:= 1 to 5 do {mencetak 5 kali}
Begin
Writeln('Tampilan ke-', k);
End;
Repeat Until Keypressed;
End.
![]() |
hasil coding menampilkan perulangan tampilan 1 sampai mencapai 5 |
Contoh program perulangan program mencetak kata Hello Bahasa Pemrograman Pascal sampai 1000 :
Program for_1;
Uses Crt;
var
i: Integer;
Begin
Clrscr;
For i := 1 To 1000 Do
Begin
writeln('Hello Bahasa Pemrograman Pascal');
End;
Readln;
End.
Contoh program perulangan program mencetak angka hitung mundur dari 10 sampai 0 :
Program for_2;
Uses Crt;
Var
i: Integer;
Begin
Clrscr;
For i := 10 Downto 0 Do
Begin
Writeln('Hitung mundur: ',i);
End;
Readln;
End.
![]() |
hasil coding mencetak hitung mundur 10-0 sesuai looping downto |
Contoh program perulangan program mencetak piramida sesuai tinggi yang kita inputkan :
uses crt;
var
a,b,c,d:integer;
begin
write('masukkan jumlah baris bintang yang akan ditampilkan:');readln(a);
for b:= 1 to a do
begin
for c:= a downto b do
write(' ');
for d:= 1 to b+b-1 do
write('*');
writeln;
end;
readln;
end.
var
a,b,c,d:integer;
begin
write('masukkan jumlah baris bintang yang akan ditampilkan:');readln(a);
for b:= 1 to a do
begin
for c:= a downto b do
write(' ');
for d:= 1 to b+b-1 do
write('*');
writeln;
end;
readln;
end.
![]() |
hasil coding, saya menginputkan 6 untuk tinggi piramidanya |
lebih jelasnya :
MATERI PASCAL
Jika kalian baru dalam pembelajaran pemrograman Pascal, Silakan belajar dari materi pertama :
Materi Ke-1 : Perintah Output
Materi Ke-2 : Perintah Input
Materi Ke-3 : Looping / Perulangan
Materi Ke-4 : Nested Loop
Materi Ke-5 : Percabangan (IF ELSE)
Materi Ke-6 : Perintah Loncat (GoTo)
Materi Ke-7 : Array
Materi Ke-8 : Array Lanjutan
Materi Ke-9 : Procedure
Materi Ke-10 : Function
Materi Ke-11 : Rekursif
Materi Ke-12 : Pemantapan Contoh Contoh Program Pascal
Materi Ke-2 : Perintah Input
Materi Ke-3 : Looping / Perulangan
Materi Ke-4 : Nested Loop
Materi Ke-5 : Percabangan (IF ELSE)
Materi Ke-6 : Perintah Loncat (GoTo)
Materi Ke-7 : Array
Materi Ke-8 : Array Lanjutan
Materi Ke-9 : Procedure
Materi Ke-10 : Function
Materi Ke-11 : Rekursif
Materi Ke-12 : Pemantapan Contoh Contoh Program Pascal