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