PROGRAM MATRIK DALAM TURBO PASCAL
v PROGRAM
MATRIK DENGAN YANG NILAI TELAH DITENTUKAN
1.
DENGAN 1 MATRIK
program matrik;
uses wincrt;
var
mat:array[1..3,1..2] of integer;
i,j:integer;
begin
writeln('contoh matrik 3x2 dengan nilai ditentukan
sendiri');
writeln('==================================================');
mat[1,1]:=1;
mat[1,2]:=4;
mat[2,1]:=5;
mat[2,2]:=6;
mat[3,1]:=7;
mat[3,2]:=8;
for i:=1 to 3 do begin
for j:=1 to 2 do begin
writeln('baris',i,'kolom',j,'=', mat[i,j]);
end;
end;
end.
v PROGRAM
MATRIK DENGAN NILAI INPUT
uses wincrt;
var
mat:array[1..3,1..2] of integer;
i,j: integer;
begin
writeln('contoh matrik 3x2 dengan nilai input');
{untuk melakukan input nilai}
for i:=1 to 3 do begin
for j:=1 to 2 do begin
write('baris',i,'kolom,j,':') ;readln(mat[i,j]);
end;
end;
{untuk menamplkan hasil}
writeln('matriks nya adalah:');
for i:=1 to 3 do begin
for j:=1 to 2 do begin
write(mat[i,j]:5);
end;
writeln;
end;
end.
Nilai matrik 4x3
uses wincrt;
var
mat:array[1..4,1..3] of integer;
i,j: integer;
begin
writeln('contoh matrik 4x3 dengan nilai input');
{untuk melakukan input nilai}
for i:=1 to 4 do begin
for j:=1 to 3 do begin
write('baris',i,'kolom',j,':');readln(mat[i,j]);
end;
end;
{untuk menamplkan hasil}
writeln('matriks nya adalah:');
for i:=1 to 4 do begin
for j:=1 to 3 do begin
write(mat[i,j]:5
);
end;
writeln;
end;
end.
2.
DENGAN 2 BUAH MATRIK
uses wincrt;
var
mat:array[1..4,1..3]
of integer;
i,j: integer;
begin
writeln('matrik
1');
writeln('contoh
matrik 4x3 dengan nilai input');
{untuk melakukan
input nilai}
for i:=1 to 4 do
begin
for j:=1 to 3 do
begin
write('baris',i,'kolom',j,':');readln(mat[i,j]);
end;
end;
{untuk menamplkan
hasil}
writeln('matriks
nya adalah:');
for i:=1 to 4 do
begin
for j:=1 to 3 do
begin
write(mat[i,j]:5 );
end;
writeln;
end;
writeln('matrik
2');
writeln('contoh
matrik 4x3 dengan nilai input');
{untuk melakukan
input nilai}
for i:=1 to 4 do
begin
for j:=1 to 3 do
begin
write('baris',i,'kolom',j,':');readln(mat[i,j]);
end;
end;
{untuk menamplkan
hasil}
writeln('matriks
nya adalah:');
for i:=1 to 4 do
begin
for j:=1 to 3 do
begin
write(mat[i,j]:5 );
end;
writeln;
end;
end.
v Penjumlahan
2 buah bilangan dengan Turbo Pascal
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.
v
Contoh Perkalian 2 Bilangan Matrix pada
Turbo Pascal
program
perkalian_matrix;
uses crt;
var
a,b,c : array
[1..50,1..50] of integer;
i,j,k,x,y,z :
integer;
begin
clrscr;
writeln(‘Ukuran
matrix A’);
write(‘Baris : ‘);
readln(x);
write(‘Kolom : ‘);
readln(y);
writeln;
writeln;
writeln(‘Ukuran
matrix B’);
writeln(‘Baris :
‘,y);
write(‘Kolom : ‘);
readln(z);
for i:=1 to x do
for j:=1 to y do
begin
write(‘Elemen
A[',i,',',j,'] : ‘);
readln(a[i,j]);
end;
writeln;
for i:=1 to y do
for j:=1 to z do
begin
write(‘Elemen
B[',i,',',j,'] : ‘);
readln(b[i,j]);
end;
for i:=1 to x do
for j:=1 to z do
for k:=1 to y do
c[i,j] := c[i,j] +
a[i,k]*b[k,j];
writeln;
writeln;
writeln(‘Hasil dari
perkalian Matrix A dengan Matrix B adalah : ‘);
Writeln;
for i:=1 to x do
begin
for j:=1 to z do
write(c[i,j],’ ‘);
writeln;
end;
writeln;
readln;
end.
penjumlahan
uses wincrt;
var
mat,hasil:
array[1..4,1..3] of integer;
i,j: integer;
begin
writeln('matrik
1');
writeln('contoh
matrik 4x3 dengan nilai input');
{untuk melakukan
input nilai}
for i:=1 to 4 do
begin
for j:=1 to 3 do
begin
write('baris',i,'kolom',j,':');readln(mat[i,j]);
end;
end;
{untuk menamplkan
hasil}
writeln('matriks
nya adalah:');
for i:=1 to 4 do
begin
for j:=1 to 3 do
begin
write(mat[i,j]:5 );
end;
writeln;
end;
writeln('matrik
2');
writeln('contoh
matrik 4x3 dengan nilai input');
{untuk melakukan
input nilai}
for i:=1 to 4 do
begin
for j:=1 to 3 do
begin
write('baris',i,'kolom',j,':');readln(mat[i,j]);
end;
end;
{untuk menamplkan
hasil}
writeln('matriks
nya adalah:');
for i:=1 to 4 do
begin
for j:=1 to 3 do
begin
write(mat[i,j]:5 );
end;
writeln;
end;
{menjumlahkan dua buah matrik}
writeln('menjumlahkan
dua buah matrik');
for i:=1 to 4 do
begin
for j:=1 to 3 do
begin
hasil[i,j] : =mat([i,j]+mat[i,j];
end;
end;
writeln;
writeln('hasil penjumlahan adalah:')
for i:=1 to 4 do
begin
for j:=1 to 3 do
begin
write(hasil([i,j]:5);
end;
writeln;
end;
end.
