Pascal/Turbo Pascal - Duda en Recogida de Datos

   
Vista:

Duda en Recogida de Datos

Publicado por javier (1 intervención) el 07/05/2009 22:55:53
Hola es la primera vez q utilizo este foro espero q me sirva de ayuda

A lo mejor es una tonteria pero no tngo ni idea de como hacerlo

Al usuario le pido un numero con 6 digitos,es decir q es un string,pero quiero controlar que el usuario me ponga exactamente 6 digitos y sino q vulva a escribirlo.
como puedo controlarlo?? no se m ocurre nada.

Porfavor contestarme lo antes posible,gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

CADENA DE NUMEROS

Publicado por martin (74 intervenciones) el 08/05/2009 16:41:54
Hola. Javier
Como quiero ayudarte te diré lo siguiente:
Si como dices es un STRING, entonces no es un numero (INTEGER); ambos datos son totalmente diferentes.
Tanto si es STRING como si es INTEGER no es muy complicada la solucion y se trata de muy poquitas lineas de código, lo que ocurre, y no te enfades, es que debes estudiar algo más sobre pascal.
Bien. Para lo que te pueda servir y espero te sea de utilidad.
program Digitos_de_un_numero;
uses crt;
var
CadN : string;
i : integer;

begin
clrscr;
write('Introduce numero de 6 digitos: ');
readln(cadN);
repeat
for i := 1 to length(cadN) do
while ((cadN[i] in ['0'..'9']) = false) or (length(cadN) <> 6) do
begin
write('Introduce numero de 6 digitos: ');
readln(cadN)
end
until (Length(cadN) = 6) and (CadN[i] in['0'..'9']) = true
end.
Un saludo Martin.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar