Program Array 2D dengan Pascal

uses crt;

var

   ma : array [1..10,1..10] of integer;

   mb : array [1..10,1..10] of integer;

   mc : array [1..10,1..10] of integer;

   b,c,i,j : integer;

begin

     clrscr;

     writeln('----------***---------');

     write('masukan baris   : ');

     readln(b);

     write('masukan coloumn : ');

     readln(c);

     writeln('----------------------');

     for i := 1 to b do

     begin

          for j := 1 to c do

          begin

               write('masukan nilai   : ');

               readln(ma[i,j]);

          end;

     end;

     writeln('----------------------');

     writeln('Matriks A : ');

     for i := 1 to b do

     begin

          for j := 1 to c do

          begin

               write(ma[i,j],' ');

          end;

          writeln;

     end;

     writeln('----------------------');

     for i := 1 to b do

     begin

          for j := 1 to c do

          begin

               write('masukan nilai   : ');

               readln(mb[i,j]);

          end;

     end;

     writeln('----------------------');

     writeln('Matriks B : ');

     for i := 1 to b do

     begin

          for j := 1 to c do

          begin

               write(mb[i,j],' ');

          end;

          writeln;

     end;

     writeln('----------***---------');

     readln;

end.

Posted in: PROGRAM PASCAL