Contoh Program Pascal III

Program contoh_4;

Uses Wincrt;
const
akhir = 4;
var
baris,kolom : integer;

begin
    clrscr;
    for baris := akhir downto 1 do
    begin
    for kolom := 1 to baris do
    write(kolom);
    writeln;
    end;
readln;
end.

Hasil :
1234
123
12
1


Program contoh_5;

Uses Wincrt;
const
       akhir = 4;
var
      baris,kolom : integer;
begin
        clrscr;
        for baris := akhir downto 1 do
        begin
        for kolom := baris downto 1 do
        write(kolom);
        writeln;
        end;
readln;
end.
Hasil :
4321
321
21
1

 
Baik sekarang kita masuk ke tahap penjelasan tentang statement di atas.
Statement kali ini membahas tentang "For to do". Yaitu statement perulangan yang digunakan untuk mengulang statement atau satu blok statement berulang kali sejumlah yang ditentukan.
Kalau belum paham silahkan bertanya melalui komen atau email saya.