Tugas Pascal 2012 Identitas

Nama : M. Ali Rusdi
NIM : 111221075

Berikut adalah script membuat matriks identitas namun terbalik.

program MAtrik_identitas_terbalik;

uses
  WinCrt;
  var
  A,B,C:array[1..10,1..10] of integer;
  X,Y,Z,KOL,BAR:integer;

begin
  for X:=1 to 5 do
  begin
  for y:=1 to 5 do
  begin
  C[X,Y]:=0;
  if X+Y=6 then C[X,Y]:=1;
  write(C[X,Y]:4);
  end;
  writeln;
  end;     
end.

Berikut adalah contoh layoutnya.

Untuk mendownload script lengkapnya download di sini