Haber El Ejercicio Es El Siguiente :
En el fichero de entrada hay grabada una secuencia de números enteros positivos. Codifíquese un programa Pascal para determinar la posición ocupada por el primer número perfecto. La posición del número queda definida por dos valores numéricos: el número de línea y el lugar del número perfecto dentro de la línea.
Si en el fichero no existe el número buscado se grabará el siguiente mensaje: ‘No existen números perfectos en el fichero’.
Se dice que un número es perfecto si es igual a la suma de sus divisores (ejemplo 6 = 1+2+3)
Resolución:
La solución se ajustará a las siguientes especificaciones:
Especificaciones de entrada:
- Se utilizará un fichero de texto para la entrada de datos que debe llamarse datosp1.txt
En el código Pascal este fichero debe estar direccionado a la unidad a, es decir la sentencia assign
debe ser: assign (nombre_del_fichero, 'a :\datosp1.txt').
- Puede existir más de un número por línea y suponemos que todos los números están grabados correctamente, es decir, son enteros positivos y no existen en el fichero líneas en blanco.
Pues Ya Lo Tengo Hecho Entero, Pero Si En el fichero de entrada que hay grabada una secuencia de números enteros positivos,en el ultimo caracter de cada linea pongo un espacio se vuelve loco, el fichero no lo doy yo lo pone el profesor y si en su ficheor hay espacios en blanco...... estaria mal exo.
Que Puedo Hacer?Espero Haberlo Aclarado
