Tri par comptage avec 3 tables

Version imprimable

bonjour, je suis débutante en pascal et j'ai un problem avec ce programme:

Code:

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
 
program ttpp22;
type tab=array[1..100]of integer; 
var nb:integer; 
x,y:tab; 
procedure lect1d(var t:tab; taille: integer); 
var i: integer; 
begin 
    writeln('donnez la taille du tableau'); 
    readln(taille); 
    for i:=1 to taille do 
        begin 
            writeln ('t[',i,']='); 
            readln(t[i]); 
        end; 
end; 
 
procedure ecr1d(t:tab;taille:integer); 
var i:integer; 
begin 
     for i:=1 to taille do 
      writeln(t[i]); 
end; 
procedure tricpt_3(t:tab;ta:integer;var res:tab); 
type tab=array[1..100] of integer; 
var j:integer; 
zc:tab; 
function elem_inf(n,ind:integer;t:tab;taille:integer):integer; 
  var i, cpt:integer; 
  begin 
      cpt:=0; 
      for i:=1 to taille do begin
         if (n>=t[i]) and (i<>ind)then 
         cpt:=cpt+1; 
      end;
   elem_inf:=cpt; 
  end; 
procedure ecr1d(t:tab;taille:integer); 
  var i:integer; 
  begin 
        for i:=1 to taille do 
        writeln(t[i]); 
  end; 
begin 
      for j:=1 to ta do 
         begin 
             zc[j]:=elem_inf(t[j],j,t,ta); 
             res[zc[j]+1]:=t[j]; 
          end; 
      ecr1d(res,ta); 
end; 
begin 
    lect1d(x,nb); 
    tricpt_3(x,nb,y); 
    ecr1d(y,nb); 
    readln; 
   readln; 
end.

il se compile mais il s'execute pas?! help please

C'est tout à fait normal, plusieurs remarques:

1° tu ne dois pas redéfinir un type pour une procédure. Elle utilise les types qui sont dans l'en-tête de ton programme.

2°
Code:

1 2 3 4 procedure tricpt_3(t:tab;ta:integer;var res:tab); ... function elem_inf(n,ind:integer;t:tab;taille:integer):integer;
Ceci est complètement faux, tu déclares une fonction dans une procédure. Ca n'a pas de sens.

3°
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 procedure ecr1d(t:tab;taille:integer); var i:integer; begin for i:=1 to taille do writeln(t[i]); end; begin for j:=1 to ta do begin zc[j]:=elem_inf(t[j],j,t,ta); res[zc[j]+1]:=t[j]; end; ecr1d(res,ta); end;
8O, tu ne mais aucune en-tete de procédure ou de fonction et tu démarres un bloc begin/end?

Un conseil, relis tes notions de procédures/fonctions ainsi que celles de types ;)

Un autre conseil, si tu nous donnes un programme sans nous dire ce qu'il est censé faire, on ne peut pas plus t'aider que ça...Ou alors utilise des noms de variables et de fonctions plus appropriés

@++

19/04/2008, 18h01
droggo
Dei,
Citation:
Envoyé par Tuxico

2°

Code:

1 2 3 4 procedure tricpt_3(t:tab;ta:integer;var res:tab); ... function elem_inf(n,ind:integer;t:tab;taille:integer):integer;

Ceci est complètement faux, tu déclares une fonction dans une procédure. Ca n'a pas de sens.
en Pascal, c'est parfaitement légal, et je dirais même conseillé si la procédure/fonction ainsi déclarée n'est appelée que par la procédure/fonction parente, car elle est ainsi cachée au reste du programme. :)
19/04/2008, 18h21
mimi2311

j'ai corrigé mes fautes le programme s'execute mnant mais moi je veux afficher trois tables bon voici le sujet:

1ere etape:
pour chaque élément on compte le nombre d'elements qui lui sont inférieurs et on range le résultat trouvé dans un tableau de comptage de taille identique a celle du tableau a trier.

2ème étape:
l'élément dont le compteur est egal a 0 est permuté avec le 1er élément du tableau, l'élément dont le compteur est egal a 1 est permuté avec le 2ème élément du tableau etc...
(faudra pas oublier de permuter aussi les éléments de la zone de comptageen mème temps que ceux du tableau à trier)

en résumé:
il faut afficher 3 tables :
le tableau a trier
la table de comptage
le résultat dans une 3ème table.

et moi c que le résultat qui s'affiche.
19/04/2008, 20h19
Tuxico

mea-culpa alors mais ca m'étonne fortement...je n'avais jamais vu ça et pourtant j'en ai mangé du pascal :)
Enfin bon, c'est sur que c'est un peu une méthode privée en java à la sauce pascal mais est-ce que tous les compilateurs acceptent ça?
19/04/2008, 21h09
mimi2311

c bon j'ai résolu mon problem merci pour votre aide.
19/04/2008, 21h18
droggo

Dea,

Citation:

Envoyé par Tuxico

mea-culpa alors mais ca m'étonne fortement...je n'avais jamais vu ça et pourtant j'en ai mangé du pascal :)
Enfin bon, c'est sur que c'est un peu une méthode privée en java à la sauce pascal mais est-ce que tous les compilateurs acceptent ça?

Oui, c'est du Pascal basique (ça en fait partie depuis la création du langage par Niklaus Wirth).
19/04/2008, 22h14
Tuxico

mmmh, je ne vois quand-même pas l'utilité d'une telle approche dans un langage non-objet, le fait que la procédure/fonction soit cachée du programme principal entre "" n'a pas vraiment de sens ici.
19/04/2008, 22h53
droggo
Fei,

Citation:

Envoyé par Tuxico

mmmh, je ne vois quand-même pas l'utilité d'une telle approche dans un langage non-objet, le fait que la procédure/fonction soit cachée du programme principal entre "" n'a pas vraiment de sens ici.

Par exemple, on a une fiche de données (record ou autre), et on veut soit l'afficher sur l'écran, soit l'imprimer.
On peut faire

Pour afficher :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure affiche(const fiche : ficheType); procedure entete(....) begin ... end; procedure donnees(...) begin ... end; begin .... end;
Pour imprimer:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure imprime(const fiche : ficheType); procedure entete(....) begin ... end; procedure donnees(...) begin ... end; begin .... end;
Seul le code des procédures internes est à changer, et le code les appelant n'a pas besoin de varier.

On peut même ajouter un niveau:
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure affimp(const fiche : ficheType; affi_ou_imprime : boolean) procedure afficher(...) .... procedure imprimer(...) ... begin ... end;
Bien entendu, avec les systèmes de fenêtres modernes, on ne ferait qu'une procédure qui s'adapterait au contexte, mais les procédures "internes" restent pratiques pour découper le code en éléments logiques.
19/04/2008, 23h17
Tuxico

ok, je vois mieux, merci de ton temps ;)
20/04/2008, 10h01
Jedai

En plus, cela peut faciliter la récursion, parce que les fonctions/procédures internes ont accès aux variables des fonctions qui les contiennent. Ca rend la récursion beaucoup plus propre qu'en C (ou soit beaucoup plus efficace, soit nettement plus réentrante). Franchement pour un langage de haut-niveau qui veut faciliter la récursion, c'est très important de permettre au moins cela (et si tu as de vrais closures c'est encore mieux, bien sûr).

--
Jedaï