SoloCodigo

Programación General => Pascal => Mensaje iniciado por: Juann en Martes 4 de Agosto de 2009, 01:54

Título: Otra preguntica xD
Publicado por: Juann en Martes 4 de Agosto de 2009, 01:54
Bueno tenga otra preguntilla...

Código: Pascal
  1. program prueba;
  2. uses crt;
  3. Var a,b:integer;
  4. var respuesta:CHAR;
  5.  
  6.      
  7. Begin
  8.    Begin
  9.       Write('Ingrese el primer número : ');readln(a);
  10.       ClrScr;
  11.       Write('Ingrese el segundo número : ');readln(b);
  12.       ClrScr;
  13.       Writeln('La suma es : ',a+b);
  14.       repeat
  15.       until keypressed;
  16.   End;
  17.  
  18. Begin
  19.       ClrScr;
  20.       Repeat
  21.           writeln('¿Desea salir de la aplicacion?: S/N '); readln (respuesta)
  22.       Until respuesta='S';
  23. End;
  24. End. 
  25.  

En este code, el ejecutara la suma y luego te preguntara si quieres salir de la aplicacion, si la respuesta es si, pues la finalizara... Pero quiero saber como poner, para que en caso de que el usuario diga que no, se repita toda la aplicacion, es decir, vuelva a pedir los numeros y eso...
Título: Re: Otra preguntica xD
Publicado por: aguila3000 en Martes 4 de Agosto de 2009, 02:14
Si revisas bien tu programa hay muchos errores.
Sólo necesitas un bucle Repeat Until
Algo asi :

Código: Pascal
  1.  
  2.    Repeat
  3.      {Aqui colocas todas las instrucciones que quieres se repitan}
  4.      writeln('¿Desea salir de la aplicacion?: S/N '); readln (respuesta)
  5.    Until respuesta='S'
  6.  
  7.  
Título: Re: Otra preguntica xD
Publicado por: Dynyck en Martes 18 de Agosto de 2009, 02:43
Tener en cuenta que el caracter puede ser 'S' o 's'.