Download documentation AJL

documentation AJL
n = 0
LIREDICO(mot)
Boucle(i=1;i<=Longueur(mot);i+=1)
n[mot::i] += 1
n += 1
Finboucle
FINLIREDICO
Boucle(i=1;i<=26;i+=1)
Selection("Nombre de "+Lettre(i)+" = "+n[Lettre(i)])
Finboucle
Selection("Nombre total de lettres : "+n)
Créé avec HelpNDoc Personal Edition: Générateur de documentation complet
Trop plein de consonnes
//=================================================================
// Ce programme cherche les mots ayant au moins 4 consonnes
// consécutives. Il donne des exemples.
//=================================================================
// (c) JLP Fractware avril 2012 Pour AJL version 5.
//=================================================================
nconsonnes = 4 //nombre minimal de consonnes souhaité
n=0
c = Majus("bcdfghjklmnpqrstvwxz")
liredico(mot)
l = Longueur(mot)
i = 0
tantque(i<l)
x = Debutinclus(mot<<i,c)
si (x >= nconsonnes)
consonnes = Partie(mot,i+1,x)
si(Existe(nbre[consonnes]))
nbre[consonnes] += 1
sinon
nbre[consonnes] = 1
consonnes[n] = consonnes
mots[consonnes] = mot
n += 1
finsi
i += x
sinon
i += 1
finsi
fintantque
finliredico
for(i=0;i<n;i+=1)
Selection(nbre[consonnes[i]]+" mots en "+consonnes[i]+", exemple :
"+mots[consonnes[i]])
endfor
Créé avec HelpNDoc Personal Edition: Outils facile d'utilisation pour créer des aides HTML et des sites web
176 / 227