Perintah Perulangan atau Looping PASCAL

Agustus 18, 2020 Fajar (Ucup) 0 Komentar pemrograman

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;

atau

For (variabel_counter) := (nilai_awal) Downto (nilai_akhir) Do
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

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.

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.

hasil coding akan mencetak kata pada dalam looping sebanyak 1000x

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.