Conjecture de syracuse

Soyez le premier à donner votre avis sur cette source.

Vue 4 173 fois - Téléchargée 255 fois

Description

pti code sympa sans prétention
la conjecture de syracuse :
avec nimportequel nombre grace au procédé on arrive à 1
-si le nombre est pair on le divise par 2
-si impair = 3*x+1

jamais démontré...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015

Use the forum, young souga.
Souga -> ce genre de question se pose sur le forum. Sinon, sur l'évenement onChange ou onLostFocus du textBox tu vérifies si la saisie s'écarte de ce que tu attends
Messages postés
1
Date d'inscription
mercredi 18 mai 2005
Statut
Membre
Dernière intervention
19 mai 2005

en faite g des question a poser a tout les amateur de visual basic car je ne trouve pa les reponse:
g lu le code de zoneo mais il puorrait etre plu précis et je sais pas comment faire donc avis o amateur
en faite jvoulais ke quand jentre une lettre (ex "a" ou "b") ou le nombre "0" ou meme un nombre negatif ou a virgule ca me di "saisi incorecte"
voila je vous remercie d'avance
Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015

dagnir -> tu n'as pas bien suivi mon explication :
si tu ajoute 1 et que tu divises par 2 ta suite devient forcement décroissante donc le problème est ininterressant
Messages postés
18
Date d'inscription
jeudi 24 avril 2003
Statut
Membre
Dernière intervention
11 février 2009

Heu j'ai surement rien compris mais si un nombre est impaire il n'y a qu'à lui ajouter 1 pour le rendre paire et donc divisible par 2, il n'y a pas besoin de lui multiplier par 3 avant.
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
7
Perso, j'ai résolu le problème de capacité en faisant:
Private Sub Lancer_AfterUpdate()
Dim cpt As Integer
Dim a,b as double
a = Me.Nb
b = a
Res = a & " "
cpt = 0
DoCmd.Hourglass True
While a <> 1
cpt = cpt + 1
Select Case (Right(a, 1) Mod 2)
Case Is 1: a (3 * a) + 1: Res = Res & a & " "
Case Is 0: a a / 2: Res = Res & a & " "
End Select
If a > b Then b = a
Wend
DoCmd.Hourglass False
Altitude = b
Durée = cpt
End Sub

En testant uniquement la fin du nombre, on peut aller plus loin. Par exemple, je peux calculer la conjecture de:
123456789123456 => durée = 326

Et ya un blem avec ton zip, pour moi aussi.
Afficher les 13 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.