Perkalian Matrik dengan Pascal

Dalam Pemrograman Pascal tidaklah sulit untuk membuat program perkalian Matrik, disini saya akan tampilkan kode program untuk perkalian matrik menggunakan bahasa pascal. Lihat kodenya sebagai berikut :

uses crt;
var matrik1 : array [1..3,1..2] of integer;
    matrik2 : array [1..2,1..3] of integer;
    hasil   : array [1..3,1..3] of integer;
    b,k,z : integer;
begin
clrscr;
       writeln ('INPUT ISI MATRIK 1 ');
       for b:=1 to 3 do begin
       for k:=1 to 2 do begin
           write ('Baris ke ',b,' kolom ke - ',k,' = ');
           readln(matrik1[b,k]);
       end;
       end;
       writeln ('INPUT ISI MATRIK 2 ');
       for b:=1 to 2 do begin
       for k:=1 to 3 do begin
           write ('Baris ke ',b,' kolom ke - ',k,' = ');
           readln(matrik2[b,k]);
       end;
       end;
       writeln (' Matrik 1 ');
       for b:=1 to 3 do begin
       for k:=1 to 2 do begin
           write (matrik1[b,k],'  ');
       end;
       writeln;
       end;

       writeln (' Matrik 2 ');
       for b:=1 to 2 do begin
       for k:=1 to 3 do begin
           write (matrik2[b,k],'  ');
       end;
       writeln;
       end;

       writeln (' Hasil Perkalian Matrik ; ');
       for b:=1 to 3 do begin
       for k:=1 to 3 do begin
       hasil[b,k]:=0;
       for z:=1 to 2 do
       hasil[b,k]:=hasil[b,k]+matrik1[b,z]*matrik2[z,k];
       end;
       end;
       for b:=1 to 3 do begin
       for k:=1 to 3 do begin
       write(hasil[b,k],'  ');
       end;
       writeln;
       end;
       readln;

end.

Gimana??? Mudah bukan?? Semoga dapat menjadikan pengetahuan untuk tugas anda.....

Read More >>>