Final Pemrograman Komputer 3

program matrik;

uses crt;

type data = array[1..10,1..10] of integer;

var matrikI,matrikII : data;

    baris,kolom,pil : integer;

procedure isimatrik;

var  i,j : integer;

begin

     writeln('Penentuan ORDO MATRIK I');

     write('Masukan banyak baris matrik I = ');readln(baris);

     write('Masukan banyak kolom matrik I = ');readln(kolom);

     for i:=1 to baris do

         for j:=1 to kolom do

             begin

             gotoxy(j*10,i*5);

             readln(matrikI[i,j]);

             end;

     clrscr;

     writeln('Penentuan ORDO MATRIK II');

     write('Masukan banyak baris matrik II = ');readln(baris);

     write('Masukan banyak kolom matrik II = ');readln(kolom);

     for i:=1 to baris do

         for j:=1 to kolom do

             begin

             gotoxy(j*10,i*5);

             readln(matrikII[i,j]);

             end;

end;

procedure kalimatrik(m1,m2 : data);

var hasil : data;

    i,j,z   : integer;

    begin

     for i:=1 to baris do

         for j:=1 to kolom do

             begin

                  hasil[i,j]:=0;

                  for z:=1 to baris do

                  hasil[i,j]:=hasil[i,j]+matrikI[i,z]*matrikII[z,j];

             end;

     clrscr;

     writeln('Hasil Perkalian Matriks');

     writeln('_________________________');

     for i:=1 to baris do

         for j:=1 to kolom do

             begin

             gotoxy(j*10,i*5);

             write(hasil[i,j]);

             end;

end;

begin

clrscr;

isimatrik;

kalimatrik(matrikI,matrikII);

readln;

end. 

Download Final PemKom 1

Download Final PemKom 2

Download Final PemKom

Download Final PemKom 4