Operasi Penjumlahan dan Perkalian Matrix Pascal

Kemaren dapet tugas kuliah membuat operasi matrix dengan Bahasa Pemrograman Pascal. Yahh agak tidak familiar dengan pascal  . Tapi setelah googling bentar dapet deh. Program array ini hanya bisa untuk penjumlahan dan perkalian Matrix. Berikut Source kodenya:

program operasi_matrik;

uses wincrt;
label F;
type
matrik=array [1..10,1..10] of integer;
var
m,n,p,q :integer;
A,B,C : matrik;
hit : string;

procedure tulismatrikA;
var i,j : integer;
begin
for i:=1 to m do
begin
for j:=1 to n do
begin
gotoxy(2+2*i,1+j);
readln(A[i,j]);
end;
end;
end;

procedure tulismatrikB;

var i,j:integer;
begin
for i:=1 to m do
begin
for j:=1 to n do
begin
gotoxy(2+2*i,6+j);
readln(B[i,j]);
end;
end;
end;
procedure jumlah_matrik;
var p,q : integer;
begin
writeln;
writeln(‘Hasil penjumlahan :’);
for p:=1 to m do
begin
for q:=1 to n do
begin
C[p,q]:=A[p,q]+B[p,q];
gotoxy(2+3*p,14+q);
write(C[p,q]);
end;
end;
end;
procedure kali_matrik;
var p,q,d : integer;
begin
writeln;
writeln(‘Hasil Perkalian : ‘);
for p:=1 to m do
begin
for q:=1 to n do
begin
C[p,q]:=0;
for d:=1 to n do
begin
C[p,q]:=C[p,q]+A[p,d]*B[d,q];
gotoxy(2+4*p,20+q);
write(C[p,q]);
end;
end;
end;
end;
begin
clrscr;
writeln(‘MASUKKAN UKURAN MATRIK (maks 4×4)’);
writeln;
writeln(‘Masukkan jumlah baris’); readln(m);
writeln(‘Masukkan jumlah kolom’); readln(n);
writeln(‘Tekan Enter’);
clrscr;
if m or n >= 5 then begin ;writeln (‘Maaf, Ordo yang anda masukkan salah ( maksimal 4×4 )’);
writeln;
writeln(‘Tekan ENTER untuk mengulangi’);
clrscr;
end else
writeln(‘Masukkan matrik A’);
tulismatrikA;
writeln(‘Masukan matrik B’);
tulismatrikB;
jumlah_matrik;
kali_matrik;
end.

semoga bermanfaat :)