Páginas: [1] 
|
 |
|
 Autor
|
Tema: Array bidimensional en pascal. (Leído 561 veces)
|
sv51
 Desconectado
Mensajes: 3
|
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?
|
|
|
|
|
En línea
|
|
|
|
|
|
DarK_FirefoX
Wiki
Desconectado
Mensajes: 674
Be the change you wanna see in the world
|
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... |
|
|
|
« Última modificación: 21 Junio 2008, 03:26 por DarK_FirefoX »
|
En línea
|
|
|
|
GroK
Desconectado
Mensajes: 595
...I have become comfortably numb...
|
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 |
|
|
|
|
En línea
|
"I put on my Hendrix album and my son said 'Dad, who's that?' and i said 'Well son, that's God' "- Robert Plant
|
|
|
sv51
Desconectado
Mensajes: 3
|
SOLUCIONADO
Gracias Grok, ya lo pude hacer. Tambien muchas gracias Dark FireFox y cΔssiΔnі por responder a mi pregunta.
:-D
|
|
|
|
|
En línea
|
|
|
|
|
Páginas: [1] 
|
|
|
 |
