program Kali_Matrix;
uses wincrt;
var
a,b,c : array [1..50,1..50] of integer;
i,j,k,n,m,p : integer;
begin
clrscr;
writeln('Ukuran matrix A');
write('Baris : '); readln(n);
write('Kolom : '); readln(m);
writeln;
writeln;
writeln('Ukuran matrix B');
writeln('Baris : ',m);
write('Kolom : '); readln(p);
writeln;
for i:=1 to n do
for j:=1 to m do
begin
write('Elemen A[',i,',',j,'] : ');
readln(a[i,j]);
end;
writeln;
for i:=1 to m do
for j:=1 to p do
begin
write('Elemen B[',i,',',j,'] : ');
readln(b[i,j]);
end;
for i:=1 to n do
for j:=1 to p do
for k:=1 to m do
c[i,j] := c[i,j] + a[i,k]*b[k,j];
writeln;
writeln;
writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
Writeln;
for i:=1 to n do
begin
for j:=1 to p do
write(c[i,j],' ');
writeln;
end;
writeln;
readln;
end.
Bila ada yang kurang harap di maklumi karena saya juga masih belajar,,,
Popular
-
Model Handphone Terkecil Di DuniaModel Handphone tipis sudah diperkenalkan motorola dan Samsung, tapi perang design akan terus berl…
-
Intel Core i3 VS Core i5 VS Core i7Selama bertahun-tahun Intel telah bekerja di balik layar untuk membuat struktur brand dan mengek…
-
Santa Clara - Smartphone Pertama IntelTidak mau ketinggalan dengan yang lain, Intel dikabarkan meluncurkan ponsel pertamanya yang menggun…
-
Download Avira Antivirus 2013 Gratis TerbaruDownload Avira Terbaru . Avira GmbH adalah suatu perusahaan perangkat lunak/software antivirus bu…
-
Tips/Cara Jitu Menghindari Kejahatan CyberDunia cyber rawan dengan beragam aksi kriminal. untuk pengguna computer atau perangkat mobile yang…
-
Most Popular Laptops for july 2011Ascendancy that sense, surmise of this brochure through the " most clickable laptops of t…
-
Firefox vs Chrome, who wins?Already tried Firefox 4? This version featured better. But what if compared to Chrome? Mozilla much…
Post a Comment
Post a Comment