Programación General > Pascal

 Restrccion De Caracteres

(1/1)

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

Enko:

--- Código: Text --- usesCRT;var   i:Integer;begin{&#036;I-}  ReadLn(I);  if IOResult &#60;&#62; 0 then    WriteLn('Error');{&#036;I+}Readkey;end.  
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:

--- 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
--- Fin de la cita ---
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 --- While (n&#62;-1) Do Begin  Readln (n);End;  
en cada ciclo va a preguntar "n es mayor que -1" Si bueno entonces sigo, si n es menor que -1, bueno entonces corto.

Navegación

[0] Índice de Mensajes