Minggu, 17 Juni 2012

FINAL 1: PENJUMLAHAN MATRIKS DENGAN PROCEDURE


program matriks;
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 MATRIKS I');
     write('Masukan banyak baris matriks I = ');readln(baris);
     write('Masukan banyak kolom matriks 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 MATRIKS II');
     write('Masukan banyak baris matriks II = ');readln(baris);
     write('Masukan banyak kolom matriks 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('___________________________');
     gotoxy(40,10); writeln('programmed by MUHAMMAD BIBI');
     gotoxy(40,11); writeln('              F1A1 11 103');
     gotoxy(40,12); writeln('              MATEMATIKA');
     gotoxy(40,13); 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.

Tidak ada komentar:

Posting Komentar