Kode Pascal Perkalian Matriks

program perkalian_matriks;
uses crt;
const n_i=2;
n_j=2;
n_k=1;
var
A: array [1..n_i,1..n_j] of integer;
B: array [1..n_j,1..n_k] of integer;
C: array [1..n_i,1..n_k] of integer;
i,j,k:integer;
begin
clrscr;
writeln(‘penetapan nilai matriks A’);
for i:=1 to n_i do
for j:=1 to n_j do
begin
write(‘baris ke-’,i,’kolom ke-’,j,’ :’);
readln(A[i,j]);
end;
writeln(‘penetapan nilai matriks B’);
for j:=1 to n_j do
for k:=1 to n_k do
begin
write(‘baris ke-’,j,’kolom ke-’,k,’ :’);
readln(B[j,k]);
end;
writeln(‘Perhitungsn sedang dilakukan ..’);
for i:= 1 to n_i do
for k:= 1 to [...]

Read Full Post »

Kode Pascal Penjumlahan Matrik

program penjumlahan_matrik;
uses crt;
const
j_baris=2;
j_kolom=2;
var
a,b,c : array[1..j_baris,1..j_kolom] of integer;
baris, kolom : integer;
begin
clrscr;
color_background(white);
textcolor(blue);
writeln(‘Penetapan nilai matrik A’);
for baris:=1 to j_baris do
for kolom:=1 to j_kolom do begin
write(‘Baris ke-’,baris,’ Kolom ke-’,kolom,’:’);
readln(A[baris,kolom]);
end;
textcolor(red);
writeln(‘Penetapan nilai matrik B’);
for baris:=1 to j_baris do
for kolom:=1 to j_kolom do begin
write(‘Baris ke-’,baris,’ Kolom ke-’,kolom,’:’);
readln(B[baris,kolom]);
end;
textcolor(green+blink);
writeln(‘Perhitungan sedang dilakukan’);
for baris:=1 to j_baris do
for kolom:=1 to j_kolom do begin
C[baris,kolom]:= A[baris,kolom]+B[baris,kolom];
end;
textcolor(yellow);
writeln(‘Nilai matrik C’);
for baris:=1 [...]

Read Full Post »