| nombre de diviseur premier |
| Auteur |
Message |
FulliZing
Autorisation : Membre
Nb de messages : 65
Inscrit le : Dim 05 Nov 2006, 13:01
|
Posté le : Ven 08 Déc 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
----------------------
Quand on cherche on trouve... |
 |
  |
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Ven 08 Déc 2006, 21:14
|
|
|
Passe les codes des deux progs.
Sangohan38
|
| |
|
| |
FulliZing
Autorisation : Membre
Nb de messages : 65
Inscrit le : Dim 05 Nov 2006, 13:01
|
Posté le : Sam 09 Déc 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 |
----------------------
Quand on cherche on trouve... |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 09 Déc 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
Autorisation : Membre
Nb de messages : 65
Inscrit le : Dim 05 Nov 2006, 13:01
|
Posté le : Sam 09 Déc 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
----------------------
Quand on cherche on trouve... |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 09 Déc 2006, 23:02
|
|
|
Enlève les deux goto qui ramène au menu où qui arrêtent le prog.
Sangohan38
|
| |
|
| |
FulliZing
Autorisation : Membre
Nb de messages : 65
Inscrit le : Dim 05 Nov 2006, 13:01
|
Posté le : Dim 10 Déc 2006, 11:48
|
|
|
ok merci, je vais allé essayer
----------------------
Quand on cherche on trouve... |
| |
|
| |
webmaster
Autorisation : Administrateur
Nb de messages : 792
Inscrit le : Mer 18 Aoû 2004, 22:13
|
Posté le : Mar 10 Avr 2007, 14:48
|
|
|
Tu as abandonné le projet ?
@+ Le Webmaster 
|
| |
|
| |
Baptiste747
Autorisation : Membre
Nb de messages : 20
Inscrit le : Dim 01 Avr 2007, 19:14
|
Posté le : Mar 10 Avr 2007, 16:40
|
|
|
J'ai ce prog, qui donne tous les diviseurs premier d'un nombre. 
|
| |
|
| |
vibra
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Mar 10 Avr 2007, 18:33
|
|
|
moi aussi je veux bien te le donner si tu veux
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mar 10 Avr 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
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Mar 10 Avr 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 |
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
Ratuss
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Mar 10 Avr 2007, 20:55
|
|
|
| Citer | 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
+
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
vibra
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Mar 10 Avr 2007, 21:08
|
|
|
Tu sais ce qu'il te dit mon programme de 5 lignes en Basic... 
Bon d'accord, j'admet il n'est pas très gros, mais tout de même
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
Ratuss
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Mar 10 Avr 2007, 21:17
|
|
|
Tu programmes depuis combien de tps ?
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mer 11 Avr 2007, 8: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
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Mer 11 Avr 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"
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mer 11 Avr 2007, 18:40
|
|
|
Bon alors tu va participer au prochain concour?
Sangohan38
|
| |
|
| |
FulliZing
Autorisation : Membre
Nb de messages : 65
Inscrit le : Dim 05 Nov 2006, 13:01
|
Posté le : Mer 11 Avr 2007, 19:09
|
|
|
si il est bien, moi je participe 
ça fais 1 an que je prgoramme aussi
----------------------
Quand on cherche on trouve... |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Ratuss
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Mer 11 Avr 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 ?
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
