Discussion :

[Invité]

bonjour Svp ou il ya lerreur dans cette code
cette code pour affiche les nombres pairs et impais qui sont < a un nombre donnée n
j'essaye avec for et travaille mais seulement avec loop ne travaille pas aidez moi svp
le code

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
 
declare
n number := &n;
i number := 1;
begin
dbms_output.put_line('les paires :');
loop
     if mod(i,2)=0 then
          dbms_output.put_line(i);
     else 
          i :=i+1;
     end if;
     exit when i > n; 
end loop;
i :=1;
dbms_output.put_line('les impaires :');
loop
      if mod(i,2)!=0 then
           dbms_output.put_line(i);
      else 
           i :=i+1;
      end if;
      exit when i > n; 
end loop;
end;

[al1_24]

La première chose à faire avec cette portion de code, c'est d'y appliquer une indentation pour mettre en évidence les boucles et les branches de tests...
Et alors, l'erreur de logique devrait devenir évidente

[argoet]

ca passe en boucle infini votre truc

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
 
declare
n number := &n;
i number := 1;
begin
dbms_output.put_line('les paires :');
loop
     if mod(i,2)=0 then dbms_output.put_line(i); end if;
     i := i+1;
     exit when i > n; 
end loop;
i :=1;
dbms_output.put_line('les impaires :');
loop
      if mod(i,2)!=0 then dbms_output.put_line(i); end if;
      i :=i+1; 
      exit when i > n; 
end loop;
end;

[al1_24]

mais est ce que le code est correct

D'un point de vue syntaxique, le code est correct.
C'est d'un point de vue logique qu'il y a un problème... que Argoet a bien identifié.
Pour trouver ce genre d'erreur, il suffit souvent de se munir d'un papier et d'un crayon et d'exécuter à la main les instructions les unes après les autres.

[mnitu]

Ou laissez le moteur SQL faire le travail

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
44
45
46
47
48
 
Connected to Oracle Database 11g Enterprise Edition Release 11.2.0.3.0 
 
SQL> set serveroutput on
SQL> 
SQL> Declare
  2    n           Pls_Integer := 10;
  3    NbrPaire    sys.odcinumberlist;
  4    NbrImpaire  sys.odcinumberlist;
  5    --
  6    Procedure Print(
  7      Titre                 In Varchar2,
  8      NumCollection         In sys.odcinumberlist
  9    ) Is
 10    Begin
 11      Dbms_Output.put_line(Titre);
 12      For i in 1..NumCollection.Count() Loop
 13        Dbms_Output.put_line(NumCollection(i));
 14      End Loop;
 15    End;
 16    --
 17  Begin
 18    Select Cast(Collect(Case When Mod(level,2) = 0 Then level End) As sys.odcinumberlist) Paires,
 19           Cast(Collect(Case When Mod(level,2) != 0 Then level End) As sys.odcinumberlist) Impaires
 20      Into NbrPaire,
 21           NbrImpaire
 22      From dual
 23    Connect by Level <= n;
 24    --
 25    Print('Les paires:', NbrPaire);
 26    Print('Les impaires:', NbrImpaire);
 27  End;
 28  /
Les paires:
2
4
6
8
10
Les impaires:
1
3
5
7
9
PL/SQL procedure successfully completed
 
SQL>