nombre premier Fermé

Question

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 !!

mamiemando · Answer

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

DJRenay · Answer

heu j'arrive pas tout traduire en language de calculette =(
serait il possible que tu m'aide encore un petit peu ??

mamiemando · Answer

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

Nombre premier

3 réponses

Discussions similaires