Calcolo Fattoriale in QBasic

Questo programma calcola il fattoriale di un numero dato utilizzando una funzione ricorsiva e quindi visualizza il risultato.

Copia e incolla questo codice nel tuo ambiente QBasic. Quando esegui il programma, ti chiederà di inserire un numero. Dopo aver inserito il numero, calcolerà e visualizzerà il fattoriale di quel numero utilizzando una funzione ricorsiva.

REM Programma per il calcolo del fattoriale in QBasic

INPUT "Inserisci un numero: ", num
PRINT "Il fattoriale di "; num; " = "; Fattoriale(num)
END

FUNCTION Fattoriale(n)
    IF n = 0 OR n = 1 THEN
        Fattoriale = 1
    ELSE
        Fattoriale = n * Fattoriale(n - 1)
    END IF
END FUNCTION