LA ALIN II

Program Matrix :
uses crt;
type t = object
m1, m2 : array [1..2,1..2] of integer;
lok : array [1..4] of integer;
procedure input;
procedure tampil;
procedure tambah;
procedure kurang;
end;
var m: t;
i,j,k,pil : integer;

procedure t.input;
begin
     clrscr;
     writeln ('input matrix I');
     for i:= 1 to 2 do
     begin
          for j:= 1 to 2 do
          begin
               write('elemen matrix [',i,',',j,']: ');
               readln (m1[i,j]);
          end;
     end;
     gotoxy (35,1); writeln('inputan matrix II');
     k:=2;
     for i:=1 to 2 do
     begin
          for j:=1 to 2 do
          begin
               gotoxy (35,k);
               inc (k);
               write('elemen matrix [',i,',',j,']: ');
               readln(m2[i,j]);
          end;
     end;
end;

procedure t.tampil;
begin
     writeln;
     writeln ('matrix I ');
     writeln (m1[1,1]:5,m1[1,2]:5);
     writeln (m1[1,1]:5,m1[1,2]:5);
     gotoxy (35,7); writeln ('matrix II');
     gotoxy (35,8); writeln (m2[1,1]:5,m1[1,2]:5);
     gotoxy (35,9); writeln (m2[2,1]:5,m2[2,2]:5);
     readln;
end;

procedure t.tambah;
begin
     gotoxy (23,11);writeln('hasil penjumlahan matrix');
     lok[1] := (m1[1,1] + m2[1,1]);
     lok[2] := (m1[1,2] + m2[1,2]);
     lok[3] := (m1[2,1] + m2[2,1]);
     lok[4] := (m1[2,2] + m2[2,2]);
     gotoxy(30,12); writeln(lok[1]:5,lok[2]:5);
     gotoxy(30,13); writeln(lok[3]:5,lok[4]:5);
     readln;
end;

procedure t.kurang;
begin
     gotoxy (4,9); writeln('hasil matrix I - matrix II ');
     lok [1] := m1[1,1]-m2[1,1];
     lok [2] := m1[1,2]-m2[1,2];
     lok [3] := m1[2,1]-m2[2,1];
     lok [4] := m1[2,2]-m2[2,2];
     gotoxy (9,11); writeln(lok[1]:5,lok[2]:5);
     gotoxy (9,12); writeln(lok[3]:5,lok[4]:5);
     gotoxy (40, 9); writeln('hasil matrix I-matrix II ');
     lok [1] := m2[1,1]-m1[1,1];
     lok [2] := m2[1,2]-m1[1,2];
     lok [3] := m2[2,1]-m1[2,1];
     lok [4] := m2[2,2]-m1[2,2];
     gotoxy (45,11); writeln(lok[1]:5,lok[2]:5);
     gotoxy (45,12); writeln(lok[3]:5,lok[4]:5);
     readln;
end;

begin
     repeat
     clrscr;
     gotoxy (25,1); writeln ('<<<<< menu matrix >>>>>');
     gotoxy (25,2); writeln ('1. input matrix 1');
     gotoxy (25,3); writeln ('2. penjumlahan matrix');
     gotoxy (25,4); writeln ('3. pengurangan matrix');
     gotoxy (25,5); writeln ('4. keluar');
     gotoxy (25,6); writeln (' ===============================');
     gotoxy (25,7); write ('pilihan [1..4] : '); readln(pil);

case pil of

1: begin
        m.input;
        m.tampil;
   end;
2: m.tambah;
3: m.kurang;

end;
until (pil) = 4;
end.

begin
     m.input;
     m.tampil;
     m.tambah;
end.

Output :