aide sur appel de fonction en pascal

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : aide sur appel de fonction en pascal

bossgama

Salut, je cherche à coder une fonction quicksort. Mon problème, c'est que j'ai une erreur à la compilation et je n'arrive pas à savoir pourquoi, quand j'appelle en récursif ma fonction: quicksort(liste_voiture,j + 1, sup);
il ne reconnait pas le j+1. Pourtant sur les quelques codes que j'ai pu récupérer ca marche bien comme ca. Alors pourquoi pas pour moi?

Voici mon code pour info:
liste_voiture est un tableau de 20 élement, et tab voiture une structure de donné.

Code :

procedure quicksort(var liste_voiture : Tab_voiture; var inf : integer; var sup : integer);
var
i,j : integer;
annee : string;
begin
if inf < sup then
begin
i := inf + 1;
j := sup;
while ( i < j) do
begin
writeln('i:',i,' j:',j);
while ((i = j) or (liste_voiture[inf].annee_immatriculation > liste_voiture[i].annee_immatriculation)) do
begin
inc(i);
end;
while ((j = i - 1) or (liste_voiture[inf].annee_immatriculation <= liste_voiture[j].annee_immatriculation)) do
begin
dec(j);
end;
if i < j then
begin
//permutation des valeurs du vecteur
annee := liste_voiture[i].annee_immatriculation;
liste_voiture[i].annee_immatriculation := liste_voiture[j].annee_immatriculation;
liste_voiture[j].annee_immatriculation := annee;
//j := j - 1;
end;
end;
//appels récursif de la fonction
//Traitement des valeurs plus petites que le pivot
if (liste_voiture[j].annee_immatriculation < liste_voiture[inf].annee_immatriculation) then
begin
//dec(j);
quicksort(liste_voiture,inf, j - 1);
//Traitement des valeurs plus grandes que le pivot
//inc(j);
quicksort(liste_voiture,j + 1, sup);
end;
end;
end;

Message édité par bossgama le 08-12-2005 à 21:26:26

Publicité

bossgama

Y'a vraiment personne pour me dire pourquoi mon appel de fonction pourrait clocher, pourquoi il accepte de temps en temps une opération dans l'appel et parfois non?

antp

Super Administrateur
Champion des excuses bidons

Le param est en "var", donc ça veut dire que la fonction peut modifier la variable pour que l'appelant reçoive la nouvelle valeur.
Si tu passes "j+1" et que la fonction le modifie, ça va être un peu compliqué à gérer Donc tu dois soit virer le var soit mettre ton j+1 dans une variable temporaire que tu passes à la fonction, selon que la fonction doit pouvoir modifier la valeur de j ou non (à toi de voir ; j'ai pas lu tout le code)

Mais vu que t'as mis tous les paramètres en "var" je suppose que c'est une erreur : var dans ce cas-ci ne veut pas dire que tu déclares un param, mais plutôt que la valeur du param doit être renvoyée à l'appelant.
Pour les params,
- soit tu ne mets rien : fonction(param: integer)
dans ce cas il copie la valeur sur la pile pour apeler la fonction, et les modifs que la fonction fait à param sont perdues quand on sort de la fonction
- soit tu mets var : fonction(var param: integer)
dans ce cas il passe le pointeur et si la fonction modifie param la nouvelle valeur sera également appliquée à l'appelant (vu que fonction modifie la variable de l'appelant plutôt d'avoir son propre param)
- soit tu mets out : fonction(out param: integer)
idem que var sauf que la valeur d'origine n'est pas prise en compte, à utiliser si fonction modifie param à tous les coups sans se soucier de la valeur antérieure
- soit tu mets const : fonction(const param: integer)
dans ce cas on passe aussi par pointeur, mais la fonction ne peut pas modifier le param
Dans la majorité des cas il vaut mieux préciser var/out/const (passage par pointeur, plus efficace), sauf si la fonction doit pouvoir modifier le paramètre sans que cette modif n'ait d'influence à l'extérieur

Message édité par antp le 09-12-2005 à 11:21:43

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

bossgama

coooool, maintenant ca marche. C'est effectivement le var qui posait problème. Merci antp .

FORUM HardWare.fr

Programmation

Delphi/Pascal

aide sur appel de fonction en pascal

Sujets relatifs
Fonction mail() et smtp distant ?	Appel d'un script depuis un autre
Problème pour création de fonction	Aide a la compilation d'un programme C mal ecrit...
BESOIN D'AIDE AVEC SAXY+PHP5	Besoin d'aide sur setInterval et javascript orienté objet...
[pascal] Text	Aide sur Projet VBA Excel
[C++]appel de fonction pure
Plus de sujets relatifs à : aide sur appel de fonction en pascal

Page générée en 0.086 secondes