Programmes de Spécialité Maths

OUne 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


OUne fonction qui renvoie la liste des diviseurs d'un nombre entier :

Exemple : listdiv(20) renvoie {1,2,4,5,10,20}
Télécharger : listdiv.zip
Auteur : Alexandre Santacreu



OUn programme qui résout les équations diophantiennes :

Exemple : diophant(6,21,12) affiche :

x=2-7k   y=0+2k

Télécharger : diophant.zip
Auteur : Boub



OUne fonction qui renvoie les restes des divisions successives de l'algorithme d'Euclide :

Exemple : euclid(789,45) renvoie {24,21,3}. En effet...

789 = 17*45 + 24
45 = 1*24 + 21
24 = 1*21 + 3
3 est le dernier reste positif de l'algorithme, donc pgcd(789,45)=3

Télécharger : euclid.zip
Auteur : Alexandre Santacreu



OUne fonction qui trouve les coefficients du théorème de Bezout :

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 -