[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:

Turbo Pascal

• [Turbo Pascal] Pengurutan Bilangan
• [Turbo Pascal] Menghitung Bilangan Ganjil dan Genap
• [Turbo Pascal] Perulangan Dengan Repeat Until
• [Turbo Pascal] Perbedaan Char dan String
• [Turbo Pascal] Program Pencarian Indeks Bilangan
• [Turbo Pascal] Program dengan menggunakan menu pilihan
• [Turbo Pascal] Program Menghitung Tahun Kabisat dan Non-Kabisat
• [Turbo Pascal] Menghitung Nilai Rata-rata dengan While..Do
• [Turbo Pascal] Program Sederhana Menghitung Gaji Pegawai
• [Turbo Pascal] Contoh sederhana penggunaan FOR TO DO
• [Turbo Pascal] Contoh Sederhana Penggunaan Case Of
• [Turbo Pascal] Program Data Mahasiswa dengan Type Data Terstruktur
• [Turbo Pascal] Program Kasir
• [Turbo Pascal] Menghitung banyaknya huruf Vokal
• [Turbo Pascal] Program Segitiga Pascal
• [Turbo Pascal] Input data yang tidak sama
• [Turbo Pascal] Program KRS Mahasiswa
• [Turbo Pascal] Menghitung huruf
• [Turbo Pascal] Program membaca nilai berpasangan
• [Turbo Pascal] Contoh Prosedur dengan Parameter Variabel
• [Turbo Pascal] Mencari Pangkat Dan Faktorial
• [Turbo Pascal] Mencari Nilai Minimal Dengan Array
• [Turbo Pascal] Mencari Nilai Maksimal Dengan Array
• [Turbo Pascal] Mencari Modus Dari Bilangan
• [Turbo Pascal] Menentukan Ganjil & Genap

Posted in: Turbo Pascal