π
<-
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 8: ER (Espèce Rare: nerd)
Niveau 8: ER (Espèce Rare: nerd)
Prochain niv.: 62.9%
 
Messages: 132
Inscription: 06 Mar 2018, 23:25
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: TS

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 8: ER (Espèce Rare: nerd)
Niveau 8: ER (Espèce Rare: nerd)
Prochain niv.: 62.9%
 
Messages: 132
Inscription: 06 Mar 2018, 23:25
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: TS

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 8: ER (Espèce Rare: nerd)
Niveau 8: ER (Espèce Rare: nerd)
Prochain niv.: 62.9%
 
Messages: 132
Inscription: 06 Mar 2018, 23:25
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: TS

Re: Listes et nombres premiers

Message non lude Bisam » 15 Nov 2018, 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.: 69.5%
 
Messages: 5665
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
MyCalcs profile

Re: Listes et nombres premiers

Message non lude kinkazma » 15 Nov 2018, 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 8: ER (Espèce Rare: nerd)
Niveau 8: ER (Espèce Rare: nerd)
Prochain niv.: 62.9%
 
Messages: 132
Inscription: 06 Mar 2018, 23:25
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: TS

Re: Listes et nombres premiers

Message non lude Hamza.S » 15 Nov 2018, 15:31

Tu n'as pas besoin de =true
Image
Avatar de l’utilisateur
Hamza.SAdmin
Niveau 17: GM (Grand Maître des calculatrices)
Niveau 17: GM (Grand Maître des calculatrices)
Prochain niv.: 28.5%
 
Messages: 4461
Images: 18
Inscription: 07 Nov 2014, 00:43
Genre: Homme
Calculatrice(s):
MyCalcs profile

Re: Listes et nombres premiers

Message non lude kinkazma » 15 Nov 2018, 17:30

Pourquoi pas, mais cela ne change pas mon problème ! ?
Avatar de l’utilisateur
kinkazma
Niveau 8: ER (Espèce Rare: nerd)
Niveau 8: ER (Espèce Rare: nerd)
Prochain niv.: 62.9%
 
Messages: 132
Inscription: 06 Mar 2018, 23:25
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: TS

Re: Listes et nombres premiers

Message non lude kinkazma » 15 Nov 2018, 17:37

J'ai trouvé la solution ! C'est bon !
Avatar de l’utilisateur
kinkazma
Niveau 8: ER (Espèce Rare: nerd)
Niveau 8: ER (Espèce Rare: nerd)
Prochain niv.: 62.9%
 
Messages: 132
Inscription: 06 Mar 2018, 23:25
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: TS

Précédente

Retourner vers Nspire-Basic

Qui est en ligne

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

-
Rechercher
-
Social TI-Planet
-
Sujets à la une
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
Faire un don
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 Calculatrices à acheter chez Calcuso
-
Stats.
1015 utilisateurs:
>1006 invités
>4 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)