Programación General > Pascal

 Devolver el numero de dígitos

(1/3) > >>

frodog:
Hola panas necesito diseñar una funcion recursiva que devuelva el numero de digitos de un entero no negativo. no olviden validar el dato de entrada

(en pascal por favor)



Gracias espero sus respuestas pronto es URGENTE

joaquinrg:
jaja, esto que es telepascal?? yo necesito el codigo del juego de las cadenas, al ser posible para mañnana.
amos q por lo menos lo podias intentar y poner el codigo pa q la gente te ayude en las partes q no funcionan

BlackTigerX:

--- Código: Text ---function CuentaDigitos(Cadena:string):Integer;var tmp, err:Integer;begin  CuentaDigitos:=0;  if (Length(Cadena)=0) then    Exit;  Val(Cadena, tmp, err);  if (tmp<0) or (err<>0) then  begin    WriteLn('Numero no valido');    Exit  end;  Delete(Cadena, 1, 1);  CuentaDigitos:=CuentaDigitos(Cadena)+1end; var Entrada:string;begin  WriteLn('Entra un numero positivo');  ReadLn(Entrada);  WriteLn('tu numero tiene [', CuentaDigitos(Entrada), '] digitos')end. 

joaquinrg:
y el codigo del juego de las cadenas?? xD

BlackTigerX:
no se que es "el juego de las cadenas"... no se de que se trata ese programa...
el otro codigo lo hice asi rapido porque el dio una descripcion del programa...

Navegación

[0] Índice de Mensajes

[#] Página Siguiente