Pascal/Turbo Pascal - Ayuda: Leer desde fichero...

Hola, espero que me podáis ayudar con la duda que me ha surgido.

Os pongo en situación, estoy leyendo un fichero que compuesto por estos datos:

mi fichero se llama: datos1.dat
________
1
4
1 10 2
2 1 3
4 5 6
3 4 5
1 1 2
________

El contenido de mi fichero son todos esos número que véis ahí y están dispuestos en esa forma. Las dos primers lineas solo tienen un dato y las siguientes están compuestas por tres "columnas" de numeros, separadas cada una por un espacio.

Pues bien, mi duda es que quiero leerlo y:
- la primera fila guardarla en una variable llamada: indice
- la segunda en unna variable: vertice
- a partir de ahi quiero ir guardándolas en variables: i, j ,k.

Me podéis ayudar, es que lo he intentado de mil maneras y recojo correctamente los datos.

Muchas Gracias!

Hola SeñorX, yo tengo una duda muy similar, pues necesito leer de un fichero en el que cada línea es diferente como en el tuyo.

Sabras que sería asi si cada línea estuviese compuesto por los mismos datos, no?:

while not eof(fich) do
begin
read(fich, i, j, k);
writeln('i: ', i, ', j: ',j,', k: ',k);
end;

De esta manera puedes leer los diferentes datos de las lineas a partir de la tercera. Pero yo me pregunto lo mismo que tú....

¡¡ ¿Cómo leemos las dos primeras líneas guardándolas en otras variables diferentes? !!

Hola javito!

Ya he resuelto la duda, era una tonteria, el caso es que yo tenia metido todo el codigo dentro del ''while not eof(file)'' y no me había dado cuenta. El codigo correcto sería:

read(fich, indice);
writeln('indice: ', indice);

read(fich, vertice);
writeln('indice: ', vertice);

while not eof(fich) do
begin
read(fich, i, j, k);
writeln('i: ', i, ', j: ',j,', k: ',k);
end;

Gracias!

Hola javito!

Ya he resuelto la duda, era una tonteria, el caso es que yo tenia metido todo el codigo dentro del ''while not eof(file)'' y no me había dado cuenta. El codigo correcto sería:

read(fich, indice);
writeln('indice: ', indice);

read(fich, vertice);
writeln('indice: ', vertice);

while not eof(fich) do
begin
read(fich, i, j, k);
writeln('i: ', i, ', j: ',j,', k: ',k);
end;

Gracias!