Pascal/Turbo Pascal - Mi programa para sacar el factorial de un número deja de funcionar a partir de 8

Hola, estoy haciendo un ejercicio que consiste en calcular el factorial de un número que se pide por teclado. El caso es que mi programa funciona pero solo del 2 al 7, a partir de 8 da negativo, y tampoco funcionaría para 1 o menores. No se me ocurre nada que solucione esto

Es un programa muy breve.
Te propongo 2 cosas.

- Con papel y boli (o notepad) haz un borrador y sigue el flujo del programa y comp ueba tu mismo que valor devuelve para los primeros números y que es lo que falla. (usa la calculadora si lo necesitas)

- Si buscas el algoritmo o el pseudocodigo para calcular un factorial seguro que consigues alguna idea.

Si sigues con dudas o con dificultades para resolverlo háznoslo saber y te ayudaré.

Hice el borrador con papel y boli y según lo que yo interpreto, mi programa funciona desde el número 1. Sin embargo cuando lo ejecuto, a partir de 8 da números negativos que la verdad no sé de donde salen. Se agradecen ideas.

La mejor idea de todas es que aprendas a depurar.

No te da números negativos a partir de 8, te da un error, pues factorial de 8 es 40320 y eso no cabe en un integer de 16 bits.

Bien visto @Nacho, el problema creo que guarda relación con lo que dices.

@Marcos, lo acabo de probar en Lazarus y a mí me funciona para 8 devolviendo 40320 (debe ser el compilador).
Lo deberías poder solucionar declarandolo como longint

No obstante, te sigo recomendando buscar algun algoritmo o pseudocodigo para plantear el cálculo del factorial, porque te falla para 0 y 1 (ambos casos debe devolver 1 y devuelve 0)

Según https://wiki.freepascal.org/Variables_and_Data_Types
Los integer pueden ser de 2 o 4 bytes comportándose como enteros cortos o largos (creo que según necesidad y según el compilador).

Smallint -32768 .. 32767 2 bytes (16 bits)
Longint -2147483648 .. 2147483647 4 bytes (32 bits)
Integer smallint or longint 2 or 4 bytes (16 o 32 bits)

Si tienes dificultades para encontrar el algoritmo te ayudo a buscarlo o te ayudo a hacerlo, estás muy cerca de tener uno válido.

He cambiado el valor integer por longint y ahora funciona hasta 12. Además he añadido las dos condiciones para el 1 y el 0.
No se me ocurre nada más. Si me ayudais a hacerlo os lo agradezco.
Soy novato.

El programa nuevo es este:

Sin detenerme mucho en el código, porque si funciona y a tí te vale, pues ya está.
Lo que veo es que si haces lo mismo para num=1 o num=0 puedes usar el mismo condicional.


Aunque lo que haces de usar una variable para guardar el valor a mostrar es un buen habito en mi opinión también puedes hacer


en vez de:


Y puedo equivocarme, pero yo diria que el for lo puedes hacer de 1 hasta num, no veo necesidad de restar 1, al fin y al cabo el factorial de 5 si no me equivoco es 1x2x3x4x5 (cada uno seria una vuelta al bucle). Quiero decir que se puede plantear diferente, por eso te recomende verte algun ejemplo de codigo porque te puede mostrar maneras mas eficientes.

La manera mas eficiente creo que seria una funcion recursiva, apenas serian 4 líneas, pero si no has visto funciones no lo hagas porque te costará comprender la recursividad.