SoloCodigo

Programación General => Pascal => Mensaje iniciado por: shark_90 en Jueves 7 de Febrero de 2008, 20:58

Título: Evitar Que Finalice La Aplicacion
Publicado por: shark_90 en Jueves 7 de Febrero de 2008, 20:58
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
Título: Re: Evitar Que Finalice La Aplicacion
Publicado por: SergioyoPlayer en Jueves 7 de Febrero de 2008, 22:12
Hay una función que se llama "Readkey";

puede ser:

...
 WRITELN('El resultado es: ',variable);
 READKEY;
END.
Título: Re: Evitar Que Finalice La Aplicacion
Publicado por: crashoveride94 en Miércoles 2 de Abril de 2008, 18:22
o un simple

READLN;
si quieres que termine al dar ENTER y no con cualquier tecla
Título: Re: Evitar Que Finalice La Aplicacion
Publicado por: danifg en Sábado 31 de Mayo de 2008, 16:40
O

REPEAT

UNTIL keypressed;

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