Calcula la multiplicacion entre dos matrices
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 | {-Victor De la Rocha} {-Algoritmia@groups.msn.com} {-www.myalgorithm.com} program matrices; uses crt; type matriz = array[1..3,1..3] of integer; var mat1,mat2,mat3 : matriz; i,j,k,acum : integer; begin randomize; clrscr; Writeln('Asigne valores a las Matrices 1 y 2'); for i:= 1 to 3 do for j:= 1 to 3 do begin write('mat1[',i,',',j,']='); {readln(mat1[i,j]);} mat1[i,j]:=random(10); end; for i:= 1 to 3 do for j:= 1 to 3 do begin write('mat2[',i,',',j,']='); {readln(mat2[i,j]);} mat2[i,j]:=random(10); end; for i := 1 to 3 do for j := 1 to 3 do begin acum := 0; for k := 1 to 3 do acum := acum + mat1[i,k] * mat2[k,j]; mat3[i,j]:= acum; end; clrscr; {Imprime en pantalla matriz1} for i:=1 to 3 do begin for j:=1 to 3 do begin gotoxy((j*4)+2,(i*1)+6); write(mat1[i,j]); end; end; gotoxy(7,12);write('matriz 1'); {Imprime en pantalla matriz2} for i:=1 to 3 do begin for j:=1 to 3 do begin gotoxy((j*4)+15,(i*1)+2); write(mat2[i,j]); end; end; gotoxy(33,4);write('matriz 2'); {Imprime en pantalla matriz3} for i:=1 to 3 do begin for j:=1 to 3 do begin gotoxy((j*4)+15,(i*1)+6); write(mat3[i,j],''); end; end; gotoxy(32,11);write('Matriz 3'); readln; end. |
ERROR: Simulacion no establecida para este programa.
Intente ejecutando el codigo en su computadora