Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 4411
Réponses : 23
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Nombre de diviseur premier

FulliZing le 08/12/2006 à 17:36
Bonjour, je cherche un programme qui donne tout les diviseurs premiers d'un nombre. J'ai les deux programmes, un qui donne tout les diviseurs et un autre qui te dit si le nombre est premier, mais je ne sait pas comment les "combiner"
merci de votre aide
Sangohan38 le 08/12/2006 à 21:14
Passe les codes des deux progs.

Sangohan38
FulliZing le 09/12/2006 à 12:52
La liste des diviseurs :

Code
Input "Nombre?",A
For(B,1,[racine carré]de A,1)
If partDec(A/B)=0
Then
Pause {B,A/B}
End
End
Disp "......FINI......"
Pause

Nombre premiers :

Code
Input "Nombre?",A
abs(A)->A
If partDec(A/2)=0 et A[different de]2
Then
Pause {2,A/2}
Goto 0 (en faite il y a un menu)
End
End
Disp "Nombre premiers!"
Pause
Goto 0
Sangohan38 le 09/12/2006 à 13:59
Fait un menu avec 2 labels pour te ramener a tes deux progs.
Ils seront séparer mais seront dans le même prog.

Sangohan38
FulliZing le 09/12/2006 à 19:43
en faite il le sont deja deja mais je voudrais que le prog se fass en chaine sans pause et qu'il ne s'arrete que quand il a fini son tavail
merci
Sangohan38 le 09/12/2006 à 23:02
Enlève les deux goto qui ramène au menu où qui arrêtent le prog.

Sangohan38
FulliZing le 10/12/2006 à 11:48
ok merci, je vais allé essayer
webmaster le 10/04/2007 à 14:48
Tu as abandonné le projet ?

@+ Le Webmaster beer.gif
Baptiste747 le 10/04/2007 à 16:40
J'ai ce prog, qui donne tous les diviseurs premier d'un nombre. happy.gif
vibra le 10/04/2007 à 18:33
moi aussi je veux bien te le donner si tu veux
Sangohan38 le 10/04/2007 à 19:24
C'est vous qui les avez crées?
Sinon, il faut demander l'accord à celui qui vous les as passer.

Sangohan38
vibra le 10/04/2007 à 20:54
Oui, c'est moi qu l'ai fait, c'est même mon tout premier programme !!
Ce programme permet de connaître les facteurs premiers d´un nombre et de déterminer si c`est un nombre premier.

Code
Input « NOMBRE... » , A         
0 -> C                  
2 -> D                  
Lbl 1                     
If D>3                  
D+1 -> D                  
Lbl 2                     
If D*D {inférieur ou égale à} A                  
Then                     
If fPart (A/D) = 0               
Then                     
Disp " FACT...PREMIERS... :"
Else
Pause
End
Disp D
A/D -> A
C+1 -> C
Goto 2
Else
D+1 -> D
Goto 1
End
Else
If C = 0
Then
Disp " NB...PREMIER "
Else
Pause
End
Disp A
End
ratuss le 10/04/2007 à 20:55
Citation
C'est vous qui les avez crées?
Sinon, il faut demander l'accord à celui qui vous les as passer.

Sangohan38


lol, tu peux mettre un copyright sur un gros prog en asm mais bon un prog de 5 lignes en basic faut pas abuser non plus :p

+
vibra le 10/04/2007 à 21:08
Tu sais ce qu'il te dit mon programme de 5 lignes en Basic... maxiangry.gif
Bon d'accord, j'admet il n'est pas très gros, mais tout de même happy.gif
ratuss le 10/04/2007 à 21:17
Tu programmes depuis combien de tps ?
Sangohan38 le 11/04/2007 à 08:42
Si, même sur les petits progs le copyright © existe.
Et c'est marqué sur la charte du forum que les progs postés doivent l'être avec l'accord du créateur.

Sangohan38
vibra le 11/04/2007 à 12:19
Je programme depuis environ 1 an. D'ailleurs si vous voulez aller voir les prog. quej'ai déja mis sur le site, il y a "horloge" et "Master Mind"
Sangohan38 le 11/04/2007 à 18:40
Bon alors tu va participer au prochain concour?

Sangohan38
FulliZing le 11/04/2007 à 19:09
si il est bien, moi je participe godgrace.gif
ça fais 1 an que je prgoramme aussi
ratuss le 11/04/2007 à 19:33
Salut, ceux qui cherchent à tout prix des concours il y a le grand zcontest annuel francais/anglais, basic / basic etendu / asm.

Pour ceux que ca interessent je peux donner le lien...

+

Ps : Fullizing juste pour savoir, t'as quoi comme calto ? t'as le cable ?
vibra le 11/04/2007 à 21:40
ouais vas -y donne le lien.
ratuss le 12/04/2007 à 10:59
http://tiforge.info/zcontest/ (sujet libre bien entendu)


+
Didouille le 16/09/2008 à 20:18
Bonjour, je voudrait savoir comment on fait partDec sur ti-82.
Si la fonction n'existe pas sur ti-82, est-ce que je pourrais le remplacé par autre chose?
Merci A+
Sangohan38 le 16/09/2008 à 20:34
Merci de vous assurez que la réponse à votre question (si c'en est une !) n'est pas déjà présente :
- Dans la FAQ;
- Dans le lexique;
- Dans le sujet "Traduction des focntions Anglaises/Françaises";
- Dans le sujet "Fonctions TI-83";
- Et partout ailleurs sur le forum !!! (utilisez pour celà le champ de recherche en haut à droite).

J'ai un peu l'impression de me répêter des fois ...

Sangohan38
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.