Discussion :

[crissmindfreak]

Bonjour

Exercice :

Ecrire avec Pascal le programme qui initialise deux tableaux d'entiers. Réaliser le tri de chaque tableau puis réaliser la fusion de ces tableaux dans un troisieme tableau puis l'afficher.

Question :

j'ai essayé de faire cet excrcice mais j'ai rencontré quelques problèmes. J'ai fait le programme et mis un lien vers l'image qui illustre bien le problème et je cherche l'astuce pour cet exercice si possible.

Programme :

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
program fusion;
uses crt;
var
T1,T2:array [1..50] of integer;
T3:array[1..50] of integer;
N,N1,N2:integer;
procedure testtaille(N:integer);
label a;
begin
a:write('donnez la taille du tableau');
read(N);
if (N<1) or (N>50) then begin
                             write('erreur');
                             goto a;
                        end;
end;
procedure remplissage(var T:array [1..50] of integer; N:integer);
var
i:integer;
begin
     for i:=1 to N do begin
     write('donnez la',i,'valeur');
     read(T[i]);
     end;
end;
procedure affichage(T:array [1..50] of integer;N:integer);
var
i:integer;
begin
     for i:=1 to N do begin
     write('la',i,'valeur est',T[i]);
     end;
end;
procedure tri(var T:array [1..50] of integer;N:integer);
var
i,min,posmin,j:integer
begin
     for i:=1 to N-1 do begin
                             min:=T[i],posmin:=i;
                             for j:=i+1 to N do begin
                                                    if min>T[j] then begin
                                                    min:=T[j];
                                                    posmin:=j;
                                                                      end;
                                                end;
                                                    if posmin<>i then begin
                                                                           T[posmin]:=T[i];
                                                                           T[i]:=min;
                                                                      end;
                         end;
end;
procedure fus(T,V:array [1..50] of integer;N,M:integer;TF:array [1..100] of integer);
var
i,j,k:integer;
begin
i:=1;j:=1;k:=1;
while (i<=N) and (j<=M) do begin
                                if T[i]<V[j] then begin
                                                       TF[k]:=T[i];
                                                       i:=i+1;
                                                       k:=k+1;
                                                       end
                                                  else
                                                  begin
                                                       TF[k]:=V[j];
                                                       j:=j+1;
                                                       k:=k+1;
                                                  end;
                                 while i<=N do begin
                                                    TF[k]:=T[i];
                                                    k:=k+1;
                                                    i:=i+1;
                                                end;
                                 while j<=M do begin
                                                    TF[k]:=V[j];
                                                    k:=k+1;
                                                    j:=j+1;
                                                end;
end.

Image du problème :
ici

[droggo]

Hoa,

Du code mis en forme est nettement plus lisible, exemple

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
102
program fusion;
 
uses crt;
 
var
  T1, T2: array [1..50] of Integer;
  T3: array[1..50] of Integer;
  N, N1, N2: Integer;
 
procedure testtaille(N: Integer);
label 
  a;
begin
  a:
  Write('donnez la taille du tableau');
  Read(N);
  if (N < 1) or (N > 50) then 
  begin
    Write('erreur');
    goto a;
  end;
end;
 
procedure remplissage(var T: array [1..50] of Integer; N: Integer);
var
  i: Integer;
begin
  for i := 1 to N do 
  begin
    Write('donnez la', i, 'valeur');
    Read(T[i]);
  end;
end;
 
procedure affichage(T: array [1..50] of Integer; N: Integer);
var
  i: Integer;
begin
  for i := 1 to N do 
  begin
    Write('la', i, 'valeur est', T[i]);
  end;
end;
 
procedure tri(var T: array [1..50] of Integer; N: Integer);
var
  i, Min, posmin, j: Integer
begin
  for i := 1 to N - 1 do 
  begin
    Min := T[i], posmin := i;
    for j := i + 1 to N do 
    begin
      if Min > T[j] then 
      begin
        Min := T[j];
        posmin := j;
      end;
    end;
    if posmin <> i then 
    begin
      T[posmin] := T[i];
      T[i] := Min;
    end;
  end;
end;
 
procedure fus(T, V: array [1..50] of Integer; N, M: Integer;
  TF: array [1..100] of Integer);
var
  i, j, k: Integer;
begin
  i := 1;
  j := 1;
  k := 1;
  while (i <= N) and (j <= M) do 
  begin
    if T[i] < V[j] then 
    begin
      TF[k] := T[i];
      i := i + 1;
      k := k + 1;
    end
    else
    begin
      TF[k] := V[j];
      j := j + 1;
      k := k + 1;
    end;
    while i <= N do 
    begin
      TF[k] := T[i];
      k := k + 1;
      i := i + 1;
    end;
    while j <= M do 
    begin
      TF[k] := V[j];
      k := k + 1;
      j := j + 1;
    end;
  end.

Au passage, on voit que tous les begin ne sont pas fermés par un end

Je n'ai pas lu, car dès que je vois un truc comme ça

Code :

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

    goto a;

je sors mon révolver.
Et là, pas d'excuse : tu as fait des boucles ailleurs ...

[Alcatîz]

Bonjour,

Aie, le goto pique en effet les yeux...
Pour résoudre ton problème, tu dois déclarer un type

Code :

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

1
2
3
4
5
type
  TTableau = array [1..50] of Integer;
 
var
  T1, T2: TTableau;

et utiliser ce type dans la déclaration des paramètres des procédures et fonctions :

Code :

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

procedure remplissage(var T: TTableau; N: Integer);

[slim_java]

Salut,
c'est le principe du 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
 
PROCEDURE tri_fusion(var M:tab;d,f:integer);
   VAR mil:integer;
 
   PROCEDURE fusionner(var M:tab;d,mil,f:integer);
    VAR P:tab;
        i,j,k,l:integer;
    BEGIN
     i:=d;
     j:=mil+1;
     k:=d;
     while (i<=mil) and (j<=f) do
      begin
       if M[i]<M[j] then begin
                          P[k]:=M[i];
                          i:=i+1;
                         end
                    else begin
                          P[k]:=M[j];
                          j:=j+1;
                         end;
       k:=k+1;
      end;
 
     if (i>mil) then for l:=j to f do
                      begin
                       P[k]:=M[l];
                       k:=k+1;
                      end
                else for l:=i to mil do
                      begin
                       P[k]:=M[l];
                       k:=k+1;
                      end;
     for l:=d to f do
      M[l]:=P[l];
    END;
 
 
 
 
   BEGIN
    if (d<f) then begin
                   mil:=(d+f) div 2;
                   tri_fusion(M,d,mil);
                   tri_fusion(M,mil+1,f);
                   fusionner(M,d,mil,f);
                  end;
 
   END;