Membuat Program Perkalian Matriks

program Perkalian_Matriks;
uses wincrt;
var
a,b,c:array[1..4,1..4] of integer;
i,j,x,y:integer;
begin
clrscr;
begin
writeln(' Matriks I ');
for i:= 1 to 4 do
begin
for j:= 1 to 4 do
begin
write(' Masukkan bilangan untuk baris ke-',i,' kolom ke-',j,': '); readln(a[i,j]);
end;
writeln;
end;
end;
begin
writeln;
writeln(' Matriks I ');
writeln;
for i:= 1 to 4 do
begin
for j:= 1 to 4 do
begin
write(a[i,j]:7);
end;
writeln;
writeln;
end;
writeln;
writeln;
end;
begin
writeln(' Matriks II ');
for x:= 1 to 4 do
begin
for y:=1 to 4 do
begin
write(' Masukkan bilangan untuk baris ke-',x,' kolom ke ',y,': '); readln(b[x,y]);
end;
writeln;
end;
end;
begin
writeln;
writeln(' Matriks II ');
writeln;
for x:= 1 to 4 do
begin
for y:= 1 to 4 do
begin
write(b[x,y]:7);
end;
writeln;
writeln;
end;
writeln;
writeln;
end;
begin
writeln(' Tekan Enter Untuk Melihat Hasil Operasi dari Matriks I X Matriks II ');readln;
writeln(' M I x M II ');
writeln;
for i:=1 to 4 do
begin
for y:=1 to 4 do
begin
c[i,y]:=0;
for x:=1 to 4 do
begin
c[i,y]:=c[i,y]+a[i,x]*b[x,y];
write(' Elemen ke (',i,',',y,') = ',c[i,y]);
end;
end;
writeln;
end;
end;
writeln;
begin
writeln(' Matriks Hasil ');
writeln;
for i:=1 to 4 do
begin
for y:=1 to 4 do
write(c[i,y]:7);
writeln;
writeln;
end;
writeln;
writeln;
end;
writeln;
readln;
end.

Hasil Penjumlahan=Hasil Kali(2 x 2 = 2 + 2)

Ternyata banyak sekali bilangan yang memilki sifat seperti bilangan 2 dan 2. Maksudnya apabila anda mengalikan kedua bilangan tersebut maka hasilnya sama dengan penjumlahan bilangan tersebut.
2 . 2 = 2 + 2.
Anda juga mencari bilangan lain contohnya 3 dengan 1 ½ . hasil kali dan penjumlahan kedua bilangan itu sama yaitu 4 ½ .
Anda tak usah bingung - bingung mencari bilangan lain. Dengan mengetahui rumusnya anda dapat mencari sampai anda sendiri tak bisa menghitungnya karena begitu banyaknya.
Perhatikan misal bilangan pertama adalah a dan bilangan kedua b, maka, a dan b harus memenuhi :
ab=a+b
<=> ab-a=b
<=> a(b-1)=b
<=> a=b/(b-1)
Dari bentuk akhir sudah terlihat bahwa kita dapat mencari jutaan bahkan sampai tak terhingga 2 bilangan yang memenuhi sifat di atas. Ambil contoh b=8 maka a=8/(8-1)=8/7. Coba dicek:
8. 8/7 = 64/7 dan 8 + 8/7 =56/7+8/7=64/7.
Apakah berlaku untuk bilangan negatif?
Coba anda cek sendiri!