09 Januari 2012

Program Penambahan Matriks dengan Pascal

Program Penambahan Matriks dengan Pascal. Udah lama ga mosting tentang pascal nih. Tadi ada temen yang nanyain tentang penambahan matriks dengan pascal yang berordo m x n. Nah, ya udah saya coba bantuin dengan membuat postingan ini deh, hehehe.

program Penjumalahan_Matrix;
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;
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;
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;
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;
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.

Share on Facebook
Share on Twitter
Share on Google+

Related : Program Penambahan Matriks dengan Pascal

0 Komentar:

Posting Komentar

Terimakasih telah meninggalkan Komentar di Didit Blog | Silahkan berkomentar dengan bebas, tidak mengandung SARA | komentar dengan link HIDUP akan dihapus | Terimakasih ^_^