Numeros enteros
Publicado por eltiolopez (3 intervenciones) el 03/01/2006 02:07:35
Primero os pongo el ejemplo y luego la duda:
Write('Fila: ');
ReadLn(fila);
IF ((fila>=1)AND(fila<=10)) THEN
filaok := true
ELSE
BEGIN
filaok := false;
Write('Entrada no valida (1-10)':45);
END;
"fila" esta definido como un entero, y lo que quiero es forzar al usuario a que meta un numero del 1 al 10 mostrandole un mensaje de error si no lo hace, el problema es que no se como. Si alguien me puediera ayudar se lo agradeceria. Saludos.
Write('Fila: ');
ReadLn(fila);
IF ((fila>=1)AND(fila<=10)) THEN
filaok := true
ELSE
BEGIN
filaok := false;
Write('Entrada no valida (1-10)':45);
END;
"fila" esta definido como un entero, y lo que quiero es forzar al usuario a que meta un numero del 1 al 10 mostrandole un mensaje de error si no lo hace, el problema es que no se como. Si alguien me puediera ayudar se lo agradeceria. Saludos.
Valora esta pregunta
0