Programmation

Posté par Jay_Matheux Jay_Matheux

Bonsoir à tous et bonnes vacances. J'ai un problème :/ voilà je ferais SP math bientôt et j'ai décidé de m'avancer ^^ et puis les maths me manquent et là on me demande de programmer un algorithme avec pour condition d'arrêt l'obtention du nombre 1 et avec en plus un compteur qui détermine le nombre d'étapes avant l'obtention du nombre 1 :s

L'algorithme:

n-> le nombre est-il pair? (1)      avec n
   Si oui le diviser par deux (n/2) sinon le multiplier par 3 et rajouter 1 (3n+1)
   recommencer a (1)

Mon boulot...sans succès: J'ai une ti 84+

: Prompt n
:if int(n/2)=n(2)
:then
:n/2
:Goto 1
:End
:3n+1
:Lbl 1
:End
...

Merci d'avance pour vos aides

                                                                             Jay

Posté par infophile infophile

Salut

C'est la conjecture de Syracuse, t'auras pas de mal à trouver son algo sur le net.

Il n'y a pas de "else" dans le tien ?

Posté par Jay_Matheux Jay_Matheux

Si si il y a "else"

Posté par Jay_Matheux Jay_Matheux

Merci à toi infophile grâce à toi je suis parvenu à faire mon programme en faisant des petites recherches sur le net ^^ encore merci

Posté par infophile infophile

De rien

Qu'est-ce qui clochait ? Je ne connais pas le language des TI.

Posté par Jay_Matheux Jay_Matheux

ben j'arrivait pas à faire en boucle en faite, mais là je m aperçoit que c'est pas suffisant
parce qu'il faut compter le nombre de boucle effectué et à avoir la plus grande valeur rencontrée :s :'(

Posté par infophile infophile

Tu peux utiliser une boucle while sinon non ?

Tant que t'arrives pas à 1 tu incrémentes.

Posté par Jay_Matheux Jay_Matheux

j'ai ici utilisé les fonctions LBL et GOTO

Posté par fakir151 fakir151

Tu programmes avec quel calculatrice Kevin?

fakir

Posté par infophile infophile

J'ai jamais prog une calto, je fais ça sous Maple ou Pascal ça offre plus de possibilités

Posté par Jay_Matheux Jay_Matheux

c'est gratuit?

Posté par fakir151 fakir151

ok ! c'est dommage car au lycée, ça aurait pu etre tres utile (comme pour les eq du second degré, systeme...)

Posté par Quent225 Quent225

Bonsoir!

je suis parvenu à faire le programme, mais il me manque le compter et la valeur max.

romt A
:While A>1
=If iPart(A/2)=A/2
:Then
:A/2->A
isp A
ause
:Else
:3A+1->A
isp A
ause
:End
:End
isp A

Posté par Quent225 Quent225

= : P
= : D
...

Posté par Quent225 Quent225

il me manque le compteur

Posté par Jay_Matheux Jay_Matheux

merci Quent mais c'est ce que j'arrive pas à faire!! lol le compter et la valeur max :p

Posté par Jay_Matheux Jay_Matheux

compteur* ...décidément lol

Posté par Quent225 Quent225

je crois qu'il faut utiliser les listes, mais je suis pas sur...

Posté par Jay_Matheux Jay_Matheux

Mais bien sûr !! c'est une bonne idée le but serait de stocker dans une liste...et ensuite de l'ordonner et tout le blabla...

Posté par Porcepic Porcepic

Bonsoir,

Je pense que tu peux aussi simplement stocker le compteur et la valeur max dans deux variables.

Pour le compteur, tu déclares N=1 au début de ton programme. Ensuite, avant la fin de la boucle, tu redéfinis N en N=N+1, puis un Disp N à la fin du programme.

Pour la valeur max, il suffit de déclarer au début M=A, puis ensuite vérifier dans ta boucle si on a A>M, auquel cas tu redéfinis M en M=A. Puis tu finis avec ton Disp P à la fin.

Normalement, ça devrait marcher, mais à vérifier.

Posté par Jay_Matheux Jay_Matheux

j'essaie :s merci beaucoup

Posté par Jay_Matheux Jay_Matheux

J'arrive pas...je retente avec les listes...

Posté par infophile infophile

Oui voilà Porcepic rejoint ce que je disais quant à l'incrémentation.

Je peux rédiger algorithmiquement si tu veux mais je connais pas la syntaxe des TI.

Bonne soirée tout le monde

Posté par Quent225 Quent225

:promt A
:N=1
:While A>1
:If iPart(A/2)=A/2
:Then
:A/2->A
:disp A
:pause
:Else
:3A+1->A
:disp A
:pause
:End
:N+1->N
:End
Voilà pour le compteur

Posté par infophile infophile

Ca m'a l'air d'être une affaire qui roule ça

Posté par Jay_Matheux Jay_Matheux

bonne soirée

Posté par Jay_Matheux Jay_Matheux

merci quent225

Posté par Quent225 Quent225

Et pour le programme final, grâce aux propositions de Porcepic:

:promt A
:N=1
:M=A
:While A>1
:If iPart(A/2)=A/2
:Then
:A/2->A
:disp A
:pause
:Else
:3A+1->A
:disp A
:pause
:End
:If A>M
:Then
:A->M
:N+1->N
:End
isp "La valeur maximale de la suite est :", M
isp "Le nombre d'itérations est:",N

Posté par Quent225 Quent225

Bonne soirée à tous...

Posté par Jay_Matheux Jay_Matheux

trop bon!!!!!!!!!!! je suis heureux merci !!!!! tout le monde!!!

Posté par Quent225 Quent225

apparemment, il y aurait une erreur: le compteur ne marche pas

Posté par Quent225 Quent225

le valeur max nn plus

Posté par Jay_Matheux Jay_Matheux

a zut dsl du retard :s

Posté par Quent225 Quent225

j'ai trouvé l'erreur pour V max

Posté par Jay_Matheux Jay_Matheux

c quoi??

Posté par Quent225 Quent225

et pour le nb d'itération ! :

SYRACUSE V2.beta:


:promt A
:1->N
:1->O
:A->M
:While A>1
:If iPart(A/2)=A/2
:Then
:A/2->A
:disp A
:pause
:O+1->O
:Else
:3A+1->A
:disp A
:If A>M
:Then
:A->M
:pause
:N+1->N
:End
:End
:End
:N+O->P
:disp "La valeur maximale de la suite est :", M
:disp "Le nombre d'itérations est:",p

Posté par Jay_Matheux Jay_Matheux

merci quent225 pourrais tu m'expliquer les étapes importantes stp et après ça sera fini

Posté par Quent225 Quent225



:promt A
:1->N
:1->O
:A->M
:While A>1
:If iPart(A/2)=A/2
:Then
:A/2->A
:disp A
:pause
:O+1->O
:Else
:3A+1->A
:disp A
:If A>M
:Then
:A->M
:end
:pause
:N+1->N
:End
:End
:N+O->P
:disp "La valeur maximale de la suite est :", M
:disp "Le nombre d'itérations est:",poups!:

Posté par Jay_Matheux Jay_Matheux

par exemple pourquoi une nouvelle variable O

Posté par Quent225 Quent225

Parceque je n'y suis pas arrivé autrement...

Je compte le nombre de fois où il faut faire 2A
et puis le nombre de fois où il faut faire 3A+1

Posté par Jay_Matheux Jay_Matheux

ok!!! t'es en quelle classe si ce n'est pas trop indiscret ^^

Posté par Quent225 Quent225

arg! encore une erreur!!!!!!!

Bon cette fois-ci c'est la dernière (et sans la variable O en plus):



:promt A
:1->N
:A->M
:While A>1
:If iPart(A/2)=A/2
:Then
:A/2->A
:disp A
:pause
:Else
:3A+1->A
:disp A
:If A>M
:Then
:A->M
:End
:pause
:End
:N+1->N
:End
:disp "La valeur maximale de la suite est :", M
:disp "Le nombre d'itérations est:",N

Posté par Quent225 Quent225

j'entre en 6e en septembre (en Belgique, donc j'entre en Terminale)

Posté par Jay_Matheux Jay_Matheux

ok en forme

Posté par Quent225 Quent225

et toi tu es en quelle année???

Posté par Jay_Matheux Jay_Matheux

je vais passer en terminale

Posté par Jay_Matheux Jay_Matheux

Pourquoi à la fin tu fais N+1, pourquoi rajoute-tu 1 ??

Posté par Jay_Matheux Jay_Matheux

il faut pas à mon avis

Posté par Quent225 Quent225

tiens donc!

bon, je crois que je vais y aller...
bonne (fin) de soirée

Posté par Quent225 Quent225


Parcequ'il y a une étape en plus à chaque fois, j'usqu'à ce que A=1