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
Mencari akar dengan Bolzano
Mencari akar dengan BolzanoIni adalah coding program mencari akar dengan metode Bolzano.PROGRAM B…
Program Lokalisasi Akar
Program Lokalisasi AkarProgram Lokalisai_Akar;Uses Crt;Function f(x : real) : real;Begin f :…
Aplikasi OMv1.exe dengan pascal
Aplikasi OMv1.exe dengan pascalPengkodingan ini di ambil dari makalah yang telah seminarkan pada tang…
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