Paramètres de fonction

Bonjour , j'ai un petit soucis , j'ai écrit un programme qui quand je tape une valeur au clavier me retourne son image par une fonction , , par exemple si je tape 1 , mon programme me retourner 2*1 - 3 , soit -1 , mais il compile pas , regardez :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

program mafonction;   function toto(const x: INTEGER; const y: INTEGER):INTEGER; begin y = 2*x - 3; writeln(y); end;   begin   readln(x); toto(y);   end.

---

le message d'erreur est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

$ fpc fonction.pas Free Pascal Compiler version 2.0.4 [2006/08/20] for i386 Copyright (c) 1993-2006 by Florian Klaempfl Target OS: Linux for i386 Compiling fonction.pas fonction.pas(5,12) Error: Illegal expression fonction.pas(11,8) Error: Identifier not found "x" fonction.pas(11,10) Error: Illegal expression fonction.pas(12,10) Error: Identifier not found "y" fonction.pas(15) Fatal: There were 4 errors compiling module, stopping fonction.pas(15) Fatal: Compilation aborted

---

etrange tout ceci non ?

merci

Non pas étrange, car il n'est pas correct de passer des paramètres avec const devant. La seule modification possible est var pour les paramètres d'une fonction. Voici la différence entre les deux : sans modificateut, par exemple procedure x(y: integer);, le paramètre y est passé par valeur, ca veut dire que la valeur du paramètre est copié dans la pile, ce qui a pour conséquence que la valeur y n'est pas modifiée. Avec var, procedure X(var y: integer);, alors la valeur de y est passé par adresse, donc y peut être modifié.

En résumé, sans var, le paramètre y est une constante, et avec var, il est une varaible qu'on peut modifier (grosso modo).

Dans ton cas, ton code sera :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure toto(x: INTEGER; var y: INTEGER); begin y = 2 * x - 3; end;   var y: Integer; begin toto(25, y); writeln('Resultat : ', y); readln; end.

---

Et pense à indenter ton code aussi ;)

là worm je crois que ya un petit soucis car ton programme ne fait pas ce que je veux , je m'explique :

1.déjà toi tu prends une précodure , moi je veux une fonction , pour m'entrainer aux fonctions , alors quand je déclare ma fonction c'est çà ( avec ta correction ):

Code:

---

1 2 3 4 5

procedure toto(x: INTEGER; var y: INTEGER); begin y = 2 * x - 3; writeln(y); end

---

j'ai bien changé le var comme tu m'as dit mais j'ai rajouté writeln(y) car je veux que cette fonction m'affiche le résultat .

Ensuite pour le corps du programme , je veux juste qu'une variable soit lue au clavier , donc c'est :

begin
readln(x); , çà c'est indiscutable je pense .

et ensuite j'exécute ma fonction qui calcule y en fonction de x , donc j'écris simplement

toto(y);

toi ce que tu as fait c'est très différent , d'ailleurs je ne comprends pas la logique de ton code .

Euh... je crois que tu ferais bien d'essayer de comprendre ce qu'ont bien voulu t'expliquer les autres avant de critiquer leur code...

Ici wormful_sickfoot te montrait l'intérêt de déclarer un attribut avec ou sans "var". Le fait qu'il ne lise pas la variable 'x' avec un readln ne change pas grand chose au problème !

Et de là à dire que c'est complètement différent de ce que tu voulais faire y'a un monde !

Qui plus est, les procedures et les fonctions sont presque équivalente. Le seul intérêt d'une fonction est que tu dois retourner une valeur (déclarée par :type). Et l'intérêt de retourner une valeur est de la réutiliser par la suite. Or dans ton code de départ, non seulement tu ne retournes pas de valeur, mais en plus tu ne t'en sers pas (normal remarque) dans ton code principal. Donc en gros tu faisais une procédure.

Exemple de fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10

function f(x : integer) : integer; begin f := x+1; end;   var n : integer begin readln(n); writeln(f(n)); end.

---

Exemple de procedure :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure f1(var x : integer); begin x := x+1; end;   procedure f2(x : integer); begin writeln(x+1); end;   var n : integer begin readln(n);   f1(n); writeln(n);   f2(n); end.

---

1ere erreur: tu veux lire x alors que tu n'as pas déclaré de variable x dans ton programme principal.

2e erreur: tu passes y en paramètre de ta fonction alors que tu n'as pas non plus déclaré et initialisé de variable y.

3e erreur: tu passes 1 paramètre à une fonction qui en attend 2.

4e erreur: tu tentes de modifier y dans la fonction alors que tu l'a déclaré constante en paramètre.

5e erreur: tu passes x en paramètre alors que tu ne l'utilises pas dans la fonction

6e "erreur": tu ecris une fonction parce que tu veux t'entrainer, ok. Mais une fonction a pour but de renvoyer un resultat, pas d'afficher quelque chose.
Donc si tu veux absolument utiliser une fonction, fait la calculer le resultat, et affiche le resultat dans ton programme principal.

ca fait beaucoup non?
Comme quelqu'un te l'avait deja dit, il serait temps de lire un cours, ou de bien relire le tien avant de tenter des programmes plus difficile.

A part ca, ta function devrait plutot ressembler a ça:

Code:

---

1 2 3 4

function toto (const x: integer): integer; begin result := 2*x-3; end;

---

et dans le prog principal:

Code:

---

1 2 3

readln(x); writeln(toto(x));

---

Citation:

---

Envoyé par Mushroom7

A part ca, ta function devrait plutot ressembler a ça:


Code :
function toto (const x: integer): integer;
begin
result := 2*x-3;
end;

---

Non8O c'est justement ce qu'on refuse
petite correction

Code:

---

1 2 3 4 5

function toto(x:integer):integer; begin toto:=2*x-3; end;

---

apres dans ton programe principal,
apres avoir declarer par exemple une variable comme

Code:

---

1 2 3 4 5 6 7

var x,y:integer;   .... ...... readln(x); y:=toto(x);

---

je crois qu'on t'a deja fait les remarques qu'il faut donc a toi d'en tenir compte

Citation:

---

Euh... je crois que tu ferais bien d'essayer de comprendre ce qu'ont bien voulu t'expliquer les autres avant de critiquer leur code...

---

Je critiquais pas .

Citation:

---

Comme quelqu'un te l'avait deja dit, il serait temps de lire un cours, ou de bien relire le tien avant de tenter des programmes plus difficile.

---

Pas évident d'avoir un bon cours en pascal...

DOnc voici le code complet du programme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

function toto (const x: INTEGER):INTEGER; begin result := 2*x - 3; end;   var result : INTEGER; x : INTEGER;   begin   readln(x); writeln(toto(x));   end.

---

mais il ne compile pas , j'ai :

Citation:

---

Compiling fonction.pas
fonction.pas(5,1) Error: Identifier not found "result"
fonction.pas(18) Fatal: There were 1 errors compiling module, stopping
fonction.pas(18) Fatal: Compilation aborted

---

jai tout rechangé krachik comme t'avais dit et celà marche :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

program mafonction;   function toto (const x: INTEGER):INTEGER; begin toto := 2*x - 3; end;   var   x,y: INTEGER;   begin   readln(x); y := toto(x); writeln(y);   end.

---

Je ne vois pas ce qui vous pose probleme dans le fait de mettre const en parametre, je le met toujours quand je veux etre sur de ne pas modifier la valeur d'un parametre par erreur. Maintenant peut-etre que ca n'existe qu'en Delphi?

Pour ton erreur de compilation deja il ne faut pas declarer de variable result, c'est une variable fournie automatiquement ( mais peut-etre seulement en delphi, je n'ai jamais programmer en pascal dans un autre environnement).
Si result n'existe pas dans ton environnement utilise le nom de la fonction a la place.

EDIT: voici ce que dit l'aide delphi a propos des parametres constants (désolé si ca n'est valable que pour delphi):

Citation:

---

A constant (const) parameter is like a local constant or read-only variable. Constant parameters are similar to value parameters, except that you can’t assign a value to a constant parameter within the body of a procedure or function, nor can you pass one as a var parameter to another routine. (But when you pass an object reference as a constant parameter, you can still modify the object’s properties.)
Using const allows the compiler to optimize code for structured- and string-type parameters. It also provides a safeguard against unintentionally passing a parameter by reference to another routine.

---

FInalement je crois que j'ai compris et pour prouver que je bosse je vais essayer de commenter à ma façon le code que vous m'avez grandement aidé à faire ( j'ai pas de gros livre en pascal pour m'aider moi ) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

program mafonction;   function toto (const x: INTEGER):INTEGER;//ici on déclare qu'un seul paramètre , et c'est un paramètre en entrée , car la fonction manipule qu'une seule variable . begin toto := 2*x - 3;//ici c'est le calcul de la fonction , on commence bien par le nom de la fonction. end;   var   x,y: INTEGER;//alors et ici c'est le plus intérressant krachik car cette variable y en fait , on est obligé de la déclarer car si j'ai bien compris la fonction ne fait que calculer , elle n'affiche rien , c'est çà?   begin   readln(x); y := toto(x); writeln(y);   end

---

Je me demande tjs pourquoi n'empêche à la fin on peut pas écrire :

readln(x);
toto(x);
writeln(toto(x));

Une fonction fait ce que tu lui demandes, dans ce cas-ci elle fait un calcul.
Elle renvoit aussi un resultat.
Tu peux utiliser ce resultat ensuite dans une expression (writeln(toto(x))) ou une assignation (y:= toto(x)).

writeln(toto(x)) appele la fonction toto, lui passe x en parametre, le resultat est calculé et retourné au writeln, qui remplace donc toto(x) par le resultat: writeln(toto(x)) devient donc writlen(25) (par exemple), ensuite le writeln s'execute et affiche donc le resultat.

y:= toto(x) appele toto, lui passe x en parametre, le resultat est calculé et retourné a l'appelant; y:= toto(x) devient donc y:= 25 (toujours par exemple).

Tu peux tres bien ecrire:
readln(x);
toto(x);
writeln(toto(x));

mais c'est inutile puisque le resultat sera recalculé lors de l'appel du writeln.

Citation:

---

Envoyé par Maxence45

Je me demande tjs pourquoi n'empêche à la fin on peut pas écrire :

readln(x);
toto(x);
writeln(toto(x));

---

une fonction est censé retourner un resultat mais tu n'es pas toujours obligé de declarer la variable y donc tu pourrais aussi faire

Code:

---

1 2 3 4

readln(x); toto(x);{inutile de le faire puisque tu le fais a la ligne suivante} writeln(toto(x));

---

c'est tout a faire corect si j'avais fait

Code:

---

y:=toto(x);

---

c'est pour te dire que y prend la valeur que retourne la fonction(et en meme c'est une bonne habitude a prendre)

Code:

---

1 2 3 4 5

function toto (const x: INTEGER):INTEGER;//ici on déclare qu'un seul paramètre , et c'est un paramètre en entrée , car la fonction manipule qu'une seule variable . begin toto := 2*x - 3;//ici c'est le calcul de la fonction , on commence bien par le nom de la fonction. end;

---

n'oublie pas ton commentaire est un peu incomplet

Code:

---

//on retourne a la fonction le calcul qui à été fait

---

d'ailleur l'explication de Mushroom est plus claire

merci à tous pour ces explications , qui sont bcp plus claires que les tutos que je trouve sur le net :) .

Citation:

---

Envoyé par Mushroom7

EDIT: voici ce que dit l'aide delphi a propos des parametres constants (désolé si ca n'est valable que pour delphi):

Citation:

---

A constant (const) parameter is like a local constant or read-only variable. Constant parameters are similar to value parameters, except that you can’t assign a value to a constant parameter within the body of a procedure or function, nor can you pass one as a var parameter to another routine. (But when you pass an object reference as a constant parameter, you can still modify the object’s properties.)
Using const allows the compiler to optimize code for structured- and string-type parameters. It also provides a safeguard against unintentionally passing a parameter by reference to another routine.

---

---

Je ne connais ça que dans Delphi oui, de même que la variable result propre à chaque fonction ;) Il faut utiliser le nom de la fonction comme nom de retour. Ahhh ces delphistes !! :mouarf: :mouarf:

En fait, Free Pascal, Virtual Pascal et autres compilateurs récents supportent, comme Delphi, très bien le passage de paramètre comme constante. Turbo pascal, lui, ne supporte que les paramètres par valeur et par adresse.

Ce sujet est abordé dans la nouvelle FAQ : http://pascal.developpez.com/faq/?pa...re-ou-fonction

OK! Merci je ne savais pas, quoiqu'il en soit avec const sont programme compilait aussi donc ça ne posait pas de problème. C'est vrai que souvent quand je post sur le forum pascal j'oublie que delphi est légerement différent dans certains cas.

Quelle science, ça m'impressionnera toujours !