Programme de spé

[Boris]

Bonjour, voici un petit post pour diffuser quelques programmes de spé.
Rien de bien extraordinaire, mais cela apportera quelques réponses à plusieurs questions qu'on m'a posé :

Test de primalité :

Code: Tout sélectionner

Define testprem(n)=
Prgm
:test:=0
:For i,2,floor(√(n))
:If mod(n,i)=0 Then
:test:=1
:d:=i
:i:=n-1
:EndIf
:EndFor
:If test=0 Then
:Disp n," est premier"
:Else
:Disp n," n'est pas premier"
:Disp n,"est divisible par ",d
:EndIf
:EndPrgm

[Boris]

Déterminer tous les diviseurs positifs d'un entier ainsi que leur nombre :

Code: Tout sélectionner

Define diviseurs(n)=
Prgm
:l:={1}
:For i,2,n
:If mod(n,i)=0 Then
:l:=augment(l,{i})
:EndIf
:EndFor
:Disp "les diviseurs de ",n," sont :"
:Disp l
:Disp "Il y a ",dim(l)," diviseurs de ",n
:EndPrgm

En plus un fichier qui contient une page d'éditeur de mathématique qui fait la même chose (merci à Christian^^) :

diviseurs editeur.tns

(1.97 Kio) Téléchargé 342 fois

[Christian]

Bonjour
Tout à fait d'accord... j'en profite pour faire une pub sur les chapitres de mon bouquin qui parlent de tout cela: chapitre 1 et 6 du lien suivant (normalement une version mise à jour du bouquin devrait apparaître bientôt):
http://www.univers-ti-nspire.fr/capes_a ... iques%20et%TI-nspire
Les fichiers tns peuvent être téléchargés.
Bonnes fêtes de fin d'année, à Boris et à tous les autres
Christian