Une fonction qui renvoie la liste des nombres premiers de 2 à son argument :
Exemple : listprem(20) renvoie {2,3,5,7,9,11,13,17,19}
Télécharger : listprem.zip
Auteur : Alexandre Santacreu
Mon avis : N'en déplaise à mon prof, l'algorithme le plus con est parfois le plus rapide...
Code :
:listprem(maxi)
:Func
:
:Local list,i
:{}->list
:
:For i,2,maxi
: If isPrime(i) Then
: augment(list,{i})->list
:EndIf
:EndFor
:
:Return list
:EndFunc
Exemple : listdiv(20) renvoie {1,2,4,5,10,20}
Télécharger : listdiv.zip
Auteur : Alexandre Santacreu
Exemple : diophant(6,21,12) affiche :
Télécharger : diophant.zip
Auteur : Boub
Exemple : euclid(789,45) renvoie {24,21,3}. En effet...
789 = 17*45 + 243 est le dernier reste positif de l'algorithme, donc pgcd(789,45)=3
45 = 1*24 + 21
24 = 1*21 + 3
Exemple : bezout(6,20) renvoie {2,-3,1}. En effet pgcd(6,20)=2 et -3*6+1*20=2
Télécharger : bezout.zip
Auteur : Th.Fernique
- Page perso - Site TI-89 - E-mail -