BEGIN Y END
Publicado por Bea (14 intervenciones) el 28/11/2005 17:25:15
Hola tengo una duda
Hay alguna manera de terminar con un programa, para finalizar una búsqueda, antes de que ejecute todo lo demás??Me explico, he codificado un programa que te encuentra cual es la última de las palabras en un fichero de texto, que empieza por dos vocales juntas. Lo primero que hace es reconocer si un caracter es alfabético o no. Si no lo hes me tiene que dar un mensaje diciéndome que hay un error de datos, y pare la búsqueda. Mi profesora de programación me dijo que cerrando el fichero y poniendo luego end con el punto servía, pero cuando pongo end punto, me da un error pidiéndome el punto y coma. Como se puede hacer esto??? El código es algo así:
if esalfabetico(car) then
,,,,,,
,,,,
,,,,,
else if esalfabetico(car)=false then
writeln('ERROR DE DATOS DE ENTRADA');
CLOSE(FTEXTO);
END.
asií no funciona, y si cierro el fichero en este momento, luego el programa sigue y más adelante me da un error de que el fichero está cerrado lógicamente. Alguna idea o ayuda??
Hay alguna manera de terminar con un programa, para finalizar una búsqueda, antes de que ejecute todo lo demás??Me explico, he codificado un programa que te encuentra cual es la última de las palabras en un fichero de texto, que empieza por dos vocales juntas. Lo primero que hace es reconocer si un caracter es alfabético o no. Si no lo hes me tiene que dar un mensaje diciéndome que hay un error de datos, y pare la búsqueda. Mi profesora de programación me dijo que cerrando el fichero y poniendo luego end con el punto servía, pero cuando pongo end punto, me da un error pidiéndome el punto y coma. Como se puede hacer esto??? El código es algo así:
if esalfabetico(car) then
,,,,,,
,,,,
,,,,,
else if esalfabetico(car)=false then
writeln('ERROR DE DATOS DE ENTRADA');
CLOSE(FTEXTO);
END.
asií no funciona, y si cierro el fichero en este momento, luego el programa sigue y más adelante me da un error de que el fichero está cerrado lógicamente. Alguna idea o ayuda??
Valora esta pregunta


0