La Web del Programador: Comunidad de Programadores
 
    Pregunta:  62309 - MOSTRAR Y CARGAR MATRIZ CARGANDO SUS DATOS POR UN TXT
Autor:  Cygnus X
Hola miren tengo que hacer un TP para la facultad; el mismo me dice que en base a un archivo de X nombre .txt (X.txt) que contiene los datos de 6 filas y 6 columnas de una matriz de 6 x 6, tengo que hacer que a traves de Pascal, me lea los datos del .txt y me los cargue dentro de una matriz de 6 x 6 y que a estos 36 números los valla ubicando en filas de 6; una bajo la otra xD formando la matriz, los datos segun me piden dice que dentro de la matriz tienen que ser almacenados por filas; a que me refiero con esto:

Dentro del txt ahí 36 números dispuestos en 1 sola columna; ubicados uno bajo el otro. Ejemplo:
5
6
7
8
9
3
2
4
.
.
así hasta llegar a los 36 números; es decir que dentro del txt estan ubicados en 1 columna y dentro del programa tienen que ser ubicados en en filas de 6; recorriendo la web vi como se hace para que Pascal te cargue los datos de un txt y te los muestre por pantalla pero no tengo ni idea como hacer para que me cargue los datos del txt y me los ubique dentro de la matriz de 6 x 6 y me los muestre por pantalla.

Ojala puedan ayudarme ya que necesito esto para la escuela y estoy re perdido; desde ya muchas gracias. Espero su respuesta

  Respuesta:  Miguel Roman
{ Turbo Matriz 6x6}

{ Copyright (c) Miguel A Roman. }

program Matriz6x6;
{$R-,S-,I-}
uses Crt;

var

Num: array[1..6, 1..6] of integer;
x,y: integer;
w: text;

begin

assign(w, 'numeros.txt');
reset(w);

for x:=1 to 6 do
for y:=1 to 6 do
begin
readln(w, Num[x ,y]);
writeln('x=', x:1, ' y=', y:1, ' numero=', Num[x ,y]:2);
end;
close(w);

end.