Pascal/Turbo Pascal - Ayuda con ejercicio pascal

   
Vista:

Ayuda con ejercicio pascal

Publicado por Miguel (1 intervención) el 31/03/2016 02:18:47
_Cree una matriz 4x4 de números enteros y genere la matriz traspuesta
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con ejercicio pascal

Publicado por David (144 intervenciones) el 31/03/2016 13:24:46
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
{Te propongo la siguiente solución}
 
PROGRAM MatrizTraspuesta
        USES CRT;
        CONST m_orig:ARRAY[1..4,1..4] OF integer = ((2,3,4,12),
                                                 (7,9,8,11),
                                                 (5,6,1,19),
                                                 (1,3,8,4));
        VAR m_tran:ARRAY[1..4,1..4] OF integer;
        VAR i,j:INTEGER;
BEGIN
     ClrScr;
 
     FOR i:=1 TO 4 DO
         FOR j:=1 TO 4 DO
             m_tran[j,i]:=m_orig[i,j];
 
     FOR i:=1 TO 4 DO
     BEGIN
          FOR j:=1 TO 4 DO
              WRITE(m_orig[i,j]:5,' ');
          WRITELN(' ');
     END;
 
     WRITELN(' ');
 
     FOR i:=1 TO 4 DO
     BEGIN
          FOR j:=1 TO 4 DO
              WRITE(m_tran[i,j]:5,' ');
          WRITELN(' ');
     END;
     readln;
END.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar