Perulangan(Looping) Dalam Pascal

Looping adalah proses yg berulang,dalam pemrograman,looping diartikan sebagai suatu proses yg dilakukan berulang kali.

Jenis jenis looping:

1. For�Do

Merupakan  jenis looping,dimana jumlah perulangan sudah di tetapkan,yaitu ada nilai awal dan nilai akhir.

      cara penulisan:

-for nama_variabel:= nilai_awal to nilai_akhir do

             for i:= 1 to 5 do

-for nama_variabel:= nilai_akhir downto nilai_awal do

             for i:= 5 downto 1 do

Contoh program:

program looping;

uses crt;
var
I : integer;
begin
   clrscr;

   for i := 1 to 5 do
     begin
          writeln(i);
     end;
   readln;
end.

2.While�.Do

Digunakan bila ada satu atau lebih statement akan dieksekusi berulang kali sampai kondisi yg dinyatakan dalam statement tidak dipenuhi.

Cara penulisan :

while kondisi do

         statement

contoh :

while i < nilai_ujian do

begin

write(�Tidak Lulus�);

end;

Contoh program:

program jml_bil;
uses crt;
const
     baw =  0;
     bak =  20;
var
     i,jml :    integer;
begin
clrscr;

writeln;
writeln('                   JUMLAH BILANGAN BULAT 0-20                   ');
writeln('===============================================================');

i:= baw;
jml:= 0;
while i <= bak do
begin
write;
write(i:3);
jml:= jml+i;
i  := i+1;
end;
writeln;
writeln('===============================================================');
writeln('Jumlah Bilangan Bulat dari  ',baw,'  sampai ', bak,' adalah = ', jml);
readln
;
end.

3.Repeat�..until

Merupakan kebalikan dari statement while,dalam statement repeat,proses looping akan terus dilaksanakan selama kondisi terpenuhi

Cara penulisan:

Repeat

      statement

Until  kondisi

Contoh program ;

program repeatuntil;

uses crt;
var
a : integer;
begin
clrscr;
a:=1;
repeat
write(a);
a:=a+1
until a> 10;
readln;
end.

Tweet

Subscribe to receive free email updates: