Discussion :

[mah00]

voila mon code,il est juste?

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
procedure intersection(a1,b1:tab;n1:integer;var inter1:tab;var s1:integer);
var i,j:integer;
begin
s1:=0; 
 for i:=1 to n1 do
  begin
  for j:=1 to n1 do
   begin
   if a1[i]=b1[j] then
    begin
    inter1[i]:=a1[i] ;
    s1:=s1+1; {pour determiner la taille du nouveau tableau inter}
    end;
   end;
  end;
end;

[droggo]

Fie,

Non, et en testant, tu as bien dû t'en apercevoir.

1) Les 2 tableaux a1 et b1 ont-ils forcément la même taille n1 ?

2) quand tu as trouvé une valeur présente dans les 2 tableaux, et donc correspondant bien à l'intersection des 2 tableaux, tu fais

Code :

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

1
2
    inter1[i]:=a1[i] ;
    s1:=s1+1; {pour determiner la taille du nouveau tableau inter}

ce qui contient 2 erreurs :

a) i est l'indice de déplacement dans le tableau a1, et n'a pas à servir pour mettre une valeur dans le tableau inter

b) comme tu as initialisé s1 à 0, et que manifestement tes tableaux commencent à l'indice 1, il fait incrémenter s1 avant de s'en servir pour mettre une valeur dans inter.

il faut donc remplacer tes 2 lignes par

Code :

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

1
2
    s1:=s1+1; {pour determiner la taille du nouveau tableau inter}
    inter1[s1]:=a1[i] ;

D'autre part, je l'ai dit assez souvent, quand on passe des données de taille importante à une fonction/procédure, il faut éviter de faire une copie locale, comme cela se fait avec la déclaration

Code :

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

procedure intersection(a1,b1:tab;n1:integer;var inter1:tab;var s1:integer);

Il faut faire

Code :

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

procedure intersection(const a1,b1:tab;n1:integer;var inter1:tab;var s1:integer);

[mah00]

1) c'est l'énoncé du probleme qui demande a ce que les deux tableaux soient de meme taille.
2) comme je l'ai précisé dans un sujet précédent,l'expression const n'est pas dans les outils qui sont a ma disposition pour résoudre les problemes de cette année,donc je suis obligé de faire cette copie locale,a moins qu'il y est une autre solution.
Sinon voila ce que j'ai modifié,aprés tes dernieres explications

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
procedure det(a1,b1:tab;n1:integer;var inter1:tab;var s1:integer);
var i,j:integer;
begin
s1:=0; 
 for i:=1 to n1 do
  begin
  for j:=1 to n1 do
   begin
   if a1[i]=b1[j] then
    begin
    s1:=s1+1;
    inter1[s1]:=a1[i] ;
    end;
   end;
  end;
end;

[droggo]

Joa,

1) c'est l'énoncé du probleme qui demande a ce que les deux tableaux soient de meme taille.

Ok

2) comme je l'ai précisé dans un sujet précédent,l'expression const n'est pas dans les outils qui sont a ma disposition pour résoudre les problemes de cette année,donc je suis obligé de faire cette copie locale,a moins qu'il y est une autre solution.

ok, et désolé, je ne relis pas tous les sujets tous les jours.
Comme je l'avais déjà probablement précisé, si tu ne dois pas utiliser const, utilise var pour éviter une copie locale.
Passer par var autorise la modification de l'original, mais cela n'oblige pas à le faire

Code :

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

procedure det(var a1,b1:tab;n1:integer;var inter1:tab;var s1:integer);

A part cela, le code est bon à une condition : que les 2 tableaux ne contiennent pas de valeurs en double (ou plus), sinon tu vas les ajouter plusieurs fois dans le tableau inter1.
Mais je suppose que ton autre post sur la manière de n'entrer que des valeurs différentes dans un tableau est plus ou moins lié à ça ?

[mah00]

exactement
Sauf que je ne voulais pas que ca fasse deux problemes a traiter dans le meme post!!
Merci pour ton aide!