Contoh Program Perkalian Matriks Pada Pascal

program perkalian_matrix;

uses crt;

var

a,b,c : array [1..50,1..50] of integer;

i,j,k,x,y,z : integer;

begin

clrscr;

writeln(‘Ukuran matrix A’);

write(‘Baris : ‘);

readln(x);

write(‘Kolom : ‘);

readln(y);

writeln;

writeln;

writeln(‘Ukuran matrix B’);

writeln(‘Baris : ‘,y);

write(‘Kolom : ‘);

readln(z);

for i:=1 to x do

for j:=1 to y do

begin

write(‘Elemen A[‘,i,’,’,j,’] : ‘);

readln(a[i,j]);

end;

writeln;

for i:=1 to y do

for j:=1 to z do

begin

write(‘Elemen B[‘,i,’,’,j,’] : ‘);

readln(b[i,j]);

end;

for i:=1 to x do

for j:=1 to z do

for k:=1 to y 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 x do

begin

for j:=1 to z do

write(c[i,j],’ ‘);

writeln;

end;

writeln;

readln;

end.

 

Download Program Perkalian Matriks Pada Pascal

7 thoughts on “Contoh Program Perkalian Matriks Pada Pascal

    • waduh,,, siapa bilang pinter banget??? bukan lho, ntu kebetulan sedang dapat ilham. saya sudah mapir ke beruetz, blog yang benar2 bagus, great

      btw
      beruetz asal katanya sungai beirut ya?

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s