Poster un nouveau sujet Poster une réponse
détermination de nombres premiers
Auteur Message
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 02 Nov 2009, 19:43   Citer 

Voici un prototype.
J'indique un entier auquel s'arrêter et le programme détermine tous les premiers inférieurs. (pour démarrer j'en met quand même quelques-uns pré-déterminés)
Mais ça ne marche pas. cry.gif


Code
Prompt B
EffListe L5
2->L5(1)
3->L5(2)
5->L5(3)
For(W,1,B
dim(L5)+1->U
EffListe L4
For(V,1,dim(L5)
W/L5(V)->I
If I=ent(I)
Then
1->L4
Else
0->L4
End
End
If max(L4)=0
W->L5(U)
End



Pour une raison inconnue le dernier If n'est lu q'une fois. (verrifié par des disp placés tour à tour à divers endroits)
Mon hypothèse la plus plausible est que l'effacement de la liste 4 foire.

Quel est votre verdict ?

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
dysto



Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58
Posté le : Lun 02 Nov 2009, 20:50   Citer 

Pourquoi utiliser des listes ? (en plus 2 !)

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 02 Nov 2009, 23:03   Citer 

La liste L5 montre tous les nombres premiers déterminés (autant qu'on veut, alors qu'on a que 27 variables en lettre+théta) et L4 permet le fonctionnement (encore sans limite de nombre de variables)

S'il y a mieux que les listes dit moi quoi alors. ahh.gif

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 02 Nov 2009, 23:33   Citer 

Les suites peut-être (je sais pas si on peut stocker des variables dans les suites).
Sinon l'outil le plus magique reste les matrices car c'est un tableau et non une seule colonne.

Sangohan38

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 02 Nov 2009, 23:40   Citer 

J'y ai pensé mais je ne vois pas comment nettoyer une ligne ou une colonne en conservant le reste de la matrice. Or je me base sur ça pour ce programme.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 03 Nov 2009, 0:02   Citer 

J'ai étudié le programme du site.
Si je modifie mon premier FOR comme ça, ça marche

Code
For(W,3,B,2

Faut pas chercher à comprendre crazy.gif . Quoique ça serait bien.
(Je sais comment marche For, c'est pourquoi ça résoud le problème que je ne comprend pas)

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Rézus



Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Mar 03 Nov 2009, 14:41   Citer 

La boucle For incrémente une variable d'une valeur de départ jusqu'à une valeur d'arrivée en fonction d'un pas:
For(variable à incrémenter,valeur de départ,valeur d'arrivée,pas
Ex:

Code
:For(A,1,16
:Output(1,A,"A
:End


-Les valeurs de départ,d'arrivée et le pas peuvent être des variables également.
-Si le pas est égal à 1,pas la peine de le marquer dans l'instruction.
-Le pas peut être un réel quelconque (enfin dans les possibilités de la calculette)
!!-A l'inverse de while et de Repeat,quand ta variable atteint la valeur d'arrivée,les instructions de la boucle sont encore effectuées une fois.
!!-Tu peux faire une boucle infinie si la valeur de départ est supérieur à la valeur d'arrivée et que le pas est positif,c'est valable pour l'inverse aussi bien sur.

Voilà tu sais tout ! cupsmiley.gif

ça peut servir pour effacer une ligne dans une matrice,ou pour la remplir:

Code
:{3,10}->dim([A]
:For(A,1,10
:1->[A](1,A
:End



 Adresse email Haut de page Bas de page 
 
Overdozage



Autorisation : Membre
Nb de messages : 24
Inscrit le : Jeu 18 Oct 2012, 21:19
Posté le : Jeu 29 Nov 2012, 20:36   Citer 

linkakro ton prog ne marche pas, il s'arrête avec ERR:TYPE DONNEE avec 0->L4

Ps : je sais que je remonter un lointain programme mais il a l'air bien happy.gif

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 29 Nov 2012, 23:01   Citer 

Effectivement ce programme revient de loin. Je programmais depuis quelques mois.

Ecrit "L4(V" et cela devrait marcher.

Avec mes connaissances actuelles je réécrit le programme à l'arrache.
EDIT : évidemment j'ai écrit des conneries. Programme corrigé avec test à l'appui.

Code
{2->L1
Prompt N
1->M
For(W,3,N,2
If prod(fPart(W/L1
Then
M+1->M
W->L1(M
End
End
L1



----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Overdozage



Autorisation : Membre
Nb de messages : 24
Inscrit le : Jeu 18 Oct 2012, 21:19
Posté le : Dim 02 Déc 2012, 19:18   Citer 

Hum, non, ça marche pas ^^ mais alors pas du tout !

Aucune erreur, mais il affiche toujours {2}, comme unique nombre premier quoi que l'on mette comme chiffre

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 02 Déc 2012, 20:02   Citer 

Corrigé avec test à l'appui cette fois.
Optimisé avec les fonctions de listes. C'est plus facile à gérer qu'une boucle.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 6 requêtes