Nombre premier

DJRenay -  
mamiemando Messages postés 33758 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,
voila je voulais creer un programme qui me trouvait tout les nombres premiers jusqu'a 100.
mais j'ai echoué de nombreuse reprise


Je suis quand meme parvenu a ecrire 2 programme

- le premier qui me dit si le nombre que je lui entre est premier
:Effecr
:Input "quelle nombre ?",J
:If partDec(J/2)=0
:Goto8
:For(A,2,J/2
:PartDec(J/a)->T
:If T=0:Goto6
:End
:Disp "Premier"
:Goto7
:Lbl6
:Effecr
:Disp " NON premier","","","Divisible par :",A
:Goto7
:Lbl8
:Disp "Nombre pair"," crétin"
:Lbl7
:Stop




et le deuxième qui arrive a calculer les nombres
mais je n'arrive pas a les entrées dans une liste

0->N
Effecr
2->A
LblA
While A<100:A+1->A
For(B,2,A/2
If partDec(A/2)=0: GotoA
DispA
End
End


voila
si vous pourriez m'aider ce serait cool !!

3 réponses

Réponse 1 / 3
DJRenay
 
heu j'arrive pas tout traduire en language de calculette =(
serait il possible que tu m'aide encore un petit peu ??
0
Réponse 2 / 3
mamiemando Messages postés 33758 Date d'inscription   Statut Modérateur Dernière intervention   7 877
 
Tu as un algorithme ici :
https://fr.wikipedia.org/wiki/Nombre_premier#Algorithme__par_essais_de_divisions

Evite les label et goto c'est vraiment une mauvaise habitude de programmation. Pense à fermer les parenthèses que tu ouvres.

Bonne chance
-1
Réponse 3 / 3
mamiemando Messages postés 33758 Date d'inscription   Statut Modérateur Dernière intervention   7 877
 
Bah je ne me souviens plus trop la syntaxe, mais c'est un truc dans ce genre, non ? 
for(i,1,100)
  r <- sqrt(i)
  for(j,1,r)
    if(i - j*int(i/j) != 0) disp i," est premier",""
  end
end

Bonne chance
-1

Discussions similaires

Formate
2015 -
MPMP10 -

1 réponse
arriere plan
minangi -
Raymond PENTIER -

1 réponse
Quelqu'un regarde ma webcam ?
Anonyme123 -
jag72 -

2 réponses
combien y a t il d'épisode dans GTO
GX147 -
ours -

18 réponses
GTO saison 2 ?
SWIJI.SAFSAFA -
stoss -

20 réponses