Tugas Pascal 2012 perkalian

Nama : M. Ali Rusdi
NIM : 111221075

Turbo Pascal : menghitung perkalian dua matriks.
berikut ini adalah script pascal menghitung perkalian dua matriks.

Berikut script untuk matriks 1 :

Program Perkalian_Matriks;
uses wincrt;
var
m1,m2,mh:array[1..10,1..10] of integer;
b1,k1,x1,y1,a,b2,k2,x2,y2:longint;
begin;

write('masukkan jumlah baris matriks 1: '); readln(b1);
write('masukkan jumlah kolom matriks 1: '); readln(k1);
for x1:= 1 to b1 do
begin
for y1:= 1 to k1 do
begin
write('[',x1,':',y1,']='); readln(m1[x1,y1]);
end;
end;
writeln('matriks 1');
for x1:= 1 to b1 do
begin
for y1:= 1 to k1 do
begin
write(m1[x1,y1]:7);
end;writeln;
end;writeln;

ini adalah hasil matriks 1

Berikut script matriks 2 :

write('masukkan jumlah baris matriks 2: '); readln(b2);
write('masukkan jumlah kolom matriks 2: '); readln(k2);
for x2:= 1 to b2 do
begin
for y2:=1 to k2 do
begin
write('[',x2,':',y2,']='); readln(m2[x2,y2]);
end;
end;
writeln('matriks 2');
for x2:= 1 to b2 do
begin
for y2:= 1 to k2 do
begin
write(m2[x2,y2]:7);
end;writeln;
end;writeln; 


ini adalah hasil matriks 2

Berikut adalah script perkalian kedua matriks di atas :

if k1=x2 then begin
writeln('Hasil perkalian matriksnya adalah');
for x1:= 1 to b1 do
begin
for a:=1 to k2 do
begin
for y1:= 1 to k1 do
begin
for y2:= a to k2 do
begin
for x2:=y1 to b2 do
begin
mh[x1,y2]:=mh[x1,y2]+m1[x1,y1]*m2[x2,y2];
if k1=y1 then
begin
write(mh[x1,y2]:7);
end;
x2:=b2;
end;
y2:=k2;
end;
end;
end;
writeln;
end;
end else
begin
writeln('Maaf operasi perkalian matriks tidak bisa dikerjakan karena');
writeln('karena kolom matriks1 (',k1,' kolom) tidak sama dengan baris matriks 2 (',x2,' baris)');
end;
end.

ini adalah hasil perkalian dua matriks di atas

terima kasih sudah membaca tutorial ini.
semoga bermanfaat bagi saudara-saudaraku semuanya.
amin.

untuk mendownload script lengkap di atas, download disini