nombre premier

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

Newsletters