Tuesday, December 11, 2018

Perintah Perulangan atau Looping PASCAL

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_awalTo (nilai_akhirDo 
 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




Seseorang yang ingin membagi pengalaman dan ilmu yang berguna untuk para pembaca FajarYusuf.Com :)

2 comments

Msh bnyk yg hrus dipljrin nih, lmyan dpt ilmu baru hehe

Cobalah untuk memilih Pelajaran Pemrograman dan belajar dari Materi Pertama
EmoticonEmoticon


TENTANG SITUS

SITUS INI ADALAH SITUS PEMBELAJARAN PEMROGRAMAN DAN JUGA PEMAHAMAN TERHADAP TEKNOLOGI KOMPUTER. KALIAN BISA MENGIKUTI PEMBELAJARAN PEMROGRAMAN DENGAN BERTAHAP PADA MATERI YANG SUDAH SAYA SEDIAKAN, JIKA ADA MATERI YANG MEMBINGUNGKAN SILAKAN LAKUKAN KOMENTAR PADA MATERI YANG ANDA TANYAKAN ATAU KALIAN BISA MENGHUBUNGI SAYA DIHALAMAN KONTAK.

https://smallseotools.com/