Calcul nombre premier

Version imprimable

bonjours voici ce que je veux faire :

Donnez le bloc PL/SQL qui génère la liste des nombres premiers inférieurs à 100

Voila ce que j'ai implémenté :
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 SET SERVEROUTPUT ON CREATE OR REPLACE FUNCTION estPremier (nb number) RETURN BOOLEAN IS BEGIN For cur in 2 .. nb-1 LOOP IF MOD(nb,cur)=0 THEN RETURN FALSE; END IF; END LOOP; RETURN TRUE; END; DECLARE isFirst BOOLEAN:=TRUE; BEGIN For cur in 1 .. 100 LOOP isFirst := estPremier(cur); IF isFirst=TRUE THEN dbms_output.put_line (cur||' est une nombre 1er'); END IF; END LOOP; END;
ca me retourne des nombres incorrectes :s et j'arrive pas a trouver l'erreur :s
quelqu'un aurait une idée ?

merci d'avance

15/09/2010, 09h47
xdescamp

A la première lecture, ça ne paraît pas mal comme code.
Tu pourrais donner un exemple de nombre incorrect retourné par ton script ?

A part le chiffre 1, c'est bon

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
DECLARE
 FUNCTION estPremier (nb number)
  RETURN BOOLEAN
  IS
  BEGIN
    FOR cur IN 2 .. nb-1
    LOOP
      IF MOD(nb,cur)=0 THEN  RETURN FALSE; END IF;
    END LOOP;
  RETURN TRUE;
  END;
BEGIN
FOR cur IN 1 .. 100
LOOP
	IF estPremier(cur)
  THEN
    dbms_output.put (' '|| cur);
  END IF;
END LOOP;
	DBMS_OUTPUT.put_line(' '); 
END;
 
 1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

Ce que donne Wiki
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

28/05/2011, 14h04
l4r3nZu

Merci beaucoup :)
30/05/2011, 21h15
McM

:ccool: Mieux vaut tard que jamais :mouarf:

Salut !

Une version "SQL" juste pour rigoler :

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
36
37
38
39
40
41
42
43
 
SQL> with t as (
  2  select level n
  3  from dual
  4  connect by level <= 100)
  5  select *
  6  from t t1
  7  where n > 1
  8    AND not exists (select null
  9                    from t t2
 10                    where t2.n < t1.n
 11                      and t2.n > 1
 12                      and mod(t1.n, t2.n) = 0);
 
         N
----------
         2
         3
         5
         7
        11
        13
        17
        19
        23
        29
        31
        37
        41
        43
        47
        53
        59
        61
        67
        71
        73
        79
        83
        89
        97
 
25 ligne(s) sÚlectionnÚe(s).

et une version MODEL pour pacmann

Code:

1
2
3
4
5
6
7
8
9
10
SELECT x  FROM (
  SELECT * FROM DUAL
  MODEL
  DIMENSION BY (2 x, 2 y)
  MEASURES (2 p)
  (p [FOR x FROM 2 TO 100 INCREMENT 1, FOR y FROM 2 TO 10 INCREMENT 1] =
                      MOD (CV (x), CV (y))))
HAVING LNNVL (MIN (CASE WHEN y < x THEN p END) = 0)
GROUP BY x
ORDER BY x;

01/06/2011, 13h51
pacmann

Excellent !
(Bien vu pour le coup de la racine entre autres :))