Ce site utilise des cookies nécessaires à son fonctionnement, ils permettent de fluidifier son fonctionnement par exemple en mémorisant les données de connexion, la langue que vous avez choisie ou la validation de ce message.
Pour calculer la factorielle d'un nombre en FreeBasic, voici le code de fact12.bas que vous pouvez mettre dans un éditeur. (scite par exemple : freebasic-avec-l-editeur-scite )
je vous passe les détails du code qui sont assez élémentaires (on peut faire beaucoup mieux, je n'en doute pas)
print "Calcul factorielle en FreeBasic version 1.2"
print "Pour quitter le programme entrez un nombre négatif"
print "--------------------------------------------------"
dim f as integer
dim i as integer
dim r as double
while f<>-1
f=0
input "Nombre ";f
if f<0 then end
r=1
while f<>0
f=f-1
r=r+r*f
wend
print "Résultat : ",r
print "--------------------------------------------------"
wend
Conserver jusqu'à la fin de la mise en page pour faciliter les insertions.
dans un terminal, compiler le programme
fbc fact12.bas
puis exécuter le programme :
./fact12
et voici le résultat pour quelques nombres :
$ ./fact12
Calcul factorielle en FreeBasic version 1.2
Pour quitter le programme entrez un nombre négatif
--------------------------------------------------
Nombre ? 5
Résultat : 120
--------------------------------------------------
Nombre ? 20
Résultat : 2.43290200817664e+18
--------------------------------------------------
Nombre ? 69
Résultat : 1.711224524281413e+98
--------------------------------------------------
Nombre ? 123
Résultat : 1.214630436702534e+205
--------------------------------------------------
Nombre ? -1
$
Ce site utilise des cookies nécessaires à son fonctionnement, ils permettent de fluidifier son fonctionnement par exemple en mémorisant les données de connexion, la langue que vous avez choisie ou la validation de ce message.