Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » intercambiar valores en una matriz

Pascal/Turbo Pascal - intercambiar valores en una matriz

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

intercambiar valores en una matriz

Publicado por marios (58 intervenciones) el 02/04/2014 15:27:45
hola ramon, un abrazo cordial antetodo, y mil gracias por tu ayuda inmensa.
Ramon como hago en una matriz ingresada por teclado, para intercambiar la primera columna con la ultima, la segunda y la penultima, etc,
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

intercambiar valores en una matriz

Publicado por ramon (2158 intervenciones) el 03/04/2014 00:27:05
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses
     crt;
{Mira esto}
 
 begin
     textcolor(15);
     textbackground(0); {Esto para texto blanco y fondo negro}
     delay(120);
     textcolor(15);
     textbackground(1);
     writeln('  Color Azul fondo');
     delay(120);
     textcolor(14);
     textbackground(5);
     writeln('  Color Rojo fondo Amarillo Letras ');
     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
sin imagen de perfil

intercambiar valores en una matriz

Publicado por marios (58 intervenciones) el 03/04/2014 20:46:01
disculpa ramon, este codigo no se corresponde con lo que pregunto, no te entiendo ???? gracias
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

intercambiar valores en una matriz

Publicado por ramon (2158 intervenciones) el 04/04/2014 00:39:52
Disculpa mi enredo eso no era para ti un pequeño error que intentare resolver en breve.
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
sin imagen de perfil

intercambiar valores en una matriz

Publicado por marios (58 intervenciones) el 04/04/2014 14:55:06
ok ramon estare pendiente de tu solucion, gracias.
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

intercambiar valores en una matriz

Publicado por ramon (2158 intervenciones) el 04/04/2014 23:38:20
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
{A ver si es esto}
 
 program intercambio;
 uses
    crt;
  const
      max = 4; {Para mayor o menor matriz modifica numero }
   type
     tmatriz = array[1..max,1..max] of integer;
 
  var
    matriz : tmatriz;
    t, i : integer;
 
   procedure entradamatriz(var la : tmatriz);
   var
     d, b : integer;
   begin
       for d := 1 to max do
         for b := 1 to max do
         begin
            write('  Entre Valor De [',d,'/',b,'] : ');
            readln(la[d,b]);
         end;
   end;
 
  procedure intercambiolineas(var g : tmatriz);
  var
    can, p : integer;
  begin
      i := 1;
      t := max;
      p := 1;
    repeat
       p := 1;
       repeat
       can := g[i,p];
       g[i,p] := g[t,p];
       g[t,p] := can;
       p := p + 1;
       until p > max;
       i := i + 1;
       t := t - 1;
    until i > t;
  end;
 
  begin
     clrscr;
 
     entradamatriz(matriz);
     clrscr;
     for i := 1 to max do
     begin
       for t := 1 to max do
       begin
       write('  ',matriz[i,t]);
       end;
       writeln;
      end;
 
      intercambiolineas(matriz);
      writeln;
      for i := 1 to max do
     begin
       for t := 1 to max do
       begin
       write('  ',matriz[i,t]);
       end;
       writeln;
      end;
      readkey;
  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
sin imagen de perfil

intercambiar valores en una matriz

Publicado por marios (58 intervenciones) el 07/04/2014 12:20:37
hola ramon, disculpa peor es que tu solucion esta intercambiando de una forma que no es la que espero, por lo que veo tu en tu solucion estas intercambiando las filas, pero yo lo que necesito es :

intercambiar la primera columna con la ultima, la segunda y la penultima, etc, en ese orden , espero me entiendas lo que deseo ahora , mil gracias.
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

intercambiar valores en una matriz

Publicado por ramon (2158 intervenciones) el 10/04/2014 00:27:24
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
{A qui tienes dos formas espero sea esto}
 
program intercambio;
 uses
    crt;
  const
      max = 4; {Para mayor o menor matriz modifica numero }
   type
     tmatriz = array[1..max,1..max] of integer;
 
  var
    matriz, matriz1 : tmatriz;
    t, i : integer;
 
   procedure entradamatriz(var la : tmatriz);
   var
     d, b : integer;
   begin
       for d := 1 to max do
         for b := 1 to max do
         begin
            write('  Entre Valor De [',d,'/',b,'] : ');
            readln(la[d,b]);
         end;
   end;
 
 
  procedure intercambiolineas1(var g : tmatriz);
  var
    tem1, tem2, can, p : integer;
  begin
      i := 1;
      p := 1;
    repeat
      t := 1;
     repeat
         tem1 := g[i,t];
         tem2 := g[(max + 1) - i,t];
         g[i,t] := tem2;
         g[(max + 1) - i,t] := tem1;
         t := t + 1;
      until t > max;
      i := i + 1;
    until i > max div 2;
  end;
 
  procedure intercambiolineas2(var g : tmatriz);
  var
    tem1, tem2, can, p : integer;
  begin
      i := 1;
      p := 1;
    repeat
      t := 1;
     repeat
         tem1 := g[i,t];
         tem2 := g[(max + 1) - i,(max + 1) - t];
         g[(max + 1) - i,(max + 1) - t] := tem1;
         g[i,t] := tem2;
         t := t + 1;
      until t > max;
      i := i + 1;
    until i > max div 2;
  end;
 
 
  begin
     clrscr;
     entradamatriz(matriz);
     for i := 1 to max do
       for t := 1 to max do
       matriz1[i,t] := matriz[i,t];
 
     clrscr;
     for i := 1 to max do
     begin
       for t := 1 to max do
       begin
       write('  ',matriz[i,t]);
       end;
       writeln;
      end;
 
      intercambiolineas1(matriz);
      writeln;
      for i := 1 to max do
     begin
       for t := 1 to max do
       begin
       write('  ',matriz[i,t]);
       end;
       writeln;
      end;
      writeln;
      intercambiolineas2(matriz1);
      writeln;
      for i := 1 to max do
     begin
       for t := 1 to max do
       begin
       write('  ',matriz1[i,t]);
       end;
       writeln;
      end;
 
      readkey;
  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