Pascal/Turbo Pascal - BEGIN Y END

 
Vista:

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??
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

RE:BEGIN Y END

Publicado por Carlos Guimaraenz (265 intervenciones) el 28/11/2005 19:08:35
Hola Bea! Bueno, primero que nada, una ayudita con el código que has puesto aquí:

if esalfabetico(car) then
,,,,,,
,,,,
,,,,,
else { ésto se puede quitar: « if esalfabetico(car)=false then » }
writeln('ERROR DE DATOS DE ENTRADA');
CLOSE(FTEXTO);
END.

Respecto a lo que quieres saber, puedes hacerlo con la instrucción HALT;
ésta detendrá la ejecución del programa instantáneamente.

Por ejemplo:

if esalfabetico(car) then
,,,,,,
,,,,
,,,,,
else
writeln('ERROR DE DATOS DE ENTRADA');
CLOSE(FTEXTO);
HALT; {aquí finaliza tu programa sin esperar al END. del final}
...
...
...
END.

Espero que te sirva y cualquier cosa me avisas. Un beso.
Carlos Guimaraenz
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

RE:BEGIN Y END

Publicado por Allan Andrade (48 intervenciones) el 28/11/2005 19:32:43
Seria recomendable que postes todo el código (si puedes claro).
Saludos.
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