Soal : Buatlah program untuk melakukan Penjumlahan Matriks dengan ukuran a x a, dimana menginput nilai menggunakan fungsi/prosedur. contoh : Input :                                 Ukuran matriks (a x a) : 3      &...

[Pascal] Program Penjumlahan pada Matriks

Soal :
Buatlah program untuk melakukan Penjumlahan Matriks dengan ukuran a x a, dimana menginput nilai menggunakan fungsi/prosedur.
contoh :

Input :
                                Ukuran matriks (a x a) : 3
                                 A  =                3  3  1            B  =         8  2  3
                                                         2  5  4                            4  1  1
                                                         5  4  2                            2  7  1
 
                                Output : A+B  = 11  5   4
                                                           6   6   5

                                                                               7  11 3

 

 

program matrik;
uses crt;
type data = array[1..10,1..10] of integer;
var matrikI,matrikII : data;
    baris,kolom,pil : integer;
    Ul : char;

procedure isimatrik;
var i,j : integer;

begin
 write ('Ukuran Matriks (a x a) : '); readln(baris);
 writeln;
     writeln ('A =');
     writeln;
      for i:=1 to baris do
         begin
         for j :=1 to baris do
             begin
                  gotoxy (j*5,i+8);
                  read(matrikI[i,j]);
             end;
         end;
     writeln;
     writeln('B =');
     writeln;
     for i:=1 to baris do
         begin
         for j:=1 to baris do
             begin
                  gotoxy(j*5,i+12);
                  read(matrikII[i,j]);
             end;
         end;
end;

procedure jumlahmatrik(m1,m2 : data; baris,kolom :integer);
var hasil : data;
    i,j : integer;
begin
     for i:=1 to baris do
         for j:=1 to baris do
             begin
                  hasil[i,j]:=m1[i,j]+m2[i,j];
             end;
     writeln;
     writeln('Output : A+B = ');

     for i:=1 to baris do
         for j:=1 to baris do
             begin
                  gotoxy(j*5,i+17);
                  write(hasil[i,j]);
             end;
readln;
end;

begin
clrscr;
  writeln('Program : Penjumlahan pada Matriks');
  writeln('Polma Saut Martua Sihotang');
  writeln('118130023 / IK-37-01');
  writeln('Telkom University');
  writeln;
  writeln;
  isimatrik;
  jumlahmatrik(matrikI,matrikII,baris,kolom);
readln;
end.


Maka Hasilnya akan terlihat seperti gambar dibawah ini :


About Author

Polma Saut Martua Sihotang

nothing


Comment & Discussions

    Please LOGIN before if you want to give the comment.