contoh soal

      1.      Contoh soal 

Pada contoh ini akan menghasilkan output seperti berikut jika nilai batasnya kita isikan 5:

1 1 1 1 1

2 2 2 2 2

3 3 3 3 3

4 4 4 4 4

5 5 5 5 5

Kode Program:

program fordalamfor1;

var

 baris, kolom, batas : integer;

begin

     write('masukan batas: ');readln(batas);

     writeln;

     for baris := 1 to batas do

         begin

              for kolom := 1 to batas do

                  write (baris : 2);

                  writeln;

              end;

     readln;

end.