[EI/ETIS/ETIX] 1º - Pro (Programación)

[dvd182]

aki no kntxta nadie...lo sient x las molestias

[Fer]

aki no kntxta nadie...lo sient x las molestias

No, si no molestas, pero es que no sabemos qué puede ser ya XD Es algo muy muy raro.

[napster]

sabeis cuando se defiende la practica de pro en diciembre?

[Fer]

sabeis cuando se defiende la practica de pro en diciembre?

Si hacen como el año pasado... El año pasado corrigieron los exámenes y dijeron: los que tengais menos de un 3, no vengais por aqui xD Y así fue, que sólo aprobó uno o dos xD

[napster]

sabeis cuando se defiende la practica de pro en diciembre?

Si hacen como el año pasado... El año pasado corrigieron los exámenes y dijeron: los que tengais menos de un 3, no vengais por aqui xD Y así fue, que sólo aprobó uno o dos xD

y como se sabe si vas a tener menos de un 3??? jajaja

[Fer]

Lo corrigen y estas cosas...

[napster]

Lo corrigen y estas cosas...

al momento?

[Fer]

Ese día sí, al mediodía ya los tenían corregidos. Al ser modo test...

[wickerman_666]

Pues el examen de programacion no era tan chungo como en septiembre, ademas, la pregunta 8 estaba segura

8. No se que preguntaba sobre REWRITE
a)Tal cosa...
b)Pone el fichero en modo escritura. La buena
c)No se que...

Y por encima creo ke no la anulan!!!!

[gabriman]

Yo cuando la leí antes de que dijeran nada ya me estaba riendo...xD

Espero que no la anulen porque ya la sabia sin que pusiera eso y si por un fallo de ellos me quitan una pregunta...
Algún regalillo no vendría mal para compensarnos por la quemada de septiembre, xD

[agilismoftw]

¿Qué error puede tener este bucle para que (compilando bien), en el terminal me diga que el programa intenta leer el fichero una vez se ha acabado?

Código: Seleccionar todo

PROCEDURE obtener_informacion;

VAR
   MemoriaLinea : tCadena;
   NumEspacios, UltimoEspacio, NumPagina, NumLinea : Integer;
   I : Integer;
   
BEGIN
   reset(fichero);
 while not eof(fichero) DO BEGIN
     readln (fichero, MemoriaLinea);
    MemoriaLinea:=trim(MemoriaLinea); {Quita espacios del final de la cadena}
    FOR I:=1 TO Length(MemoriaLinea) DO BEGIN { Este bucle recorre los caracteres de la cadena para encontrar numero de espacios y fin de pagina}
    IF MemoriaLinea[I] = ' ' then BEGIN NumEspacios:=NumEspacios+1; UltimoEspacio:=I; END;
    IF MemoriaLinea[I] = chr(12) then NumPagina := NumPagina +1;
    END;
    informacion.primerapalabra := substr (MemoriaLinea, 1, index(MemoriaLinea, ' ')-1);
    informacion.numerolinea := NumLinea;
   informacion.numeropagina := NumPagina;
   informacion.numeropalabras := NumEspacios + 1;
   informacion.ultimapalabra := substr(MemoriaLinea, UltimoEspacio, Length(MemoriaLinea)-UltimoEspacio);
   get (fichero);
 END;

 
 writeln (informacion.primerapalabra, informacion.numeropalabras,informacion.ultimapalabra);
END;

El error exacto es el siguiente:

Código: Seleccionar todo

santi@Santi:/media/sda2/ITIS/Pro/Practica/Estadistica$ ./a.out
Ligar, se ha ligado
./a.out: attempt to read past end of file `texto.txt' (error #454 at 804a2bd)
santi@Santi:/media/sda2/ITIS/Pro/Practica/Estadistica$

Gracias por adelantado

[Fer]

Ese error daba siempre que se quería acceder al último dato del fichero. Yo hacía una trampita, y era que añadía un elemento a mayores, y leía hasta el anterior XDDD Pero otra manera, no sé... Igual alguien que sepa cómo hacerlo, te lo dice.


PD: Sí, gran frase la última. Estoy inspirado XD

[Sasi]

igual se soluciona si usas

Código: Seleccionar todo

repeat
{codigo}
until eof (fichero)

[Fer]

Quisiera hacer una aclaración, no tengo nada en contra de los programadores eso lo hacía hace 3 años en Programación XDD O sea, chapuzas mil. Ahora haría algo mejor XD

[GoLoBoY]

Quisiera hacer una aclaración, no tengo nada en contra de los programadores eso lo hacía hace 3 años en Programación XDD O sea, chapuzas mil. Ahora haría algo mejor XD

ya está hecho, no intentes arreglarlo