matriz, Pascal - rextester

Language: Layout:

Program M_Matriz;
 uses crt;
  const n=100;
//Declaracion Tipo Array y variables          
 Type Matriz=Array[1..n,1..n] of integer;
 
   Var M1,M2,M3:Matriz;
     datom1,datom2,dato,opc,FilM1,ColM1,ColM2:integer;

//El usuario ingresa los datos de las Matrices A y B
 Procedure Leer(var M1,M2:matriz;var ColM1,FilM1,ColM2:integer);
  var i,j:integer;

begin
   	clrscr;
    write('Dame el No. de columnas de La Matriz 1:  '); readln(ColM1);
     clrscr;
    write('Dame el No. de Filas de La Matriz 1:  ');readln(FilM1); 
    clrscr;
    for i:=1 to FilM1 do
     begin
      for j:=1 to ColM1 do
       begin
        writeln('Dame los valores de la celda [',i,',',j,']: ');
         readln(datom1);
          M1 [i,j]:=Datom1;
         write(' ');
       end;
        writeln;
     end;
     clrscr;
     write('Dame el No. de columnas de La Matriz 2:  ');readln(ColM2);
     clrscr;
      for i:=1 to ColM1 do
       begin
        for j:=1 to ColM2 do
         begin
          writeln('Dame los valores de la celda [',i,',',j,']: ');
           readln(datom2);
           M2 [i,j]:=datom2;
            write(' ');

end;
          writeln;
      end;
   end;

//Se multiplica una Matriz A Por Una Matriz B para un Produco C
    Function Multiplicar (M1,M2:matriz;ColM1,ColM2,FilM1:integer ):matriz;
     var i,j,k:integer;
         M3:matriz;
          begin
          	clrscr;
          	 writeln ('Espere un momento...');
          	 writeln;
          	 writeln;
          	 writeln ('Listo, por favor presione ENTER');
           for i:=1 to FilM1 do
begin
             for j:=1 to ColM2 do
begin
              for k:=1 to ColM1 do
              
              M3[i,j]:=M3[i,j]+M1[i,k]*M2[k,j];
              
              Multiplicar:=m3;
              readln;
              end;
end;
end;

//Impresion del resultado

Procedure Imprimir (M3:Matriz;FilM1,ColM2:integer);
    Var i,j:integer;
     Begin
     	 clrscr;
     	writeln ('***El resultado de la multiplicacion de Matrices es: ***');
     	writeln;
     	writeln ('MATRIZ A');
     	  for i:=1 to film1 do
     	   begin
     	   	for j:=1 to colm1 do
     	   	 begin
     	   	 	datom1:=M1[i,j];
     	   	 	write(datom1,' ');
     	   	 	
     	   	 	end;
     	   	readln;
     	   	end;
     	   	writeln ('MATRIZ B');
     	   	writeln;
     	   	 for i:=1 to colm1 do
     	   	 
     	   	  begin
     	   	  	for j:=1 to colm2 do
     	   	  	begin
     	   	  	datom2:=m2 [i,j];
     	   	  	write (datom2,' ');
     	   	  	end;
     	   	  	readln;
     	   	  	end;
     	  
     	  
     	 writeln ('MATRIZ RESULTANTE');
     	 writeln;
     	 for i:= 1 to FilM1 do
     	  begin
     	  	for j:= 1 to ColM2 do 
     	  	 begin
     	  	 	dato:=m3[i,j];
     	  	 	write(dato,' ');
     	  	 	
     	  	 	
     	  	 	end;
     	  	 	 readln;
     	  	end;
     	  	
     	end;

//Programa Principal
           begin
           	repeat
           clrscr;
            Writeln ('***PROGRAMA QUE MULTIPLICA DOS MATRICES***');
            writeln;
            writeln;
            writeln ('====== M E N Ú ======');
            writeln;
            writeln;
            writeln ('1) Leer Matriz A y B');
            writeln ('2) Multiplicar Matrices');
            writeln ('3) Imprimir Matrices');
            writeln ('4) Salir');
            writeln;
            writeln ('///// INGRESA TU OPCION Y PRESIONA ENTER /////');
            readln (opc);
            
            case opc of 
            
            1: Leer(M1,M2,FilM1,ColM1,ColM2);
           	2: M3:=Multiplicar(M1,M2,FilM1,ColM1,ColM2);
           	
3: Imprimir (M3,FilM1,ColM2);

4: begin
Writeln ('###### GRACIAS POR USAR EL PROGRAMA, HASTA LUEGO ######');
readln;
exit;
end
  
  
 else 
  Writeln ('# ELIJA UNA OPCION DEL MENU #');
  readln;
  end;
until opc=4;
  
           	
           	
           end.

Show compiler warnings [ + ] Show input
Compilation time: 0.22 sec, absolute running time: 10.04 sec, cpu time: 0 sec, memory peak: 0 Mb, absolute service time: 10,42 sec