Pascal/Turbo Pascal - ficheros texto

 
Vista:

ficheros texto

Publicado por PAULA (7 intervenciones) el 28/05/2019 16:42:11
hola necesito de vuestra ayuda, tengo que hacer este ejercicio..pero los apuntes son malos no lo siguiente y no te explican como hacerlo, yo he creado un archivo en el bloc de notas en c para abrirlo.. no se si esta bien.. el ejercicio me pide esto:

Realizar un programa que abra un fichero de texto para lectura, y lo vaya leyendo línea a línea. Deberá presentar como resultado final el nombre del fichero, el número de líneas y el número de caracteres.

NOTA: Recuerde que en la posición cero de una cadena de caracteres se almacena la longitud, pero debe usar la orden ord para tratar esta longitud como un entero.

yo he realizado por ahora esto....(que no hay por donde cojerlo) hay que crear una array para leer las lineas?
Alguien que me oriente de como se puede realizar...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure texto;
 
type
	tfichero= text;
var
	fichero:tfichero;
	ficherot:text;
	linea:integer;
 
 
procedure abrir_leer(ficherot:text);
var
	ficherot:='C:\Lista.txt';
	linea=:=8;
begin
	assing(fichero,ficherot);
	reset(fichero);
end;

mi archivo de texto es este: se llama lista.txt.
listado nombres

1
2
3
4
5
6
LUCIA
AITOR
GRACIANO
SARA
ALBERTO
PILAR
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ficheros texto

Publicado por PAULA (7 intervenciones) el 29/05/2019 00:52:25
solucionado...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Joan
Val: 2
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

ficheros texto

Publicado por Joan (1 intervención) el 29/05/2019 07:59:35
Hola Paula nos puedes mostrar como lo has solucionado?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ficheros texto

Publicado por PAULA (7 intervenciones) el 29/05/2019 12:06:43
Aqui lo tienes joan..espero te sirva..

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Program Ficheros_texto;
var
	fichero : text;
	nombre: string;
	lineas: string;
	Numcaracteres, Numlineas: integer;
 
Begin
	nombre:='Lista.txt';
	assign (fichero, nombre);
	Reset (fichero);
	Numcaracteres:=0;
	Numlineas:= 0;
	while (not eof (fichero)) do
	begin
		readln (fichero, lineas);
		Numlineas:= Numlineas + 1;
		Numcaracteres := Numcaracteres + length(lineas);
	end;
	writeln ('El nombre del fichero es: ', nombre);
	writeln ('El numero total de lineas es: ', Numlineas);
	writeln ('El numero de caracteres es: ', Numcaracteres);
	readln();
	Close (fichero);
End.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar