[Turbo Pascal] Perkalian Pada Matriks

         Matriks adalah struktur penyimpanan data di dalam memori utama yang setiap individu elemennya diacu dengan menggunakan dua buah indeks (yang biasanya dikonotasikan dengan indeks baris dan indeks kolom). Matriks adalah sekumpulan kotak yang tersusun berjajar pada setiap baris dan kolom. Susunan ini juga disebut GRID.

program perkalian_matriks;
uses wincrt;

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 n_k do
begin
C[i,k] :=0;

for j:= 1 to n_j do
C[i,k] := C[i,k]+A[i,j] * B[j,k];
end;
writeln('Maka nilai matriks C');

for i:=1 to n_i do
begin
for k:=1 to n_k do
write(C[i,k]:4);
writeln;

end;

readln;
end.


Diatas Adalah Contoh sederhana dari matriks...
Bagi teman2 yang ingin Download selengkapnya tentang Matriks, silahkan klik disini

Related Articel:

Posted in: Turbo Pascal