Discussion :

[l4r3nZu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ?

[McM]

A part le chiffre 1, c'est bon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[l4r3nZu]

Merci beaucoup

[McM]

Mieux vaut tard que jamais

[pacmann]

Salut !

Une version "SQL" juste pour rigoler :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[laurentschneider]

et une version MODEL pour pacmann

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[pacmann]

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