π
<-
Chat plein-écran
[^]

Listes et nombres premiers

Pour le TI-Basic sur Nspire

Re: Listes et nombres premiers

Message non lude kinkazma » 09 Nov 2018, 21:02

Hey j'ai réussi ! J'ai même réussi en 25 lignes !
Avatar de l’utilisateur
kinkazma
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Prochain niv.: 30.5%
 
Messages: 88
Inscription: 06 Mar 2018, 23:25
Genre: Homme
Calculatrice(s):
Classe: 1S

Re: Listes et nombres premiers

Message non lude kinkazma » 09 Nov 2018, 21:05

Je veux bien le mettre en ligne si vous voulez !
Merci à tous de votre soutiens et de votre aide !
Avatar de l’utilisateur
kinkazma
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Prochain niv.: 30.5%
 
Messages: 88
Inscription: 06 Mar 2018, 23:25
Genre: Homme
Calculatrice(s):
Classe: 1S

Re: Listes et nombres premiers

Message non lude kinkazma » 14 Nov 2018, 21:33

Code: Tout sélectionner
Define LibPub premier(z,a)=
Prgm
:l1:={}
:l2:={}
:l3:={}
:l4:={}
:x:=0
:z→k
:While z<a
:z+1→z
:x+1→x
:If string(isPrime(z))="true" Then
:Disp z
:l1[dim(l1)+1]:=z
:l3[dim(l3)+1]:=1
:l4[dim(l4)+1]:=1
:EndIf:If x=3159 or x=a Then
:x:=0
:sum(l3)→p
:l2[dim(l2)+1]:=p
:l3:={}
:EndIf
:EndWhile
:l2[dim(l2)+1]:=p
:Disp " "
:Disp sum(l4)
:sum(l4)→p
:Disp "Pour :",a-k
:DelVar a,z,x,k,l3,l4
EndPrgm


J'ai un bug dans mon programme mais je ne vois pas où !
Le truc c'est que parfois ma liste L2 me donne deux arguments au lieu de 1 seul quand mon intervalle est inférieur à 3159...
Je ne vois pas comment faire !
Avatar de l’utilisateur
kinkazma
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Prochain niv.: 30.5%
 
Messages: 88
Inscription: 06 Mar 2018, 23:25
Genre: Homme
Calculatrice(s):
Classe: 1S

Re: Listes et nombres premiers

Message non lude Bisam » Hier, 11:43

Pourquoi t'obstines-tu à écrire If string(isPrime(z))="true" Then alors que If isPrime(z) Then est plus rapide, plus clair, et fait la même chose ?
Avatar de l’utilisateur
BisamAdmin.
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Prochain niv.: 45.8%
 
Messages: 5400
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
Classe: Prof de Math en Maths Spé PSI

Re: Listes et nombres premiers

Message non lude kinkazma » Hier, 14:39

Ça fonctionne aussi... et je n'ai pas compris comment ce tu me propose fonctionne...
Il faut mettre If isPrime(z)=true Then ? Sinon ça ne fonctionne pas...?
Avatar de l’utilisateur
kinkazma
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Prochain niv.: 30.5%
 
Messages: 88
Inscription: 06 Mar 2018, 23:25
Genre: Homme
Calculatrice(s):
Classe: 1S

Re: Listes et nombres premiers

Message non lude Hamza.S » Hier, 15:31

Tu n'as pas besoin de =true
Image
Avatar de l’utilisateur
Hamza.SAdmin.
Niveau 16: CC2 (Commandeur des Calculatrices)
Niveau 16: CC2 (Commandeur des Calculatrices)
Prochain niv.: 96%
 
Messages: 2994
Images: 17
Inscription: 07 Nov 2014, 00:43
Genre: Homme
Calculatrice(s):

Re: Listes et nombres premiers

Message non lude kinkazma » Hier, 17:30

Pourquoi pas, mais cela ne change pas mon problème ! 😅
Avatar de l’utilisateur
kinkazma
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Prochain niv.: 30.5%
 
Messages: 88
Inscription: 06 Mar 2018, 23:25
Genre: Homme
Calculatrice(s):
Classe: 1S

Re: Listes et nombres premiers

Message non lude kinkazma » Hier, 17:37

J'ai trouvé la solution ! C'est bon !
Avatar de l’utilisateur
kinkazma
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Prochain niv.: 30.5%
 
Messages: 88
Inscription: 06 Mar 2018, 23:25
Genre: Homme
Calculatrice(s):
Classe: 1S

Précédente

Retourner vers Nspire-Basic

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités

-
Rechercher
-
Sujets à la une
Triconcours universel de la rentrée - 2000 euro de prix !
"NumWorks++": Challenge de modification matérielle pour rajouter une puce de mémoire Flash !
Offre TI-Planet/Jarrety pour avoir la TI-83 Premium CE avec son chargeur pour 79,79€ port inclus !
Offre TI-Planet/Jarrety pour avoir la TI-Nspire CX CAS à seulement 130€ TTC port inclus!
Jailbreake ta TI-Nspire avec Ndless et profite des meilleurs jeux et applications !
Transforme ta TI-Nspire CX en console Game Boy Advance!
123456
-
Donations/Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
PayPal : paiement en ligne sécurisé - secure online payments
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety 
-
Stats.
440 utilisateurs:
>402 invités
>33 membres
>5 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)