Discussion :

[mimi2311]

bonjour, je suis débutante en pascal et j'ai un problem avec ce 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
 
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

[Tuxico]

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 :

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

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 :

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

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;

, 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


@++

[droggo]

Dei,

2°

Code :

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

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.

[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.

[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?

[mimi2311]

c bon j'ai résolu mon problem merci pour votre aide.

[droggo]

Dea,

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).

[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.

[droggo]

Fei,

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 :

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

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 :

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

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 :

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

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.

[Tuxico]

ok, je vois mieux, merci de ton temps

[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ï