ALT/TEXT GAMBAR PPC Iklan Blogger Indonesia
Loading...

Program Pascal Looping (perulangan)

Looping (perulangan)


     merupakan bentuk yang sering ditemui didalam suatu program aplikasi. Didalam bahasa pascal, dikenal tiga macam perulangan yaitu :dengan menggunakan statemen For, While-Do, dan Repeat…until.

1. For
For biasa digunakan untuk perulangan positif atau perulangan dengan penghitung (couter) dari kecil kebesar atau dengan kata lain pertambahannya positif.
Bu : For variabel-kontrol := nilai awal To nilai-akhir Do statemen
contoh :
var
i :integer;
begin
for i:= 1 to 5 do writeln(‘BSI’);
end.
maka akan menghasilkan :
BSI
BSI
BSI
BSI
BSI

For Nested
contoh :
var
i:integer;
begin
for i:= 1 to 2 do
begin
for j:= 1 to 2 do
write(i:3,j:3);
writeln;
end;
readln;
end.
maka akan menghasilkan :
1 1 1 2
2 1 2 2

  
2. While-do,
digunakan untuk melakukan proses perulangan suatu statemen atau blok statemen terus-menerus selama kondisi logika Benar.
bu : statemen_while while ungkapan_logika do statemen
contoh :
uses crt;
var k:integer;
begin
  k:=1;
  while k<=3 do
  begin
  writeln(‘Halo’);
  k:=k+1;
  end;
end.
Hasilnya :
Halo
Halo
Halo 


3. Repeat Until
digunakan untuk mengulang statemen suatu blok statemen sampai (until) kondisi yang diseleksi di Until tidak terpenuhi.
bu : repeat
  statemen;
  until ungkapan_logika;
contoh:
var i : integer;
begin
i:=0;
repeat
  i:=i+1;
  writeln(i);
until i = 5;
readln;
end. 

Share : Facebook Twitter Google+ Linkedin Technorati Digg

Page Load

Terima kasih telah membaca artikel Maz Dani tentang Program Pascal Looping (perulangan) dengan url http://dubraw735.blogspot.com/2012/03/program-pascal-looping-perulangan.html, Semoga Artikel Program Pascal Looping (perulangan) bermanfaat bagi diri saya dan anda.

1 komentar:

  1. gan, minta algoritma jika input 3, outputnya :
    33333
    32223
    32123
    32223
    33333
    thx..

    BalasHapus

Terimakasih sudah berkomentar dengan baik, sopan dan tidak mengandung spam,dimohon untuk tidak meletakan link aktif dalam komentar!!!
Klik Subscribe by email jika ingin mengetahui update komentar pada artikel ini, thank you for visiting

Ttd : Dani Setiadi