Contoh program pengulangan Pascal

beberapa contoh program pengulangan dalam pascal:

*input:

uses crt;

var a,b,c,d:integer;

begin

clrscr;

    write('program for segitiga angka'); readln;

    write('masukkan nilai awal:  '); readln(a);

    write('masukkan nilai akhir: '); readln(b);

        for c:=a to b do

             begin

               for d:=b downto c do

               write(d);

               writeln;

             end;

readln;

end.       

*output:

program for segitiga angka

masukkan nilai awal: 6 (contoh)

masukkan nilai akhir: 1 (contoh)

654321

65432

6543

654

65

6

*input:
uses crt;
var a,b,c:integer;
begin
clrscr;
  write('program for');
  write('masukkan nilai batas atas:     '); readln(a);
  write('masukkan nilai batas bawah: '); readln(b);
     for c:=a downto b do
     writeln(c);
readln;
end.

*output:
program for
masukkan nilai batas atas: 4 (contoh)
masukkan nilai batas bawah: -2 (contoh)
4
3
2
1
0
-1
-2

*input:
uses crt;
var baris,kolom,jumbaris;integer;
begin
clrscr;
   write('program while segitiga karakter'); readln;
   write('masukkan jumlah baris yang diinginkan: '); readln(jumbaris);
   baris:=1;
   while baris<=jumbaris do
         begin
               write('#':jumlahbaris+1-baris);
               kolom:=2;
               while kolom <=(2xbaris-1) do
                        begin
                              write('#');
                              kolom:=kolom+1;
                              end;
               writeln;
               baris:=baris+1;
         end;
readln;
end.

*output:
program while segitiga karakter
masukkan jumlah baris yang diinginkan: 6 (contoh)
          #
        ###
      #####
    #######
  #########
###########