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.
0 Response to "Perulangan(Looping) Dalam Pascal"