PROGRAM PERKALIAN 2 MATRIK

program Perkalian_Matrik;

uses wincrt;

var

   a,b,c:array[1..30,1..30] of integer;

   o,p,q,x,y,z:integer;

begin

     clrscr;

     writeln('Ordo Matrik A');

     write('Baris :');readln(x);

     write('Kolom:');readln(y);

     writeln;

     for o:=1 to x do

     for p:=1 to y do

     begin

          write('Isi Matrik A[',o,',',p,']:');readln(a[o,p]);

     end;

     writeln;

     writeln('Ordo Matrik B');

     writeln('Baris:',y);

     write('Kolom:');readln(z);

     writeln;

     for o:=1 to y do

     for p:=1 to z do

     begin

          write('Isi Matrik B[',o,',',p,']:');readln(b[o,p]);

     end;

     for o:=1 to x do

     for p:=1 to z do

     for q:=1 to y do

     c[o,p]:=c[o,p]+a[o,q]*b[q,p];

     writeln;

     writeln;

     writeln('Hasil perkalian dari Matrik A dengan Matrik B adalah :');

     writeln;

     for o:=1 to x do

     begin

          for p:=1 to z do

           write(c[o,p]:4);

           writeln;

     end;

     writeln;

     readln;

end.

MATRIK IDENTITAS

program Matrik_Identitas;

uses wincrt;

var

   a,b,c:array[1..10,1..10] of integer;

   x,y,z:integer;

begin

     writeln('Matrik Identitas');

     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]);

          end;

     writeln;

     end;

end.