[réglé]probleme de fonction en pascal avec fpc et geany

[blu]

Salut,

J'utilise FPC avec comme editeur de texte Geany pour faire des exercices en pascal.

Lorsque je code une fonction simple de type :

Code: Tout sélectionner

program testfunction;

function plus3 (var x:integer):integer;
begin
  result := x+3;
end;

var a,b:integer;
begin
  writeln ('entrez un nombre');
  readln (a);
  b:= plus3 (a);
  writeln (a, '+ 3 =',b);
end. 

le compilateur me sort une erreur : Error: Identifier not found "result"

Alors que la meme fonction se compile bien avec textpad et borland sous windows.

Que puis je faire pour regler ce probleme ?
Merci d'avance.

[blu]

Est ce que cela pourrait venir du fait que mon os soit 64bits ?

[CaSa]

Sans connaitre ni avoir appris le Pascal, je dirais que l'erreur est logique.
Ta variable "result" n'est pas déclarée (en global, ou en local dans la fonction), et surtout elle n'est pas retournée par la fonction si je ne me trompe pas. Tu affecte une valeur mais elle n'est pas utilisée par la suite.
Je pense que le programme tel qu'il est écrit est faux. Après, il y a des compilateurs souples et d'autres moins compréhensifs, d'où la différence de traitement à la compilation

[H3bus]

Mais est ce que cette ligne :

Code: Tout sélectionner

result := x+3;

Ne constituerais pas à la fois en une déclaration et une initialisation de le variable result ?

Je ne connais pas le Pascal, je me fie au peu de C que je connais...

En C, cela aurait donné :

Code: Tout sélectionner

int result = x+3;

[blu]

La variable result n'est elle pas implicitement déclarée par le deuxiemme "integer" celui apres les parentheses ?

Code: Tout sélectionner

function plus3 (var x:integer):integer;

mon programme est supposé etre correct, c'est un prof qui nous a apris a coder les fonctions comme cela.

[CaSa]

Soit le prof a oublié qqchose, soit le Pascal c'est très crade comme langage.
J'ai jamais trop vu ça en programmation, et j'analyse bêtement le code :

Code: Tout sélectionner

function plus3 (var x:integer):integer;

Déclaration d'integer, soit, mais ici rien n'indique que cet integer est la variable "result".

Code: Tout sélectionner

result := x+3;

Pas de déclaration explicite de "result". C'est quoi ? un integer, autre chose ?
Et sur la fin de la fonction, rien n'indique que la variable result est à retourner en résultat. Donc rien n'indique son type et rien ne la rattache au fameux 1er "integer"...

D'intuition, je mettrais qqchose comme

Code: Tout sélectionner

var result:integer;

OU

Code: Tout sélectionner

return result;

(si ça se déclare comme cela en Pascal)
... dans la fonction. Je pense que ce serait plus propre et que ça aurait plus de chances de passer.
Je pense d'ailleur plus fortement à la 2eme solution.

[blu]

Et sur la fin de la fonction, rien n'indique que la variable result est à retourner en résultat. Donc rien n'indique son type et rien ne la rattache au fameux 1er "integer"...

Je pensais que result est implicitement le resultat de la fonction.

J'ai essayé de déclarer result en variable locale. Cela résous le probleme sous linux. Par contre sous windows, j'ai un message d'erreur qui dit :
Error : identifier redeclared : 'result'

[blu]

j'ai posté mon problème sur les forums de developpez.net, voici la solution :

Je pense qu'il faut activer la compatibilité Delphi avec la directive

Code: Tout sélectionner

{$MODE DELPHI}

J'ai pas tout compris, mais ca fonctionne :)