Contoh Program Perulangan ( PASCAL )

• FOR TO DO

program Contoh_for_to_do;

var

   x: integer;
begin
   for x := 1  to 10 do
   begin
      write(x , ' ');
   end;
   readln;
end.

• FOR DOWNTO DO

Program Anak_Ayam;
Uses Crt;
Var
UI: char;
a,b,c,d:integer;
Begin
clrscr;
Writeln('      ---*****---      ');
Writeln('   PROGRAM ANAK AYAM   ');
Writeln('=======================');
Writeln('');
Writeln('Tek kotek kotek kotek');
Writeln('Anak ayam turun berkotek');
Writeln('Tek kotek kotek kotek');
Writeln('Anak ayam turun berkotek');
Writeln('');
Write('Anak ayam turunnya '); readln(a);
if a=0 then
Writeln('Oh tidak bisa bro');
Begin
    Writeln('Mati satu tinggallah ',a-1);
    for c:=a-1 downto 2 do
        Writeln('Anak ayam turun ',c,' mati satu tinggallah ',c-1);
        Writeln('');
    d:=c-1;
    Writeln('Anak ayam turunnya ',d);
        Writeln('Mati satu tinggal INDUKNYA');
        Writeln('');
        Writeln('============================');
    end;
if a=2 then
    Writeln('Anak Ayam turun 1 mati satu tinggal induknya'); readln;

    end.

•  REPEAT

program repeat_until;
uses crt;
var
x : integer;
begin
x:= 1;
repeat
x:=x+1;
writeln(x);
until x =10 ;
readln;
end.

• WHILE

program while_do;
uses crt;
var
i:integer;
begin
i:=2;
while i< 3 do
begin
writeln( i );
end;
readln;
end.

Semoga Berguna.....