Bonjour, suite à mon message précédent, j'obtiens ceci:
Le problème est que je n'arrive pas à faire un appel correct de ma fonction booléenne inclu_ens... Quelqu'un peut-il me dire quel est le problème ??
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 Procedure Inclu1 ( E1, E2 : in Ensemble;E3: out ensemble) is --{ e.i. : les ensembles E1 et E2 existent } -- { e.f. : E3 correspond à l'inclusion des ensembles E1 et E2 } -- remarque : pour la réalisation de cette action, on n'appliquera pas -- la technique de sentinelle dans les recherches --LEXIQUE function inclu_ens (E3: in ensemble; E2: in ensemble)return boolean is --{détermine si un ensemble est inclu dans un autre} BEGIN If E3.L=E2.L then return true; else return false; END IF; end inclu_ens; J: Integer range 1..Lmax; K: Integer range 1..Lmax; begin -- parcours de E1 K:=1; for I in 1..E1.L loop -- schéma recherche de E2 j:=1; while J <= E2.L and then E1.T(I)/= E2.T(J) loop J:=J+1; end loop; -- j<=Lde E2 +1 et E1.T(I)= E2.T(J) if E1.T(I) = E2.T(J) then E3.T(K):= E1.T(I); -- on recopie les valeurs T[I] de E1 sur un nouveau ruban K:=K+1; else NULL; end if; inclu_ens (E3,E2); end loop; E3.L:= K-1; end Inclu1;
Merci par avance pour toutes les réponses que vous pourrez me donner et désolé d'être aussi encombrant...
Partager