Contoh script dasar pembuatan program pada DELPHI 7 (part 5)

kali ini saya akan memberikan sebuah contoh tentang matrik berpola,langsung saja pertama kita buat dulu scriptnya..

contoh 1:

program project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  mat: array[1..10,1..10] of integer;
  x,y:integer;
begin
  for x :=1 to 5 do
   begin
    for y :=1 to 5 do
    begin
    mat[x,y] := 0;
    if x>= y then mat[x,y]:= x;
    write(mat[x,y]:5);
    end;
    writeln
    end;
    readln;
end.
maka hasilnya seperti ini;

contoh 2 :

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  mat: array[1..10,1..10] of integer;
  x,y:integer;
begin
  for x :=1 to 5 do
   begin
    for y :=1 to 5 do
    begin
    mat[x,y] := 0;
    if x+y=6 then mat[x,y]:= 1;
    write(mat[x,y]:5);
    end;
    writeln
    end;
    readln;
end.

maka hasilnya seperti ini;

selamat mencoba dan semoga sukses!!!!!