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;
Partager