Autor Tema: Devolver el numero de dígitos (Leído 3447 veces)

frodog · « **en:** Lunes 5 de Enero de 2004, 15:31 »

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 · « **Respuesta #1 en:** Lunes 5 de Enero de 2004, 16:14 »

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 · « **Respuesta #2 en:** Lunes 5 de Enero de 2004, 17:28 »

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&#60;0) or (err&#60;&#62;0) then
  begin
    WriteLn('Numero no valido');
    Exit
  end;
  Delete(Cadena, 1, 1);
  CuentaDigitos:=CuentaDigitos(Cadena)+1
end;
 
var Entrada:string;
begin
  WriteLn('Entra un numero positivo');
  ReadLn(Entrada);
  WriteLn('tu numero tiene [', CuentaDigitos(Entrada), '] digitos')
end.
 

joaquinrg · « **Respuesta #3 en:** Martes 6 de Enero de 2004, 17:18 »

y el codigo del juego de las cadenas?? xD

BlackTigerX · « **Respuesta #4 en:** Martes 6 de Enero de 2004, 19:40 »

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...

mauc · « **Respuesta #5 en:** Jueves 8 de Enero de 2004, 20:38 »

Hola...

BlackTigerX podrias explicar un poco este codigo que pegaste?

no entiendo ese de tmp y err, se que es par validar, pero no se pq esas dos palabras

mauc

Cita de: "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

oye, estudias en la UCAB??? como te llamas?

BlackTigerX

Cita de: "mauc"

Hola...

BlackTigerX podrias explicar un poco este codigo que pegaste?

no entiendo ese de tmp y err, se que es par validar, pero no se pq esas dos palabras

Código: Text

var tmp, err:Integer;
begin
 CuentaDigitos:=0;
 if (Length(Cadena)=0) then
   Exit;
 Val(Cadena, tmp, err);
 

la funcion Val te pide la Cadena que quieres convertir, y 2 numeros, uno (tmp) que regresa el valor ya convertido a numero, y el ultimo parametro (err) regresaria un valor diferente de cero en caso de que la conversion falle (regresa la posicion donde se encontro error)

si la conversion tiene exito (sin errores), la variable err devuelve cero

_.B._ · « **Respuesta #8 en:** Lunes 12 de Enero de 2004, 01:12 »

Saludos!.
Que podría causar un error en ese procedimiento?.

Bernardo L.

BlackTigerX · « **Respuesta #9 en:** Lunes 12 de Enero de 2004, 17:05 »

que le mandaras letras en vez de numeros, o numeros y letras combinados o simplemente un numero no valido (0.25.3, 4,01, etc...)

_.B._

Thanks!.
Bernardo L.

SoloCodigo

Autor Tema: Devolver el numero de dígitos (Leído 3447 veces)

frodog

Devolver el numero de dígitos

joaquinrg

Re: Devolver el numero de dígitos

BlackTigerX

Re: Devolver el numero de dígitos

joaquinrg

Re: Devolver el numero de dígitos

BlackTigerX

Re: Devolver el numero de dígitos

mauc

Re: Devolver el numero de dígitos

mauc

Re: Devolver el numero de dígitos

BlackTigerX

Re: Devolver el numero de dígitos

_.B._

Re: Devolver el numero de dígitos

BlackTigerX

Re: Devolver el numero de dígitos

_.B._

Re: Devolver el numero de dígitos