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
-
Cara Memperbaiki Kualitas VideoKali ini saya akan membagi tips baru yaitu Cara Memperbaiki Kualitas Video . Software Video Enhance…
-
Cara Memperbaiki Cmd Yang Kena DisableSaat anda menjalankan RUN dari Start Menu dan kemudian anda ketik cmd, kemudian muncul error "…
-
Cara Mencuri Data Di FlashdiskPernahkah terpikir oleh anda untuk mengambil isi flashdisk orang lain tanpa izin? Tool yang saya b…
-
Cara Membuat Foto Menjadi KartunTutorial kali saya akan membahas tentang cara mudah membuat foto menjadi kartun . Mungkin teman-tem…
Post a Comment
Post a Comment