TUGAS TURBO PASCAL KALI MATRIK

LIST PROGRAM KALI MATRIK

Program kali_matriks;

uses wincrt;

type

matriksint = array [1..20,1..20] of integer;

var

M,a,b : matriksint; p , q: integer;

procedure Amatriks (var M:matriksint;Bar,Kol:integer);

var x,y: integer;

begin

 for x:=1 to Bar do

   begin

    for y:= 1 to Kol do

     begin

       write ('M[',x,',',y,'] = ');readln (M[x,y]);

     end;

   end;

end;

procedure Bmatriks (var M:matriksint;Bar,Kol:integer);

var x,y : integer;

begin

 for x:= 1 to Bar do

 begin

   for y:= 1 to Kol do

     begin

       write (M[x,y]);

     end;

   writeln;

 end;

end;

procedure kalimatriks (a,b:matriksint; Bar,Kol : integer);

var

hasil:matriksint;

x,y,z : integer;

begin

  for x := 1 to Bar do

  begin

   for y := 1 to Kol do

   begin

   hasil[x,y] := 0;

    for z := 1 to Bar do

    hasil[x,y] := hasil[x,y]+a[x,z]*b[z,y];

    begin

    gotoxy (y*5,x*23);

    write(hasil[x,y]) ;

    end;

   end;

   writeln;

  end;

end;

begin

  writeln ('MATRIK A ');

  write ('Jumlah Baris : '); readln (p);

  write ('Jumlah Kolom : '); readln (q);

  Amatriks (a,p,q);

  write ('A = ');

  writeln;

  Bmatriks (a,p,q);

  writeln;

  writeln ('MATRIKS B ');

  write ('Jumlah Baris : '); readln (p);

  write ('Jumlah Bolom : '); readln (q);

  Amatriks (b,p,q);

  write ('B = ');

  writeln;

  Bmatriks (b,p,q);

  writeln ('Hasil Perkalian Matriks Adalah : ');

  kalimatriks (a,b,p,q);

end.

RUN PROGRAM