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

shark_90 · « **en:** Jueves 7 de Febrero de 2008, 20:58 »

Hola, tengo una duda...
Supongamos que tengo esto:

Código: Text

PROGRAM Calc1;
  Uses CRT;
  var a,b,c:INTEGER;
BEGIN
  Clrscr;
  write ('Escribe un numero: '); read (a);
  write ('Escribe otro numero: '); read (b);
  c:=a+b;
  writeln ('El resultado es: ',c);
end.
 

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

exit 
 

se escribe

Código: Text

Pause&#62;nul
 

Bueno, espero respuestas..!
SALU2

SergioyoPlayer

Hay una función que se llama "Readkey";

puede ser:

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

crashoveride94

o un simple

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

danifg

O

REPEAT

UNTIL keypressed;

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

SoloCodigo

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

shark_90

Evitar Que Finalice La Aplicacion

SergioyoPlayer

Re: Evitar Que Finalice La Aplicacion

crashoveride94

Re: Evitar Que Finalice La Aplicacion

danifg

Re: Evitar Que Finalice La Aplicacion