Matrix menggunakan program Pascal

Hai reader!

Kali ini saya ingin memberi contoh menentukan matrix dan menjumlahkan matrix menggunakan bahasa pemrograman Pascal menggunakan prosedur.

Kasus : User dapat menentukan ordo dan menginputkan nilainya untuk 2 buah matrix yang kemudian matrix tersebut akan dijumlahkan dan ditampilkan hasilnya.

Langsung saja berikut syntaxnya :

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

var matrikI,matrikII : data;
baris,kolom : integer;

procedure ukuranmatrix;

begin
    write('Masukkan jumlah baris tidak lebih dari 10 untuk ordo matrix : '); readln(baris);
    write('Masukkan jumlah kolom tidak lebih dari 10 untuk ordo matrix : '); readln(kolom);
end;

procedure inputmatrix;
var i,j : integer;
begin
    writeln;
    writeln ('A =');
    writeln;
    for i:=1 to baris do
        begin
        for j:=1 to kolom 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 kolom do
        begin
            gotoxy(j*5,i+12);
            read(matrikII[i,j]);
        end;
        end;
    end;

procedure jumlahmatrix (m1,m2 : data; baris,kolom : integer);
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;
        writeln;
        writeln('Output : A+B = ');

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

begin
    clrscr;
    writeln('Program : Penjumlahan pada Matriks');
    writeln;
    ukuranmatrix;
    inputmatrix;
    jumlahmatrix(matrikI,matrikII,baris,kolom);
    readln;
end.
Print Friendly, PDF & Email

Leave a Reply

Your email address will not be published. Required fields are marked *