Les vacances ?
Eh bien ce sera pour plus tard...
Etat de la version complète: il ne reste plus qu'à coder la possibilité d'un nombre illimité de fichiers textes, binaires ou Excel ouverts simultanément, et un nombre illimité de GOSUB imbriqués.
Et c'est pourquoi je fais ce post, je viens de me rendre compte qu'en donnant à PANORAMIC la possibilité d'utiliser un nombre
illimité de GOSUB imbriqués (GOSUB dans un GOSUB dans un GOSUB dans un GOSUB etc, etc) cela revient à le rendre
récursif!
De nouveaux horizons s'offrent alors à lui, comme l'Intelligence Artificielle qui fait une grande comsommation de sous-programmes récursifs.
Un sous-programme récursif est un sous-programme qui peut s'appeler lui-même.
Oh, dès que j'ai un peu de temps, je vais faire des tutoriels sur tout cela!
Exemple classique de la récursivité: le calcul d'une factorielle.
5! = 5 x 4 X 3 x 2 x 1
10! = 10 x 9 x 8 x 7 x 6 x 5 x 4 X 3 x 2 x 1
- Code:
-
label factorielle
dim n,r
input "nombre ";n
r=n
gosub factorielle
print r
end
factorielle:
if n=0
return
else
n=n-1
r=r*n
gosub factorielle
end_if
return