Santo Siswa Santosa
112211126
1. Buat Program untuk Perkalian 2 Matrik
Program perkalian_matrik;
uses WinCrt;
var
a,b,c : array [1..50,1..50] of integer;
i,j,k,x,y,z : integer;
begin
clrscr;
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 : ');
Writeln;
for i:=1 to x do
begin
for j:=1 to z do
write(c[i,j],' ');
writeln;
end;
writeln;
readln;
end.
2.Buat Program untuk menampilkan matrik
Program matrik;
Uses WinCrt;
Var
A,B,C:ARRAY[1..10,1..10]OF INTEGER;
X,Y,KOL,BAR:INTEGER;
BEGIN
FOR X:=1 TO 5 DO
BEGIN
FOR Y:=1 TO 5 DO
BEGIN
C[X,Y]:=0;
IF X+Y=6 THEN C[X,Y]:=1;
WRITE (C[X,Y]:4);
END;
WRITELN;
END;
END.
