Opérateur comme paramètre de procédure

Version imprimable

17/05/2006, 14h38
Xuyvox

Opérateur comme paramètre de procédure
Bonjour à tous,
je souhaiterai, je sais pas si je vais m'exprimer correctement, considérer un opérateur comme un paramètre de procédure.
Voilà, j'ai écris une procédure qui effectue un travail sur des nombres.
exemple tout simple :
Code:

1 2 3 4 5 procedure addition (nombre1 : integer; nombre2 : integer; var resultat : integer); begin resultat := nombre1 + nombre2; end;
Si j'ai besoin de faire la même procédure mais au lieu de faire une addition, je veux faire une multiplication. Y'a-t-il possibilité d'ajouter un paramètre de procédure qui spécifie l'opérateur désiré?
Le problème d'un opérateur est qu'il n'a pas de type (comme une variable).

exemple souhaité:
Code:

1 2 3 4 5 procedure deux (nombre1 : integer; nombre2 : integer; operateur : ? ; var resultat : integer); begin resultat := nombre1 operateur nombre2; end;
Merci par avance du temps que vous pourrez accorder à mon problème.
Xuyvox.

deux possibilité :
- soit tu définis chaque opérateur comme une constante, que tu peux ensuite passer à ta fonction, puis faire un Case... of. par ex :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 const OpAdd = 01; OpSoust = 02; OpMul = 03; OpDiv = 04; procedure Operation(nb1, nb2, operation : Integer ; var Resultat : Integer); begin Case Operation of OpAdd : Resultat := nb1 + nb2; OpSoust : Resultat := nb1 - nb2; OpMul : Resultat := nb1 * nb2; OpDiv : Resultat := nb1 / nb2; end; end;
- ou alors tu peux passer l'opération sous forme de pointeur de fonction (et là je t'indique juste une marche à suivre, je ne me souviens plus de la syntaxe exacte). ex :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 type TFuncOp : function(nb1, nb2 : Integer) : Integer; function Addition(nb1, nb2 : Integer) : Integer; begin Addition := nb1 + nb2; end; procedure Operation(nb1, nb2 : Integer ; var Resultat : Integer ; FuncOp : TFuncOp); begin Resultat := FuncOp(nb1, nb2); end;

17/05/2006, 17h16
Eric Sigoillot

Denokan a fourni les seules solutions viables.

Le Pascal n'est pas un langage fonctionnel. Les opérateurs ne sont pas considérés comme des fonctions, et encore moins comme des éléments de première classe.

Certains langages permettent ça : Lisp, Smalltalk, ...

@++
18/05/2006, 10h24
Xuyvox

Je vous remercie de votre réponse aussi rapide.

tiens voilà un exemple de comment implémenter la seconde solution :

Code:

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
 
Program Operations;
 
{$F+} {directive nécessaire pour utiliser une fonction comme paramètre}
 
uses
  Crt;
 
function IntToStr(Int : Integer) : String;
var Result : String;
    i : Integer;
    Negat : Boolean;
begin
  Str(Int, Result);
  IntToStr:=Result;
exit;
  Result:='';
  Negat:=Int<0;
  Int:=Abs(Int);
  while Int<>0 do begin
  end;
  If Negat Then Result:='-' + Result;
  IntToStr:=Result;
end;
 
type
  TFuncOp = function(nb1, nb2 : Integer) : Integer;
 
function Addition(nb1, nb2 : Integer) : Integer;
begin
  Addition := nb1 + nb2;
end;
 
function Operation(nb1, nb2 : Integer ;
                     FuncOp : TFuncOp) : Integer; far;
begin
  Operation := FuncOp(nb1, nb2);
end;
 
var
  a : Integer;
 
BEGIN
  ClrScr;
  a := Operation(5, 74, Addition);
  WriteLn(IntToStr(a));
END.

18/05/2006, 13h16
Eric Sigoillot

La fonction IntToStr est totalement inutile ici ;)
WriteLn sait très bien afficher un entier :)

@++
18/05/2006, 13h55
denokan

effectivement je me permet de poster dans le forum pascal alors que je ne plus que du delphi depuis plusieurs mois et que j'ai perdu quelques automatismes :P