Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[INTERPOL 0.2.0.3] Suite de Syracuse
Auteur Message
Répondre en citant
Message [INTERPOL 0.2.0.3] Suite de Syracuse 
Ce programme est programmé avec la version 0.2.0.3 d'INTERPOL (non-compatible avec les versions précédentes !).

Citation:
La suite de Syracuse associé à un entier a est définie par :

U0=a
Un+1=Un/2 si Un est pair
Un+1=3Un+1 si Un est impair
La conjecture (non encore démontrée) de Syracuse prévoit que, quelle que soit la valeur de a, la suite soit périodique de période 3 (séquence 4, 2, 1...) à partir d'un certain rang.
L'algorithme ci-dessous calcule les termes de la suite jusqu'à U100.




Code:
Font "Consolas"
Show

Input A "Entrez A"
Define U="$A"

Write "0 -> "
Read U
Write "" /r

Define I="0"

For 1,1,100
Define I="1+$I"
Mod Mod_U $U 2

If $Mod_U = 0
Define U="0+$U/2"
EndIf

If $Mod_U <> 0
Define U="3*$U+1"
EndIf

Read I
Write " -> "
Read U
Write "" /r
Next

Write "" /r
Sleep 100
Break
Exit


Dylan.




______________________________________________________
Viens découvrir INTERPOL, un nouveau langage interprété !

Yahoo Messenger
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [INTERPOL 0.2.0.3] Suite de Syracuse 
Excellent Dylan !!!

Okay




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Message [INTERPOL 0.2.0.3] Suite de Syracuse 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch