Discussion :

[mire]

Bonjour,
Dans une de mes procédures, j'utilise la fonction SWAP, mais le programme me donne toujours l'erreur suivante lorsque j'essaie de le compilier : "improper arguments list for OVERLOADed id".

Si je comprends bien, c'est que je ne passerais pas bien mes arguments?? Mais pourquoi il me donne toujours l'erreur au SWAP? Et je ne suis pas certaine de bien comprendre ce message...

Voici le code de ma procédure:

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
Procedure TriRapide(var a: tab; n: integer);
 
 Procedure Q(lb, ub : integer);
   Var i,j : integer;
       pivot : integer;
 
   Begin
   If ub > lb then
      begin
      j := lb - 1;
      pivot := a[ub];
      For i := lb to ub do
          if a[i] <= pivot then
             begin
             j := j + 1;
             if i <> j then
                swap(i,j);
             end;
      Q(lb, j - 1);
      Q(j + 1, ub);
      end;
   end;
 
Begin
Q(1,n)
end;

Et l'endroit où je l'appelle dans mon bloc principal:

Code :

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

 TriRapide(liste,nb);

Est-ce que quelqu'un saurait de quoi il s'agit??

Merci

**********
Edité par pascail : rajout de "résolu"
"Vraiment, on est obligé de faire tout sois même ..."

[mire]

Allo à tous...

J'ai trouvé mon erreur... alors vous pouvez laisser faire cette question.

J'avais juste oublié d'écrire ma procédure SWAP...

Bye

[M.Dlb]

Apparemment la procédure swap servirait à intervertir les valeurs des variables passées en paramètre. Cette procédure n'est pas implémentée directement dans turbo pascal, donc soit tu as créé une procédure swap qui échange deux valeurs, soit tu utilises un compilateur différent de turbo pascal. Dans ce dernier cas, tu peux essayer d'utiliser une procédure d'échange de valeurs que tu crées. Bon comme je suis très sympathique et de bonne humeur, je te la prête mais il faudra que tu me la rendes :)

Code :

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

1
2
3
4
5
6
7
8
 
procedure echange(var a,b:integer);
var c:integer;
begin
c:=a;
a:=b;
b:=c;
end;

En revoyant ton code, j'ai remarqué d'autres erreurs. Notamment dans ta boucle for, où tu sembles modifier la valeur de i. Sache que tu ne peux pas modifier la valeur d'un indice dans une boucle itérative inconditionnelle (= boucle for). Donc si tu modifie i dans la boucle, ton compilateur risque de gueuler un peu !!! ( turbo pascal, si je me souviens bien, ignore les modifications de l'indice )
Voilà, en espérant t'avoir aidé ( et pas avoir répondu à côté de la plaque !! )
a+

[kael kael]

Histoire de titiller un peu wormful_sickfoot on va dire qu'on est pas obligés d'utiliser une variable temporaire

Code :

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

1
2
3
4
5
6
7
 
procedure (var a,b : integer);
begin
  a:=a+b;
  b:=a-b; {a+b-b=a}
  a:=a-b;  {a+b-a=b}
end;

Et comme moi aussi je suis super sympathique tu peux utiliser cette procédure

[M.Dlb]

OUI OUI !! ça marche aussi très bien, mais bon il faut avouer qu'elle est plus dure à comprendre que la mienne.... lol
Faîtes comme vous voulez ( mais la mienne est mieux !!! non je blague )
a+

[kael kael]

Non c'est la mienne qui est la plus mieux d'abord, na !

[Eric Sigoillot]

Eh eh !

En fait, ton erreur vient du fait que la procédure Swap existe déjà dans le language pascal, et la redéfinir n'est pas une bonne idée... (En voyant "overloaded", il faut se dire qu'une procédure a été surchargée à qq part : mauvais si c'est pas volontaire...)

Sinon, pour en revenir à la bataille de Swap !

Wormful utilise une variable temporaire, certes. Mais il n'effecteu que des opérations simple : le transfert de données, ce que le processeur effectue avec une facilité certaine. De ton côté Kael, tu n'utilises pas de variable en plus : c'est bien si la place est très limitée en mémoire. Mais je doûte que tu sois à 2 ou 4 octets près... Par contre, tu te sers aussi de trois affectations, mais en plus, tu ajoute 3 additions et 2 compléments à deux (pour les changement de signes).

Il me semble donc évident que la procédure de Wormful est plus performante, dès que l'on ne coure pas après 2 octets de mémoire...

CQFD

A+

[mire]

Ouep... j'pensais effectivement que la fonction swap était déjà implémenté dans Pascal... mais ce n'était pas le cas.

J'ai donc défini ma fonction swap... et pour trancher la question, j'ai utilisé la procédure avec variable temporaire!! Plus facile à comprendre ...

Merci bien

[M.Dlb]

J'ai gagné !!! Bon HDD34 a raison ( encore une fois !! ), et d'ailleurs si on traduit le code en assembleur, on remarque que ma procédure prend moins d'instructions et manipule moins les registres et les accès mémoire, elle est donc aussi plus rapide... Voilà pour la partie scientifique (ahum... )
a+

[kael kael]

Très bien je m'incline de toute façon je pensais bien que Wormfull me surpasse

Mire tu peux mettre le tag [résolu] en éditant ton message puisque le prob est résolu (d'où le nom du tag)

[Pascail]

Vous faites la gerre des octet maintenant, a coup d'additions, de swap en acier, de lignes asm, et d'octets à épines; sur le forum pascal, et je n'étais même pas invité à la busherie !!! Mais alors, vous avez oubliés le modérateur !!!

Bon, sinon, je ne trouve pas ça trés sérieux, et plus niveau maternelle, que Ce1, les derniers messages que j'ai lu ! Merci de ne pas faire de guerre ( en plus sans que j'y participe ) sur le forum pascal

[M.Dlb]

Ne t'inquiète pas super-modo, ce n'est qu'une guerre pacifique sans dommage collatéral !! Et en plus, j'avais l'aval de HDD34 donc je ne pouvais que gagner lol ! Je blague évidemment ...
a+

[Eric Sigoillot]

lol

j'pensais effectivement que la fonction swap était déjà implémenté dans Pascal... mais ce n'était pas le cas

Erreur ! La fonction Swap existe bel et bien dans le lanngage Pascal, mais elle ne fait pas ce que l'on pourrait croire, d'où la confusion.

Swap, en rélaité, interchange les octets de poids faible et de poids fort. S'agirait de ne pas se tromper.

A+