• Domingo 22 de Septiembre de 2019, 11:57

Autor Tema:  Restrccion De Caracteres  (Leído 636 veces)

JACC

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Restrccion De Caracteres
« en: Martes 9 de Mayo de 2006, 20:34 »
0
por ejemplo:

writeln('Coloque la cantidad de nietos');
readln(n);
while (n<=0) do begin
writeln('ERROR');
writeln;
writeln('coloque la cantidad de nietos');
readln(n);
end;

esto restringe los numeros negativos... ¿como puedo hacer para restringir todos los caracteres? (a..z , A..Z , ª!"·$%&/()=?¿*^Ǩ_:) todo eso. ..gracias

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Restrccion De Caracteres
« Respuesta #1 en: Miércoles 10 de Mayo de 2006, 14:40 »
0
Código: Text
  1.  
  2. uses
  3. CRT;
  4. var
  5.    i:Integer;
  6. begin
  7. {&#036;I-}
  8.   ReadLn(I);
  9.   if IOResult &#60;&#62; 0 then
  10.     WriteLn('Error');
  11. {&#036;I+}
  12. Readkey;
  13. end.
  14.  
  15.  

Esto desactiva la verificacion de Entrada y Salida, de manera si ingresas una letra, la ejecutable no te manda un error en tiempo de ejecucion. IOREsult es el resultado de una operacion de E/S, si es Distinto de 0, es porque hubo un error lo que quiere decri que el numero esta mal escrito.

juancpalmajr

  • Miembro activo
  • **
  • Mensajes: 51
    • Ver Perfil
    • http://www.linuxcommunity.com.ar
Re: Restrccion De Caracteres
« Respuesta #2 en: Miércoles 24 de Mayo de 2006, 04:43 »
0
Cita de: "JACC"
por ejemplo:

writeln('Coloque la cantidad de nietos');
readln(n);
while (n<=0) do begin
writeln('ERROR');
writeln;
writeln('coloque la cantidad de nietos');
readln(n);
end;

esto restringe los numeros negativos... ¿como puedo hacer para restringir todos los caracteres? (a..z , A..Z , ª!"·$%&/()=?¿*^Ǩ_:) todo eso. ..gracias
perdon pero ese algoritmo no restringe los numeros negativos, para salir de ese bucle la unica manera es poniendo un numero positivo, jajaja.
Osea Mientras que n sea menor o igual a cero va a seguir.
es como si yo diria:
Código: Text
  1.  
  2. While (n&#62;-1) Do Begin
  3.   Readln (n);
  4. End;
  5.  
  6.  

en cada ciclo va a preguntar "n es mayor que -1" Si bueno entonces sigo, si n es menor que -1, bueno entonces corto.