program perkalian matriks dengan cara yang lain

program perkalian_matrik;

uses crt;

var

mat_A,mat_B,mat_C :array [1..10,1..10] of integer;

ordo_x,ordo_y:integer;

x,y,koor_brs:integer;

begin

clrscr;

writeln('perkalian matrik');readln;

writeln('-----------------');readln;

write('tentukan ordo matrik : '); readln(ordo_x,ordo_y);

writeln('input matrik : ');

for y:=1 to ordo_y do

begin

koor_brs:=wherey;

for x:=1 to ordo_x do

begin

gotoxy(x*5,koor_brs);

read(mat_A[x,y]);

end;end;

writeln;

writeln('input matrik : ');

for y:=1 to ordo_y do

begin

koor_brs:=wherey;

for x:=1 to ordo_x do

begin

gotoxy(x*5,koor_brs);

read(mat_B [x,y]);

end;end;

writeln;

writeln('hasil perkalian matrik A*B = ');readln;

for y:=1 to ordo_y do

begin

for x:=1 to ordo_x do

begin

mat_C [x,y] :=mat_A[x,y]*mat_B[x,y];

write(mat_C[x,y]:5);

end;

writeln;

readln;

end;

end.

program determinan matriks

(*PROGRAM KOMPUTER*)

(*PROGRAM KOMPUTER METODE DETERMINAN MATRIKS*)

(*======================================*)

PROGRAM DETERMINAN_MATRIKS;

USES CRT,PRINTER;

LABEL

ULANG;

type

daftar=array[1..10,1..10]of real;

asal = array[1..100] of real;

var

aa,a:daftar;x,h:asal;i,j:byte;deta:real;ab:char;

begin (*Memulai program komputer invers dan determinan matriks*)

ulang:

clrscr;

write('tulis koefisien koefisien matriks yang akan diproses');

writeln;

for i:=1 to 3 do

begin

for j:=1 to 3 do

begin

write ('A',i,j,' ');read(a[i,j]);

end;

write('H',i,' ');readln(h[i]);

end;

(*mencari determinan matriks ordo tiga*)

deta := a[1,1]*(a[2,2]*a[3,3]-a[2,3]*a[3,2])+a[1,2]*(a[3,1]*a[2,3]-a[2,1]*a[3,3])+a[1,3]*(a[2,1]*a[3,2]-a[3,1]*a[2,2]);

(*nilai minor matriks ordo tiga *)

aa[1,1] :=(a[2,2]*a[3,3]-a[3,2]*a[2,3])/deta;

aa[1,2] :=-(a[1,2]*a[3,3]-a[3,2]*a[1,3])/deta;

aa[1,3] :=(a[1,2]*a[2,3]-a[2,2]*a[1,3])/deta;

aa[2,1] :=-(a[2,1]*a[3,3]-a[3,1]*a[2,3])/deta;

aa[2,2] :=(a[1,1]*a[3,3]-a[3,1]*a[1,3])/deta;

aa[2,3] :=-(a[1,1]*a[2,3]-a[2,1]*a[1,3])/deta;

aa[3,1] :=(a[2,1]*a[3,2]-a[2,2]*a[3,1])/deta;

aa[3,2] :=-(a[1,1]*a[3,2]-a[3,1]*a[1,2])/deta;

aa[3,3] :=(a[1,1]*a[2,2]-a[2,1]*a[1,2])/deta;

(*matriks koefisien yang dicari*)

x[1]:=aa[1,1]*h[1]+aa[1,2]*h[2]+aa[1,3]*h[3];

x[2]:=aa[2,1]*h[1]+aa[2,2]*h[2]+aa[2,3]*h[3];

x[3]:=aa[3,1]*h[1]+aa[3,2]*h[2]+aa[3,3]*h[3];

writeln('nilai matriks x adalah');

for i:= 1to 3 do

begin

writeln(x[i]);

end;clrscr;

write('matriks A ');write('');

write('matriks x ');

write('');writeln('matriks H');

writeln;writeln;

for i:=1 to 3 do

begin

for j:=1 to 3 do

begin write(a[i,j]:3:1);write(' ');

end;

write(' ');write(' x',i,' ');write(' ');

for j:=1 to 3 do

begin write(aa[i,j]:6:3);write(' ');

end;

writeln;

write('apakah anda ingin mengulangi(y/t) : ');

readln(ab);

if (ab='y') or (ab='Y')then

begin

goto ulang;

end

else

begin

end;

end;

end.

determinan matriks

program penghitungan perkalian matriks

Program Perkalian Matrix

uses crt;
var
a,b,c : array [1..50,1..50] of integer;
i,j,k,x,y,z : integer;
begin
clrscr;
writeln(' Program untuk menghitung perkalian 2 matrix ');
writeln;
writeln('Ukuran matrix A');
write('Baris : '); readln(x);
write('Kolom : '); readln(y);
writeln;
writeln;
writeln('Ukuran matrix B');
writeln('Baris : ',y);
write('Kolom : '); readln(z);
for i:=1 to x do
for j:=1 to y do
begin
write('Elemen A[',i,',',j,'] : ');
readln(a[i,j]);
end;
writeln;
for i:=1 to y do
for j:=1 to z do
begin
write('Elemen B[',i,',',j,'] : ');
readln(b[i,j]);
end;
for i:=1 to x do
for j:=1 to z do
for k:=1 to y do
c[i,j] := c[i,j] + a[i,k]*b[k,j];
writeln;
writeln;
writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah ');
for i:=1 to x do
begin
for j:=1 to z do
write(c[i,j],' ');
writeln;
end;
readln;
end.