Page 1 sur 1

Programme de spé

MessagePublié: 23 Déc 2011, 18:56
par 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

Re: Programme de spé

MessagePublié: 23 Déc 2011, 19:04
par 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é 388 fois

Re: Programme de spé

MessagePublié: 23 Déc 2011, 23:37
par 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