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

JACC · « **en:** Martes 9 de Mayo de 2006, 20:34 »

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

 
uses
CRT;
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

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.

SoloCodigo

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

JACC

Restrccion De Caracteres

Enko

Re: Restrccion De Caracteres

juancpalmajr

Re: Restrccion De Caracteres