generer un nombre premierRésolu

Question

var

  i: Integer;

  Temp: Integer;

begin

  Randomize;

  Temp:= Random(10)+Random(10)*10+Random(10)*100+Random(10)*1000+Random(10)*10000;

  for i:= 2 to Round(Power(Temp,0.5)) do

  begin

    if Temp mod i<>0

    then ButtonGenererClick(Sender); // <============== ici

  end;

  EditClePublique.Text:=IntToStr(Temp);





salut, jessaie de generer un nombre premier, seulement ca plante
apparement une erreur de stackoverflow ou quelque chose comme ca...

peut etre que ca vient de l appel a elle meme (la procedure) si le nombre n est pas premier...

neodelphi · Accepted Answer

Faut que tu trouve un nombre premier au hasard c &#231;a ?

Sinon je croit voir d'ou viend ton probleme :
Je suppose que ce code est dans la procedure ButtonGenererClick et que si ton nombre n'est pas premier tu la relance ?
Si c'est le cas ya deux gros problemes :
- Deja tu teste si i divise ton nombre. Si NON ok on passe au suivant. Si OUI on relance une procedure ButtonGenererClick : mais la tu devrai deja faire un break pour pas tester les si les nombre apr&#232;s i divisent temp puiske t'en a trouv&#233; un.
- Ensuite ce qui fait plant&#233; c'est le fait que tu fait un appel a ButtonGenererClick. Dans cette m&#233;thode si tu trouve pas de nombre premier, tu r&#233;apelle ButtonGenereClick, alors que la procedure n'est meme pas achev&#233;, ce qui force le pc a m&#233;moriser le fait que y'a une procedure ButtonGenererClick qui est d&#233;marr&#233;e et qu'il faudra la finir... On appele &#231;a une fonction r&#233;cursive puisque qu'elle sappelle elle-meme... Le prob c'est que a force de pas trouver de nombre premier il continu d'appeler cette procedure sans la finir, donc le pc doit memoriser de plus en plus pour savoir ou il en est, et au bou d'un moment &#231;a sature...

Les info sur ou en est le programme dans les procedure on appelle &#231;a la pile (stack), et la tu en demande trop donc d&#233;passement (overflow).

Je sais pas si tu va comprendre ce que je te dit mais c dur a expliquer lol...

Ce qu'il faudrai plutot que tu fasse c'est un truc du genre :

TANT QUE on a pas trouv&#233; de nombre premier FAIRE
BEGIN
    Generer un nombre premier;
    tester les diviseur et si on en trouve pas on dit que on a trouv&#233; un nombre premier
END

neodelphi

ni69 · Answer

boucle qui peut se traduire par : 
repeat
[...]
until ...


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

sovitec · Answer

Plusieurs remarques :

1) Pourquoi ne pas &#233;crire Temp := random(100000) ?

2) Il existe une fonction sqrt plus rapide que power(x, 0.5)

3) Tu peux gagner un peu en utilisant Floor plut&#244;t que round

4) Ton test est tr&#232;s lent et devient r&#233;dhibitoire pour les grands
nombres. Tu pourrais au moins utiliser le crible d'Erasthot&#232;ne. Si tu
veux passer &#224; de tr&#232;s grands nombre il faudra envisager des m&#233;thodes
telles que Miller-Rabin.



Le reste des probl&#232;mes a &#233;t&#233; soulev&#233; par neodelphi, mais tu n'en donnes
pas assez pour que l'on comprenne exactement d'o&#249; vient ton plantage.

MoveX · Answer

merci pour toutes vos reponses, j ai bien compris ce que vous m avez dit. par contre, j en ai donne suffisament je pense pour que vous voyez d ou vient le bug puisque cest tout ce qu il y a dans mon code pour l instant.

et le bug vient bien du probleme de saturation de la pile...

merci encore pour les fonctions sqrt et floor.
tandis que le temp:= random(.... cest parce que j ai recuperer un truc que j avais deja fait mais dans un autre but.... j ai meme pas penser a corriger ca.

MoveX · Answer

apres reflexion si j ai pas change le random, cest parce que je veux que mon nombre ait un certain nombre de caracteres !! sinon je peux me retrouver avec un nombre a deux chiffres !

neodelphi · Answer

"Tu pourrais au moins utiliser le crible d'Erasthot&#232;ne" 
Mais je croit que ce qu'il veut c'est g&#233;n&#233;rer un nombre premier al&#233;atoire... dans ce cas faudrait faire le crible des nombre premiers jusqu'&#224; 10000 et les stocker mais yen a ptete un peu trop... ou alors se fixer un nombre au hasard n := Random(10000) puis d'appliquer un crible d'eratostene et de prendre le premier nombre premier sup&#233;rieur &#224; n.

neodelphi

cs_Delphiprog · Answer

Ne vous laissez pas abuser par le titre de ce topic : "generer un nombre premier".
Le probl&#232;me de MoveX provient en r&#233;alit&#233; d'une non ma&#238;trise de l'utilisation de la r&#233;cursivit&#233; comme l'a expliqu&#233; (et compris tout de suite ) NeoDelphi.
MoveX doit revoir son code d'apr&#232;s les recommandations de NeoDelphi et valider sa r&#233;ponse, rien de plus.
Les probl&#232;mes de d&#233;bordement de pile sont le risque premier de la r&#233;cursivit&#233; .

Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

MoveX · Answer

ok, j ai deja fait un premier test mais je ne suis pas parvenu a grand chose, je vais encore m acharner un peu.

merci a tous pour votre participation

MoveX · Answer

voila, j ai reussi !!

[code]
var
  i, Temp, Reste: Integer;
begin
  Randomize;
  repeat
  Temp:= Random(10)*100+Random(10)*10+Random(10);
  for i:=2 to Floor(Sqrt(Temp)) do
  begin
    Reste:= Temp mod i;
    if Reste=0 then Break;
    if i= Floor(Sqrt(Temp)) then EditClePublique.Text:= IntToStr(Temp);
  end;
  until EditClePublique.Text<>'';
[\code]

j ai donc evite la recursivite... (cest plus facile)

merci a tous pour vos conseils

MoveX · Answer

j'ai oublie, le coup du random, il faudrait plutot faire :

Temp := (Random(9)+1)*100 + Random(100);

afin davoir toujours un nombre a trois chiffres parce que la ca le fait pas toujours....

Generer un nombre premier

10 réponses

Votre réponse

Discussions similaires