[Pascal] Program Penjumlahan pada Matriks

[Pascal] Program Penjumlahan pada Matriks

56

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 penjumlahan_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 :

Keywords: penjumlahan matriks pascal, program pascal

Share: