• Jueves 18 de Abril de 2024, 20:28

Autor Tema:  Evitar Que Finalice La Aplicacion  (Leído 1701 veces)

shark_90

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
    • http://www.mundopc.ar.gd
Evitar Que Finalice La Aplicacion
« en: Jueves 7 de Febrero de 2008, 20:58 »
0
Hola, tengo una duda...
Supongamos que tengo esto:

Código: Text
  1. PROGRAM Calc1;
  2.   Uses CRT;
  3.   var a,b,c:INTEGER;
  4. BEGIN
  5.   Clrscr;
  6.   write ('Escribe un numero: '); read (a);
  7.   write ('Escribe otro numero: '); read (b);
  8.   c:=a+b;
  9.   writeln ('El resultado es: ',c);
  10. end.
  11.  

Como hago para que no finalice el programa, y se cierre cuando yo presione una tecla...
Me explico?
Como por ejemplo en Batch, antes del
Código: Text
  1. exit
  2.  
se escribe
Código: Text
  1. Pause>nul
  2.  
Bueno, espero respuestas..!
SALU2

SergioyoPlayer

  • Miembro activo
  • **
  • Mensajes: 31
    • Ver Perfil
Re: Evitar Que Finalice La Aplicacion
« Respuesta #1 en: Jueves 7 de Febrero de 2008, 22:12 »
0
Hay una función que se llama "Readkey";

puede ser:

...
 WRITELN('El resultado es: ',variable);
 READKEY;
END.

crashoveride94

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: Evitar Que Finalice La Aplicacion
« Respuesta #2 en: Miércoles 2 de Abril de 2008, 18:22 »
0
o un simple

READLN;
si quieres que termine al dar ENTER y no con cualquier tecla

danifg

  • Nuevo Miembro
  • *
  • Mensajes: 8
    • Ver Perfil
Re: Evitar Que Finalice La Aplicacion
« Respuesta #3 en: Sábado 31 de Mayo de 2008, 16:40 »
0
O

REPEAT

UNTIL keypressed;

(las funciones readkey y keypressed están en la librería crt)