[LG]Calcul des 15 premiers nombres premiers

Version imprimable

Bonjour,

Je suis en train de faire un petit exo du livre de delannoy qui consite à calculer les 15 premiers nombres premiers.
Remarque: n est premiers si il n'est divisible par aucun nombre premiers(1 exclu) infférieur ou égal à la racine carré ce n.
J'ai ecrit un petit progrramme :) qui marche pas :cry:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 program main; const k=15; type Tableau_premier= array[1..k] of integer; var Tab_prems :TAbleau_premier; var j,i,memo,nb_premier:integer; begin writeln('Ce programme calcule les 15 premiers nombres premiers. '); memo:=2; nb_premier:=7; tab_prems[1]:=3; for i:=2 to k do begin repeat if nb_premier mod TAb_prems[memo]<>0 then memo:=memo+1 else exit; until memo>=trunc(sqrt(nb_premier)+1); if memo>=trunc(sqrt(nb_premier)+1) then tab_prems[i]:=nb_premier; nb_premier:=nb_premier+1; end; for j:=1 to k do writeln(tab_prems[j]); end.
Ca compile mais ca ne s'execute pas ca marque
Runtime error 200 at 0x08052EA5
0x08052EA5
0x080480B0
Voila si vous savez ce qui cloche dans ce programme. Repondez moi S'il vous pllait
Amicalement
Yffick

15/09/2004, 16h35
Giovanny Temgoua

Re: Calcul des 15 premiers nombres premiers

Citation:

Envoyé par Yffick

Ca compile mais ca ne s'execute pas ca marque
Runtime error 200 at 0x08052EA5
0x08052EA5
0x080480B0

La version de TP que tu as est-elle patchée ?

Une page qui peut t'interessé :
:arrow: http://turbo-pascal.developpez.com/

Citation:

Envoyé par Haypo

Avec les processeurs rapides (200 Mhz et plus), l'unité "Crt.tpu" (contenu dans le fichier TP\BIN\turbo.tpl) produit une division par zéro : le programme se bloque sur le texte "Runtime error 200 at xxxx:xxxx".

A+
15/09/2004, 18h32
yffick

Salut,
En fait j'utilise pas TP7 mais Freepascal sous linux. Et pour mes programmes précedent j'ai jamais eu cette erreur.
Comprend pas :roll:
Sinon du point de vue de l'algorithme y a t il des erreurs :?:
merci d'avance
à+
15/09/2004, 20h51
M.Dlb
Le problème vient de l'instruction mod, que tu utilises dans le if :
Code:

1 2 if nb_premier mod TAb_prems[memo]<>0 then ...
Tu initialise ta variable memo à 2, donc lors de l'entrée de la boucle, memo vaut deux. Or il semblerait que ton tableau tab ne soit pas initialisé, donc tab[2] vaut 0 (en théorie, tab[2] est "indéfinie", mais il prends souvent la valeur 0 dans ce cas...). Il y a donc une division par 0 lors du mod (mod effectue une division, car c'est le résultat de mod est le reste dans la division euclidienne). L'erreur viendrait à priori de là !

Tu peux soit initialiser ton tableau, soit supprimer la ligne (car je ne suis pas sûr de son utilité en fait), soit être inventif... :lol:

a+

Au bout de 3 heures j'ai regarder la solution mais ca ne marche pas non plus

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
program main;
const k=15;
 
type Tableau_premier= array[1..k] of integer;
var Tab_prems :TAbleau_premier;
var i,nb_trouve,nb:integer;
var premier:boolean;
 
begin
 
   nb_trouve:=1;
   Tab_prems[1]:=2;
   nb:=3;
   writeln('Ce programme calcule les 15 premiers nombres premiers');
   repeat
       premier:=true;
       i:=1;
       repeat
          if nb mod tab_prems[i] =0 then premier:=false;
	  i:=i+1;
       until (i>nb_trouve) or premier=false;
       if premier then 
          begin
          nb_trouve:=nb_trouve+1;
	  Tab_prems[nb_trouve]:=nb;
          end;
       nb:=nb+2;
    until nb_trouve=k;
writeln('les ', k ,' premiers nombres premiers sont : ');
for i:=1 to k  do
   begin
   write(tab_prems[i]:6);
   end;
end.

voila ca me met toujours Runtimme error 200
ESt ce que ca marche chez vous :?:
Merci d'avance
A+
Yffick

16/09/2004, 16h01
M.Dlb

Le problème est exactement le même. Au premier tour de ta boucle repeat, i vaut 1 et tab[i] vaut 2. Or au second tour de boucle, i vaut i+1 soit 2, mais tab[i] vaut 0. Donc il y a division par 0, donc exception... Initialises tout ton tableau avec des 2 avant de rentrer dans ta boucle !

a+
16/09/2004, 16h08
Giovanny Temgoua

Il y'a un exercice qui traite des nombres premiers dans la pages des Exercices Pascal. Tu peux le consulter à cette adresse :
:arrow: http://pascal.developpez.com/exercic...=Sect4#tabprem

A+
17/09/2004, 14h01
yffick
Bonjour,

Citation:

Au premier tour de ta boucle repeat, i vaut 1 et tab[i] vaut 2. Or au second tour de boucle, i vaut i+1 soit 2,

il ya pas de second tour dans la boucle car a la fin du premier tour de la boucle i est incremente et vaux 2 et cela valide la condition de sortie de la boucle
Code:

1 2 3 4 5 6 i:=1; repeat if nb mod tab_prems[i] =0 then premier:=false; i:=i+1; until (i>nb_trouve) or premier=false;
Car nb_trouve est initialisé a 1 au debut du programme.

De toute facon, merci quand meme Wormfull_sickfoot, j' ai initialisé mon tableau comme tu me l'as conseiller malgre ca ca ne fonctionne toujours pas.

Citation:

Il y'a un exercice qui traite des nombres premiers dans la pages des Exercices Pascal.

Merci du tuyau King Kaiser je vais jeter un oeil
Voila en tout cas toute nouvelle aide est la bienvenue il faut dire que j'apprend et que j'ai un peu de mal :oops:
A+
yffick

Voila j'ai reussi à trouver ma solution, (grace à l'exo) je vous la donne.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
program main;
const k=10;
type TAbleau=array[1..k] of integer;
var tab:tableau;
var nb,nb_trouve,i:integer;
var premier:boolean;
begin
    for i:=1 to k do TAb[i]:=2;
    nb:=3;
    nb_trouve:=1;
 
    repeat
       i:=2;
       premier:=true;   
       repeat
           if nb mod i =0 then premier:=false;
	   i:=i+1
       until (i>=nb) or not premier;
       if premier then 
         begin
           nb_trouve:=nb_trouve +1;
           TAb[nb_trouve]:=nb;
	 end;
       nb:=nb+2;
    until (nb-10)/2>=k;
 
    for i:=1 to  k do write(' ',tab[i],' ');
    writeln;
    readln;
 
end.

Voila une derniere fois :merci: à vous
a+
yffick

17/09/2004, 15h02
M.Dlb
Je viens de tester exactement ton programme et il se trouve qu'il ne sort pas du repeat, donc il fait deux tours ou plusieurs tours de boucle... Le problème vient donc de la condition d'arrêt de l'instruction repeat until. En effet, les parenthèses sont mal formées. Remplaces
Code:

1 2 until (i>nb_trouve) or premier=false;
par
Code:

1 2 until ((i>nb_trouve) or (premier=false));
De manière générale, il faut faire très attention avec les parenthèses, car elles peuvent être interprétées différemment par les compilateurs... Le principe est de parenthéser chaque terme, et ensuite regrouper le tout dans une grande parenthèse. L'écriture est lourde mais au moins ca fonctionne.

Tu peux rajouter un readln à la fin de ton programme pour voir le résultat de l'exécution avant que le programme ne se termine.

Au fait il marche ton programme, j'ai testé ;)

a+
17/09/2004, 15h04
M.Dlb

Ah :roll:

:lol:
18/09/2004, 13h48
yffick

:bravo: et :merci: Worms.
Je me disais bien que la faute ne venait pas de la correction de l'exo mais de moi dans la correction il met not premier et moi j'ai un peu modifié ca par mégarde.
Ca m'apprendra à faire dans l'exotisme.
Encore merci pour tout je sens que je progresse et ca fait plaisir :D
A+
18/09/2004, 14h57
M.Dlb

Avec plaisir, reviens nous voir si tu as d'autres problèmes ;)