Factorial hasta 1000

[Robert01]

Tengo un pequeño problema: cuando ejecuto el programa no me da el tiempo empleado sino un número con formato de hora, por ejemplo 12:05:34 am

No se que es lo que anda mal porque yo no toqué para nada el código

[[seoane]]

El timepo se calcula como la diferencia entre do TDateTime:

Código Delphi [-]
TimeToStr(Now-Marca)

El resultado de esta operación también es un TDateTime. El problema puede ser al convertir esa variable a texto, seguramente por la configuración de la hora en tu equipo este interpretando lo que debería ser "05:34" como "12:05:34".

¿Que equipo tienes? ¿05:34 te parece que es el tiempo que mas o menos le llevo?

[[seoane]]

Acabo de comprobar que como ya advertía no es la forma mas eficiente de hacerlo, por ejemplo en python, un script tan sencillo como este:

a=1
for i in range(1000):
	a=a*(i+1)

print a

Devuelve el factorial de forma inmediata, sin necesidad de esperar

[Robert01]

Empezado por seoane

Acabo de comprobar que como ya advertía no es la forma mas eficiente de hacerlo, por ejemplo en python, un script tan sencillo como este:

a=1
for i in range(1000):
    a=a*(i+1)

print a

Devuelve el factorial de forma inmediata, sin necesidad de esperar

Es similar al código que yo puse al principio y además es mucho más rápido.

En mi compu tu código se ejecuta en 5:25 bajo windows, es una máquina con micro intel em64t 3.08 Ghz con 512 mb de Ram.