program perkalian 2 matriks(by korina7031 n veruka8056)

Program Perkalian2matrik;
uses wincrt;
var
x,y,z:array[1..25,1..25]of real;
i,j,k,p,q,r:byte;
Begin
gotoxy(30,1);writeln(‘PERKALIAN DUA MATRIKS’);
writeln(‘By:KORINA PUSPITASARI’);
Writeln(‘==========================================================================’);
writeln;
writeln(‘Masukkan 2 matrik yang anda inginkan’);
write(‘Baris matriks X:’);readln(p);
write(‘Kolom matriks X/Baris matriks Y:’);readln(q);
write(‘Kolom matriks Y:’);readln(r);
writeln(‘Komponen matriks X’);
for i:= 1 to p do
begin
for j:= 1 to q do
begin
write(‘X[‘,i,’,’,j,’]=’);readln(x[i,j]);
end;
writeln;
end;
writeln(‘Komponen matriks Y’);
for i:= 1 to q do
begin
for j:= 1 to r do
begin
write(‘Y[‘,i,’,’,j,’]=’);readln(y[i,j]);
end;
writeln;
end;
for i:=1 to p do
begin
for j:=1 to r do
begin
z[i,j]:=0;
for k:=1 to r do
z[i,j]:=z[i,j]+x[i,k]*y[k,j];
end;
end;
clrscr;
writeln( ‘matriks X’);
for i:= 1 to p do
begin
writeln;
for j:= 1 to q do
write(x[i,j]:10:1);
writeln;
end;
writeln;
writeln(‘matriks Y’);
for i:= 1 to q do
begin
writeln;
for j:= 1 to r do
write (y[i,j]:10:1);
writeln;
end;
writeln;
writeln(‘Hasil Kali Kedua matriks tersebut adalah’);
for i:=1 to p do
begin
writeln;
for j:=1 to r do
write(z[i,j]:10:1);
end;
end.