Calculer une puissance

Question

bonjour &#224; tous,

j'ai un petit probl&#232;me :
dans mon programme, je dois calculer des puissances, et pour cela j'utilise la fonction Power de Math.

Le probl&#232;me est que power n'accepte que des constantes en arguments et moi je veux lui donner des variables !
je ne vois plus l'interet de la fonction si on est oblig&#233; de donner des constantes alors je crois qu'il y a un 'truc'.

dans ce cas, comment calculer une puissance avec des variables en arguments ?

merci &#224; tous
plhea

Cirec · Answer

Salut,
il faut faire comme ceci:

procedure TForm1.Button2Click(Sender: TObject);
Var  Base, Exposant, Rslt :Extended;
begin
Base := 10;
Exposant := 2;
 Rslt := Power(Base, Exposant);
 Label1.Caption := FloatToStr(Rslt);
end;

@+
Cirec

jlen100 · Answer

salut,

dans la fonction:

function Power(const Base, Exponent: Extended): Extended;

 cela veut simplement dire que base n'est pas modifi&#233; par la fonction.

ainsi si tu fais

var base:real;

resultat:real;

exposant:integer;

begin



base:=2.5;exposant:=2;

    resultat:=power(base,exposant);

end;

resultat:=6,25



tu peux donc tr&#232;s bien passer une variable comme pram&#232;tre

@+

jlen

jlen100 · Answer

excuse moi cirec je n'avais pas rafraichi avant de poster

@+

jlen

Cirec · Answer

Salut jlen, 
il n'y a pas de soucis, ce genre de double poste arrive souvent.
Avis aux Admins il devrait y avoir un petit message par Ex. o&#249; autre qui indique qu'un poste &#224; &#233;t&#233; rajout&#233; parce qu'il est vrai que quand tu &#233;cris ton poste tu ne sais pas ce qui ce passe &#224; ce moment et le fait de rafra&#238;chir, il me semble, te supprime ce que tu viens d'&#233;crire non?


@+
Cirec

jlen100 · Answer

&#231;&#224; ne supprime pas ce que tu viens d'&#233;crire mais le refresh est un peu
long &#224; venir ce qui donne l'impression que tu as perdu ton message (
attendre entre 5 et 15 secondes!! )

@+

jlen

Cirec · Answer

euh apparemment c'est ton navigateur qui te permet cela, je vient de tester et j'ai attendu attendu et attendu (une minute) et ... ben rien poste perdu &#224; moins de faire pr&#233;c&#233;dent mais l&#224; aussi une fois sur cinq je ne r&#233;cup&#232;re pas ce que j'avais &#233;cris avant



@+
Cirec

jlen100 · Answer

-->plhea l'int&#233;r&#234;t de passer les arguments en constante c'est qu'ils
ne sont pas modifi&#233;s et que l'on peut ainsi les r&#233;utiliser dans
d'autres fonctions pour des calculs automatis&#233;s. ce qui ne serait pas
le cas s'ils avaient &#233;t&#233; modifi&#233; (imagine un tableur qui modifierait
les entr&#233;es en m&#234;me temps que le r&#233;sultat!!).

jlen100 · Answer

j'utilise firefox mais l&#224; je fais le test sous IE

cs_Delphiprog · Answer

Pour info, le mot cl&#233; Const d&#233;signe un param&#232;tre pass&#233; par adresse et qui ne pourra pas &#234;tre modifi&#233; dans le corps de la fonction.
On peut donc passer une variable ou une constante, du moment que la structure pass&#233;e poss&#232;de une adresse en m&#233;moire.
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

jlen100 · Answer

--> Delphiprog je pensais que les paramatres const etaient
pass&#233;s par valeur et que la diff&#233;rence avec ceux-ci &#233;tait qu'il n'est
pas possible de les modifier dans le corps de la routine; d'ailleurs
l'int&#233;r&#234;t de passer un parametre par adresse( mot cl&#233; var
)&#233;tant de pouvoir utiliser ce pram&#232;tre directement (comme une variable
globale) sans avoir &#224; en faire une copie dans l'espace de travail ce
qui en plus donne un code plus performant.

@+

jlen

cs_Delphiprog · Answer

Jlen100 et plhea >> voici quelques lignes de code pour illustrer les diff&#233;rents mani&#232;re de passer des arguments et l'incidence sur les valeurs de retour.

procedure ByVal(a: integer);
begin
  a :=  a + 1;
  ShowMessageFmt('ByVal : %d', [a]);
 end ;

procedure ByRefConst(const a:integer);
begin
{ L'affectation suivante est impossible !
  a : = a + 1;
  }
  ShowMessageFmt('ByVal : %d', [a]);
end;

procedure ByRefVar(var a:integer);
begin
  a :=  a + 1;
  ShowMessageFmt('ByRef : %d', [a]);
 end ;

procedure TForm1.Button1Click(Sender: TObject);
var
  arg : integer;
begin
  arg : = 10;
  ShowMessageFmt('Valeur d''origine : %d', [arg]);
  ByVal(arg);
  ShowMessageFmt('Apr&#232;s ByVal : %d', [arg]);
  ByRefConst(arg);
  ShowMessageFmt('Apr&#232;s ByRefConst : %d', [arg]);
  ByRefVar(arg);
  ShowMessageFmt('Apr&#232;s ByRefVar : %d', [arg]);
end;


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Cirec · Answer

Alors la on n'est retourn&#233; aux bases, mais bon &#231;a fait pas de mal pour tous ceux qui auraient oublier  et puis &#231;a a l'avantage d'&#234;tre claire au moins.

Est ce que ce ne serait pas plus juste o&#249; claire comme &#231;a ?

procedure ByRefConst(const a:integer);
begin
{ L'affectation suivante est impossible !
  a :=  a + 1;
  }
  ShowMessageFmt('ByRefConst : %d', [a]); // &#224; la place de ByVal
 end ;

procedure ByRefVar(var a:integer);
begin
  a : = a + 1;
  ShowMessageFmt('ByRefVar : %d', [a]);  // &#224; la place   ByRef
end;


mais bon la je chipote un peut 


@+
Cirec

jlen100 · Answer

delphiprog &#231;a je savais c'est le mode de passage du param&#232;tre que
j'ignorais. mais en fait delphi contrairement &#224; turbo pascal passe
toujours les parametres par adresse mais les traite ensuite diff&#233;rement:

quand c'est une variable(var) il utilise directement cette adresse et peut modifier la variable &#224; cette adresse.

quand il est pass&#233; par valeur il en fait une copie et l'utilise comme
une variable locale (pas de modification de la variable initiale

quand il est pass&#233; en constante (const) il utilise la valeur situ&#233;e &#224; l'adresse et interdit sa modification et c'est ici la principale diff&#233;rence

jlen100 · Answer

cirec effectivement &#231;a fait retourner aux bases: il a fallu que je
ressorte la bible du Turbo Pascal pour retrouver le mode exact de
passage des param&#232;tres!! et &#231;a date un peu

@+

jlen

Cirec · Answer

Tient bonne id&#233;e j'ai &#233;galement une bible du turbo pascal qui doit &#234;tre plaine de poussi&#232;re je vais remettre le nez dans &#231;a ne peut pas faire de mal



@+
Cirec

cs_Delphiprog · Answer

Merci Cirec, je n'avais pas fait gaffe. La m&#233;thode du copier/coller a encore fait une victime 

Je ne vous ai pas parl&#233; du mot cl&#233; out :
"Un param&#232;tre de sortie (out) est transmis par adresse comme un param&#232;tre variable. Mais avec un param&#232;tre out, la valeur initiale de la variable r&#233;f&#233;renc&#233;e n'est pas prise en compte par la routine &#224; laquelle elle est transmise. Le param&#232;tre out n'est utilis&#233; qu'en sortie ; il indique simplement &#224; la routine o&#249; placer la valeur en sortie sans sp&#233;cifier de valeur en entr&#233;e."

Une bible du Turbo Pascal ?  ouah !...&#231;a commence &#224; dater 
Vous n'avez pas install&#233; la "R&#233;f&#233;rence Pascal objet" avec Delphi ? (voir rubriques d'aide dans "d&#233;marrer > Borland Delphi x >Aide > R&#233;f&#233;rence Pascal Objet")

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Calculer une puissance

16 réponses

Votre réponse

Discussions similaires