LordKusa

matrices - 3

Aug 29th, 2019
122
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program transpuesta;   
  2.  
  3. uses
  4.     crt;
  5.  
  6. type
  7.     matrices = array[1..5, 1..5]of integer;
  8.    
  9. var
  10.     matriz:matrices;
  11.  
  12.    
  13. procedure carga(var m:matrices);
  14.     var
  15.         i, j:integer;
  16.        
  17.     begin
  18.    
  19.         randomize;
  20.    
  21.         for i := 1 to 5 do
  22.        
  23.             for j := 1 to 5 do
  24.            
  25.                 m[i, j] := random(49+1);
  26.    
  27.     end;
  28.    
  29. procedure mostrar(m:matrices);
  30.     var
  31.         i, j:integer;
  32.        
  33.     begin
  34.    
  35.         for i := 1 to 5 do
  36.        
  37.             begin
  38.        
  39.                 for j := 1 to 5 do
  40.            
  41.                     write(m[i, j], ' ');
  42.                    
  43.                 writeln;
  44.                
  45.             end;
  46.    
  47.     end;
  48.    
  49. procedure transpuesta(var m:matrices);
  50.     var
  51.         i, j, aux:integer;
  52.        
  53.     begin
  54.    
  55.         for i := 1 to 5 do
  56.  
  57.                 for j := 1+i to 5 do
  58.                    
  59.                     if(i <> j)then
  60.                    
  61.                         begin
  62.                
  63.                             aux := m[i, j];
  64.                             m[i, j] := m[j, i];
  65.                             m[j, i] := aux;
  66.                            
  67.                         end;
  68.    
  69.     end;
  70.  
  71. begin
  72.  
  73.     carga(matriz);
  74.     mostrar(matriz);
  75.     writeln;
  76.     writeln;
  77.     transpuesta(matriz);
  78.     mostrar(matriz);
  79.    
  80. end.
RAW Paste Data