Accueil Ti-Gen Foire Aux Questions Chat sur le chan #tigcc sur IRC
Liste des membres Rechercher Aide
Bienvenue Invité !   Se connecter             Mes sujets   
Administrer
0 membre(s) et 1 visiteur(s) actif(s) durant les 5 dernières minutes Utilisateurs actifs : Aucun membre + 1 visiteur
Avant de poster sur le forum, il y a des régles de bases à respecter pour une bonne entente et un respect de tous.
Veuillez lire la charte du forum.
  :: Index » Forum Ti68K » Programmation TI-Basic » Ecran I/O (5 réponse(s))
./POST DE DEPART (post n°0)   Marquer comme non lu.
Invité Ecrit le: Vendredi 1er décembre 2006 à 18:24 Déconnecté(e)    
 
Bonjours à tous,

Je suis nouveau ici donc veuillez m'excuser d'une quelconque erreur par ignorance^^.
Voilà j'ai fait un programme pour connaître tout les diviseurs d'un nombre, et je l'ai inscrit dans une liste que je fais afficher dans l'écran I/O.

Cependant, quand le nombre de diviseurs devient trop élevé, il n'affiche pas la liste entière.
Comment peut-on faire donc pour l'afficher totalment?

Voilà le code au cas où ça servirait :

decomp(x)
Prgm

Local i,r,x
nouvList(0)->listdiv
1->i

While i<=sqrt(x) // i inférieur ou égale à la racine carrée de x//

If reste(x,i)=0 Then

augmente(listdiv,{i})->listdiv
x/i->r
If r=i Then

Else
augmente(listdiv,{r})->listdiv

EndIf

i+1->i
Else
i+1->i

EndIf
EndWhile

TriCroi listdiv
Disp listdiv //c'est là je pense qu'il faut changer quelque chose//
Pause
EffES

EndPrgm
    
./Post n°1   Marquer comme non lu.
RHJPP Ecrit le: Vendredi 1er décembre 2006 à 19:15 Déconnecté(e)    Voir le profil de RHJPP Envoyer un email à RHJPP Envoyer un message privé à RHJPP  


Tu peux afficher le résultat avec pause :
Pause listdiv


Petits conseils :
1 - Pour ce genre de chose, on utilise plutôt une fonction, elle renvoie le résultat qui est utilisable par un autre programme ou une autre fonction.
2 - Fais bien attention de bien mettre toutes tes variables en local, sauf, bien sûr, si tu les utilises ailleurs (listdiv, par exemple) :)
3 - La fonction Factor* fait déjà ce que tu fais ;)

[Édit : * factor ne renvoie pas le résultat sous forme de liste]
-Edité le Vendredi 1er décembre 2006 à 21:42 par Thepro-
    
./Post n°2   Marquer comme non lu.
Invité Ecrit le: Samedi 2 décembre 2006 à 18:23 Déconnecté(e)    
 
À vrai dire, je croyais que factor donnait la liste des facteurs premier, et non la liste de tout les diviseurs?
De toute facon ca m'entraine à programmer ;)
Pour listdiv, je l'ai pas mis en local car je peux voir la liste entière avec F6 dans Var-Link^^
Sinon, tu ne saurais pas pour afficher la liste entière?
    
./Post n°3   Marquer comme non lu.
RHJPP Ecrit le: Samedi 2 décembre 2006 à 19:54 Déconnecté(e)    Voir le profil de RHJPP Envoyer un email à RHJPP Envoyer un message privé à RHJPP  


Je te dis comment faire au début de mon précédent message ;) :
Thepro :
Tu peux afficher le résultat avec pause :
Pause listdiv
    
./Post n°4   Marquer comme non lu.
Invité Ecrit le: Samedi 2 décembre 2006 à 22:25 Déconnecté(e)    
 
Ah désolé j'avais pas compris^^
En effet, ca fonctionne à merveille! :D
Je te remercie beaucoup pour ton aide!! :) :) :)
    
./Post n°5   Marquer comme non lu.
Kevin Kofler Ecrit le: Dimanche 3 décembre 2006 à 00:14 Déconnecté(e)    Voir le profil de Kevin Kofler Envoyer un email à Kevin Kofler Visiter le site WEB de Kevin Kofler Envoyer un message privé à Kevin Kofler  


factor donne effectivement les facteurs premiers. Ensuite, il faut bidouiller pour les extraire en tant que liste et en construire les diviseurs.
Membre de l'équipe de TIGCC: http://tigcc.ticalc.org
Mainteneur du portage Linux/Unix de TIGCC: http://tigcc.ticalc.org/linux/
Membre de l'équipe de CalcForge: http://www.calcforge.org:70/

Participez à la reprise de Ti-Gen!
    
  :: Index » Forum Ti68K » Programmation TI-Basic » Ecran I/O (5 réponse(s))
Pages : 1/1     « [1] » »|

.Répondre à ce sujet
Les boutons de code
[B]old[I]talic[U]nderline[S]trikethrough[L]ine Flip Hori[Z]ontallyFlip [V]erticallySha[D]ow[G]low[S]poilerCode [G][C]ite
Bullet [L]istList Item [K] Link [H][E]mail[P]icture SmileysHelp
Couleurs :
Saisissez votre message
Activer les smileys
     

Forum de Ti-Gen v3.0 Copyright ©2004 by Geoffrey ANNEHEIM
Webmaster: Kevin KOFLER, Content Admins: list, Server Admins: Tyler CASSIDY and Kevin KOFLER, DNS Admin: squalyl
Page générée en 49.94ms avec 21 requetes