Z-PEMROGRAMAN PASCAL

Perintah Perulangan atau Looping PASCAL

Fajar (Ucup)

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;
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.

Looping PASCAL
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.

Looping PASCAL
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.

Looping PASCAL
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.

Looping PASCAL
hasil coding, saya menginputkan 6 untuk tinggi piramidanya

lebih jelasnya :

membuat piramida pascal

MATERI PASCAL

Jika kalian baru dalam pembelajaran pemrograman Pascal, Silakan belajar dari materi pertama :

In

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Previous post Linux : 7 Alasan Pintar Untuk Memakai dan Pindah Ke Linux
Next post Apa Saja Fungsi dan Prosedur pada Python

More Stories

Recent Post

Top Category

INFO NEW GAME

UPDATE GAME

MOBILE LEGENDS

GUIDE GAME