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