Array Pascal: Penjumlahan Matrix

27 Januari 2009

Array Pascal: Penjumlahan Matrix

Tugas kuliah memang bikin kita jenuh... Namun demi mengejar nilai yg memuaskan jadi terpaksa deh di kerjain...hehehe. berikut ini adalah salah satu tugas pascal membuat program untuk menjumlahkan dua buah matrix dengan menggunakan array. silahkan Copas(Copy paste) dan modofikasi sendiri. semoga bermanfaat.....

Kode Program:

program PenjumalahanMatrix;
uses wincrt;

const
kolom=25;
baris=25;

type
matrix=array[1..baris,1..kolom] of integer;

var
matrix_A,matrix_B:matrix;
a,b:integer;

{----Input Matrix----}

procedure InputMatrix(var x:matrix);
var
i,j:integer;

begin
for i:=1 to a do
begin
for j:=1 to b do
begin
Write('Masukan Elemen[',i,', ',j,'] : ');readln(x[i,j]);
end;
end;
end;

{----Cetak Matrix----}

procedure CetakMatrix(var x:matrix);
var
i,j:integer;

begin
for i:=1 to a do
begin
for j:=1 to b do
begin
Write(x[i,j]:4);
end;
writeln;
end;
end;

{----Penjumlahan Matrix----}

procedure JumlahMatrix(var x,y:matrix);
var
z:matrix;
i,j:integer;
begin
for i:=1 to a do
begin
for j:=1 to b do
begin
z[i,j]:=x[i,j] + y[i,j];
Write(z[i,j]:4);
end;
writeln;
end;
end;

{----Program Utama----}

begin
write('Masukan Jumlah Baris : ');readln(a);
write('Masukan Jumlah Kolom : ');readln(b);

if (a>25) or (b>25) then
begin
writeln('Ada kesalahan ! max kolom dan baris adalah 25.');
exit;
end;

clrscr;

writeln('Input Martix A');
InputMatrix(matrix_A);

writeln;

writeln('Input Martix B');
InputMatrix(matrix_B);

clrscr;

writeln('Matrix A');
CetakMatrix(matrix_A);

writeln;

writeln('Matrix B');
CetakMatrix(matrix_B);

writeln;

writeln('Pemjumlahan Matrix A dan Matrix B');
JumlahMatrix(matrix_A,matrix_B);

end.

Cetak