Discussion :

[oussamadag]

salut,
Pouvez vous s'il vous plaît me corriger ce programme qui fait le tri par fusion?

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
program maximumum;
uses wincrt;
const
    bi=1;
    bs=20;
type
     tab=array[1..10]of integer;
var
   n:integer;
   t:tab;
   t1,t2:tab;
   n1,n2:integer;
 
procedure saisi_n(var n:integer);
begin
     repeat
	writeln('donner des nombres');
	readln(n);
     until n>=0
end;
 
procedure remp_tab (var t:tab ; l: byte ) ;
       const
	    msg=' entrez l element du tbleau n°';
	var  i: byte ;
       begin
	    for i := 1  to n do
	       begin
		     write (msg,i,' : ') ;
		     readln (t[i]) ;
		end;
       end;
 
 
procedure eclater(t:tab;n:integer;t1,t2:tab;n1,n2:integer);
    var
       j,i:integer;
    begin
    j:=1;
    for i:=1 to n do
      begin
	  if i<=1 then
	   begin
	     t1[i]:=t[i];
	    end
	     else t2[i]:=t[i];
	       j:=j+1;
	   end;
       end;
 
 
procedure fusion(t1:tab;n1:integer;t2:tab;n2:integer;var t:tab);
var
  c,i,c1,c2:integer;
begin
repeat
  begin
   c:=c+1;
    if (t1[c1]<t2[c2])then
      begin
      t[c]:=t1[c1];
      c1:=c1+1;
      end
     else
       begin
       t[c]:=t2[c2];
       c2:=c2+1;
       end
     end;
     until (c1>n1)or(c2>n2);
   if(c1>n1)then
       begin
	   for i:=c2 to n2 do
	       begin
		    c:=c+1;
		    t[c]:=t2[i];
	       end;
       end
    else
 
       for i:=c1 to n1 do
	  begin
	       c:=c+1;
	       t[c]:=t1[i];
	  end;
end;
procedure aff_tab ( t: tab ; n :byte ) ;
	var  i:integer ;
	   begin
		for i :=1 to n do
		    begin
			 write (t[i]:6) ;
		    end;
		writeln;
	   end;
begin
saisi_n(n);
remp_tab(t,n);
fusion(t1,n1,t2,n2,t);
aff_tab(t,n);
end.

[oussamadag]

salut,
comment je fais un tri par fusion pour un tableau ???(procédure ou fonction)??

c'est la procedure de tri fusion en recursif

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
Procedure Tri_Fusion (Var t : TAB; g, d : integer);
Var
   m, i, j, k : integer;
   s : TAB;
Begin
     If d > g Then
     Begin         
          m := (g + d) Div 2;
          Tri_Fusion (t, g, m);
          Tri_Fusion (t, m + 1, d);
 
	    For i := m DownTo g Do
              s[i] := t[i];
 
	    For j := m + 1 To d Do
              s[d + m + 1 - j] := t[j];
 
	    i := g; j := d;
          For k := g To d Do
          Begin
               If s[i] < s[j] Then
               Begin
                    t[k] := s[i];
                    i := i + 1;
               End
               Else
                   Begin
                         t[k] := s[j];
                         j := j - 1;
                   End;
          End;
     End;
End;

[oussamadag]

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
 
procedure fusion(t1,t2:tab;n1,n2:integer;var t:tab;n:integer);
var
  i:integer
 
begin
     repeat
	c:=c1+1;
	if t1[c1]<t2[c2]then
	   begin
	      t[c]:=t1[c1];
	      c1:=c1+1;
	   end
	  else
	  begin
	  t[c]:=t2[c2];
	  c2:=c2+1;
	  end;
     until(c1>n1)or(c2>n2)
     if c1>n1 then
       begin
	 for i:=c2 to n2 do
	   begin
	     c:=c+1;
	     t[c]:=t2[i];
	   end;
       end
      else
	begin
	   for i:=c1 to n1 do
	     begin
	      c:=c+1;
	      t[c]:=t1[i];
	     end;
	 end;
end;

[slim_java]

salut.
ton programme principal doit être de cette forme :

remplir(T1,n1)
remplir (t2,n2)
fusionner(t1,n1,t2,n2,t)
afficher(t,n1+n2)


donc tu dois remplir deux tableau T1 et T2 ,trier ces deux tableau après fusionner ces deux tableau pour obtenir le tableau T de taille n1+n2

[oussamadag]

salut tout monde,
merci pour cette correction de mon programme.