• Domingo 22 de Diciembre de 2024, 06:06

Autor Tema:  Imprimir Matriz  (Leído 2959 veces)

luisoswaldo

  • Nuevo Miembro
  • *
  • Mensajes: 9
    • Ver Perfil
Imprimir Matriz
« en: Domingo 3 de Febrero de 2008, 23:42 »
0
De antemano les doy las gracias por la ayuda que puedan ofrecerme.

Necesito imprimir una matriz de la siguiente manera:

a1    a2
b1    b2

he estado tratando de hacerlo pero me lo imprime de la sig manera:

a1   a2
--------  b1   b2

aqui le muestro los codigos, esta fue la forma que yo pense que podia servir pero me supongo que debe haber una mejor forma puesto que ahora me parece algo ilogico hacer una condicion para cada caso. si conocen alguna pagina donde muestre como hacer esto por favor envienla.

c:=4;
               d:=5;
               for i:=1 to 2 do
                   begin
                        for j:=1 to 2 do
                            begin
                                 suma:=a[i,j] + b[i,j];
                                 gotoxy (c,d); write (suma);
                                 c:=c + 4;
                                 if j = 2 then
                                    begin
                                         d:=d + 1;
                                         c:=c - 4;

                                    end;

                                 if (j = 2) and (i = 2) then
                                    begin
                                         c:= c + 4;
                                    end;

                                 if i = 2 then
                                    begin

                                         c:=c + 4;

                                    end;

                            end;

Gracias

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Imprimir Matriz
« Respuesta #1 en: Lunes 4 de Febrero de 2008, 04:07 »
0
NO hace falta que uses gotoXY simplemente no hagas todo el tiempo WriteLn....
Código: Text
  1.  
  2. for j:=1 to 10 do
  3. begin
  4.    for i:=1 to 10 do
  5.     begin
  6.          Write(v[i,j], ' ');
  7.      end;
  8.      WriteLn;
  9. end;
  10.  
  11.  
Esto imprimiria el contenido de las celdas de esta manera:
Citar
a1 a2 a3 a4 a5...
b1 b2 b3 b4 b5...
....