Fiddy's Room

LOOPING

LOOPING

(PERINTAH PERULANGAN)

1. FOR TO DO/FOR DOWN TO

Digunakan untuk mengulang statement atau satu statement blok berulang kali sejumlah yang ditentukan.

a) Perulanagan Positif

Perulangan dengan penghitung (counter) dari kecil ke besar atau pertambahannya positif.

Contoh:

program for_to;

uses crt;

var

a:byte;

begin

clrscr;

for a:=1 to 10 do

begin

write(a);

writeln(‘ Pascal’);

end;

readln;

end.

b) Perulangan Negatif

Perulangan dengan penghitung (counter) dari kecil ke besar atau pertambahannya negatif.

Contoh:

uses crt;

var i:integer;

begin clrscr;

for i:= 5 downto 1 do

begin

write(i);

writeln(‘  Pascal’);

end;

readln;

end.

2. WHILE DO

Digunakan untuk mengulang suatu statement suatu blok statement selama kondisi yang diseleksi di While terpenuhi / bernilai True.

Contoh:

uses crt;

var a:integer;

begin

clrscr;

a:=0;

while a<= 5 do

begin

write(a);

writeln(‘  BSI’);

a:=a+1;

end;

readln;

end.

3. REPEAT

Digunakan untuk mengulang (Repeat) suatu statement suatu blok statement sampai (Until) kondisi yang diseleksi di Until tidak terpenuhi / bernilai False.

Contoh:

program repeat_until;

uses crt;

var

a:integer;

begin

clrscr;

a:=0;

repeat

write(a);

writeln(‘ bsi’);

a:=a+1;

until a>=5;

readln;

end.

No comments yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: