Foro de elhacker.net

 Hola amigos, estoy metido en un problema con un array bidimensional de 3x3. Tengo que meter 9 numeros y despues mostrarlos en pantalla de la siguiente manera:

        1 2 3
        4 5 6
        7 8 9

Bueno ya pude introducir los datos pero al imprimirlos me sale asi
1
2
3
4
5
6
7
8
9

Se que puede hacer asi [1][1] [1][2] etc ......... pero me gustaria hacerlo con un mientras (pascal while do) pero no me sale. ¿Alguien me puede ayudar por favor?

Puedes hacer uso del gotoxy  :o

Por favor si pudieras explicarte un poquito más te podriía ayudar...es que no entiendo bien tu cuestión.

Lo que quieres es mostrarlo uno al lado del otro??

writeln(array[indice1],' ',array[indice2],' ',array[indice3],' ',array[indice4],' ',array[indice5],' ',array[indice6],' ',array[indice7],' ',array[indice8],' ',array[indice9]);

Dime si te sirve, sino explica un poco...

Lo normal para eso es hacer:

Var 
   Matriz : Array [1..3, 1..3] of Byte;
   i, j   : Byte;
 
Begin
 
   { Aqui codigo para insertar los numeros }
   { . . . }
 
   For i := 1 To 3 Do
   Begin
      For j := 1 To 3 Do
         Write (Matriz[i][j], ' ');
      WriteLn ();
   End;
 
End.

Y si quieres hacerlo con While...

i := 1; j := 1;
 
While (i <= 3) Do
Begin
   While (j <= 3) Do
   Begin
      Write (Matriz[i][j], ' ');
      Inc (j);
   End;
   WriteLn ();
   Inc (i);
   j := 1;
End;

Saludos   
 

SOLUCIONADO

Gracias Grok, ya lo pude hacer. Tambien muchas gracias Dark FireFox y cΔssiΔnі por responder a mi pregunta.

:-D