0
Home  ›  Contoh Aplikasi Pascal

Program Perkalian Dua 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

Baca juga Mencari akar dengan Bolzano


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]);

Baca juga Program Lokalisasi Akar


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.

silahkan diperiksa kembali listing diatas, kemungkinan terjadi kesalahan dalam perhitungan. mohon kritik dan saran demi pengembangan program ini..

thx. Joel...
Related Post
Penjumlahan Dua matriks
Penjumlahan Dua matriks program penjumlahan_matrik; uses crt; constj_baris=2;j_kolom…
Aplikasi OMv1.exe dengan pascal
Aplikasi OMv1.exe dengan pascalPengkodingan ini di ambil dari makalah yang telah seminarkan pada tang…
Menampilkan bilangan genap
Menampilkan bilangan genap Berikut ini adalah contoh pengulangan while .. do dalam baha…
Menampilkan bilangan ganjil
Menampilkan bilangan ganjil Berikut ini contoh bahasa Pascal untuk kasus pengulangan men…
Post a Comment
Kode Iklan Tengah 1
Kode Iklan Tengah 2
Search
Kode Iklan Bawah
Menu
Teks Footer
Theme
Share
Additional JS