FOR - DO
program
for_do_loop1;
uses
crt;
var
i: integer;
begin
clrscr;
for i := 1
to 20 do
begin
writeln('Selamat Pagi');
end;
readln;
end.
program
for_do_loop2;
uses
crt;
var
i: integer;
begin
clrscr;
for i := 1
to 20 do
begin
writeln('Selamat Pagi ke - ',i);
end;
readln;
end.
program
for_do_loop3;
uses
crt;
var
i: integer;
begin
clrscr;
for i := 1
to 10 do
begin
writeln('7 x ',i,' = ',7 * i);
end;
readln;
end.
program
for_do_loop4;
uses
crt;
var
i,angka: integer;
begin
clrscr;
writeln('========================');
writeln('Program Daftar Perkalian');
writeln('========================');
writeln;
write('Input perkalian yang diinginkan: ');
readln(angka);
writeln;
for i := 1
to 10 do
begin
writeln( i ,' x ', angka ,' = ', i *
angka);
end;
readln;
end.
FOR - DOWN - TO
program
for_do_loop5;
uses
crt;
var
i: integer;
begin
clrscr;
for i := 10
downto 0 do
begin
writeln('Hitung mundur: ',i);
end;
readln;
end.
program for_downto_loop1;
uses crt;
var
i:
integer;
begin
clrscr;
for
i := 10 downto 1 do
begin
writeln('Perkalian 7 * ', i ,' adalah = ', 7 * i);
end;
readln;
end.
program for_downto_loop2;
uses crt;
var
anak_ayam,i: integer;
begin
clrscr;
writeln('==============');
writeln('Lagu Anak Ayam');
writeln('==============');
writeln;
write('Input jumlah anak ayam: ');
readln(anak_ayam);
writeln;
for
i := anak_ayam downto 1 do
begin
writeln('Anak ayam turun ',i,' pergi 1, tinggal ',i-1);
end;
readln;
end.
WHILE - DO
program while_do1;
uses crt;
var
i:
integer;
begin
clrscr;
i:=
0;
while
i < 10 do
begin
writeln('Hello World');
i:= i + 1;
end;
readln;
end.
program while_do2;
uses crt;
var
i:
integer;
begin
clrscr;
i:=
0;
while
i < 10 do
begin
writeln('Variabel i sekarang bernilai: ',i);
i:= i + 1;
end;
readln;
end.
program while_do3;
uses crt;
var
i:
integer;
begin
clrscr;
i:=
5;
while
i <= 10 do
begin
writeln('Variabel i sekarang bernilai: ',i);
i:= i + 1;
end;
readln;
end.
program while_do4;
uses crt;
var
i:
integer;
begin
clrscr;
i:=
5;
while
i < 11 do
begin
writeln('Variabel i sekarang bernilai: ',i);
i:= i + 1;
end;
readln;
end.
program while_do5;
uses crt;
var
i:
integer;
begin
clrscr;
i:=
5;
while
i < 11 do
begin
writeln('Variabel i sekarang bernilai: ',i);
end;
readln;
end.
program while_do6;
uses crt;
var
i:
integer;
begin
clrscr;
i:=
100;
while
i >= 0 do
begin
writeln('Hitung mundur: ',i);
i:= i - 1;
end;
readln;
end.
program while_do7;
uses crt;
var
i:
integer;
begin
clrscr;
i:=
3;
writeln('Berikut deret untuk kelipatan 3: ');
while
i <= 30 do
begin
write(i,' ');
i:= i + 3;
end;
readln;
end.
REPEAT - UNTIL
program repeat_until1;
uses crt;
var
i:
integer;
begin
clrscr;
i:=
0;
repeat
begin
writeln('Hello World');
i:= i + 1;
end;
until
i = 10;
readln;
end.
program repeat_until2;
uses crt;
var
i:
integer;
begin
clrscr;
i:=
0;
repeat
begin
writeln('Variabel i sekarang bernilai: ',i);
i:= i + 1;
end;
until
i = 10;
readln;
end.
program repeat_until3;
uses crt;
var
i:
integer;
begin
clrscr;
i:=
10000;
repeat
begin
writeln('Variabel i sekarang bernilai: ',i);
i:= i + 1;
end;
until
i > 10;
readln;
end.
program repeat_until4;
uses crt;
var
i:
integer;
begin
clrscr;
i:=
5;
writeln('Berikut deret untuk kelipatan 5: ');
repeat
begin
write(i,' ');
i:= i + 5;
end;
until
i > 100;
readln;
end.