Programación General > Pascal

 Imprimir Matriz

(1/1)

luisoswaldo:
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:
NO hace falta que uses gotoXY simplemente no hagas todo el tiempo WriteLn....

--- Código: Text --- for j:=1 to 10 dobegin   for i:=1 to 10 do    begin         Write(v[i,j], ' ');     end;     WriteLn;end;  Esto imprimiria el contenido de las celdas de esta manera:

--- Citar ---a1 a2 a3 a4 a5...
b1 b2 b3 b4 b5...
....

--- Fin de la cita ---

Navegación

[0] Índice de Mensajes