Final Pemrograman Komputer 1

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 jumlahmatrik(m1,m2 : data);

var hasil : data;

    i,j   : integer;

begin

     for i:=1 to baris do

         for j:=1 to kolom do

             begin

                 hasil[i,j]:=m1[i,j]+m2[i,j];

             end;

     clrscr;

     writeln('Hasil Penjumlahan 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;

jumlahmatrik(matrikI,matrikII);

readln;

end.

Download Final PemKom 1 

Download Final  PemKom 2

Download Final PemKom 3

Download Final PemKom 4