Perkalian Matrik dengan Pascal

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.....

Tidak ada komentar:

Posting Komentar