Contoh Program Penjumlahan Matriks Dalam Bahasa Pascal

Jumat, 17 Juni 20110 komentar

Contoh penambahan dua buah matriks, menjumlahkan dua buah matriks dalam bahasa pascal, cara penjumlahan dua buah matriks dalam bahasa pascal, penjumlahan 2 buah, 3 buah 4 buah matriks dengan bahasa pascal, program menjumlahkan dua buah matriks dalam bahasa pascal

Bagi yang ingin membuat program pascal menjumlahkan dua buah matriks, berikut adalah source code nya :

program matriks;
uses wincrt;
const
baris=4;
kolom=4;
type
matrix= array [1..baris,1..kolom] of integer;
var
A,B,C:matrix;

procedure isimatriks;
var i,j:integer;
begin
writeln('Matriks 1');
for i:=1 to 4 do begin
for j:=1 to 4 do begin
write('masukkan baris ke-',i,', kolom ke-',j,' :');readln(A[i,j]);
end;
end;
end;

procedure isimatriks2;
var i,j:integer;
begin
writeln('Matriks 2');
for i:=1 to 4 do begin
for j:=1 to 4 do begin
write('masukkan baris ke-',i,', kolom ke-',j,' :');readln(B[i,j]);
end;
end;
end;

procedure cetakmatriks;
var i,j:integer;
begin
for i:=1 to 4 do begin
for j:=1 to 4 do begin
write(' ',A[i,j]);
end;
writeln;
end;
end;

procedure cetakmatriks2;
var i,j:integer;
begin
for i:=1 to 4 do begin
for j:=1 to 4 do begin
write(' ',B[i,j]);
end;
writeln;
end;
end;

procedure tambah;
var i,j:integer;
begin
for i:=1 to 4 do begin
for j:=1 to 4 do begin
C[i,j]:=A[i,j]+B[i,j];
write(' ',C[i,j]);
end;
writeln;
end;
end;

begin
isimatriks;
clrscr;
isimatriks2;
clrscr;
writeln('MATRIKS 1');
cetakmatriks;writeln;
writeln('MATRIKS 2');
cetakmatriks2;writeln;writeln('MATRIKS 3');
tambah;
end.

Share this article :

Poskan Komentar

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Khairul umam - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger