Quelle est la fonction qui calcule la puissance d'un nombre ?

Version imprimable

06/12/2008, 15h12
messahel

Quelle est la fonction qui calcule la puissance d'un nombre ?

slt,
quelle est la fonction qui calcule la puissance d'un Nbr
06/12/2008, 15h28
darrylsite

Citation:

Envoyé par messahel

slt,
quelle est la fonction qui calcule la puissance d'un Nbr

ça n'existe pas en pascal standard.
06/12/2008, 15h37
messahel

et en delphi, quelle est la fonction
06/12/2008, 19h24
CapJack

Power pour les puissances réelles positives, et IntPower pour les puissances entières relatives.

Citation:

Envoyé par messahel

slt,
quelle est la fonction qui calcule la puissance d'un Nbr

On peut faire une fonction ou une procédure comme suit:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
PROGRAM PUIS;{Eleve un nombre Y … la puissance X}
Uses Crt;
Var
X:Integer;
Y,Y1:Real;
 
Procedure puisX(X:Integer;Y:Real);
Var Bcl:Integer;
Begin
Y1:= Y;
for Bcl := 1 to X-1 do
Y:= Y*Y1;
WriteLn(Y:15:2);    {Affichage de Y format‚ a 2 decimales apres virgule}
End;
 
BEGIN
ClrScr;
puisX(4,12.5);{ 12.5 a la puissance 4}
Readln;{ attend Entree pour quitter le programme}
END.

A++ Mic**

08/12/2008, 08h52
JJJJJ

Bonjour,

je ne vois pas trop l'intérêt de créer une nouvelle fonction alors qu'il suffit d'écrire :
exp(X*ln(Y))
qui donne Y puissance X.
Ce n'est pas plus long que d'écrire Puissance(X,Y) ce qui suppose que la fonction "Puissance" ait été déclarée.
08/12/2008, 11h52
droggo

Gie,

Citation:

Envoyé par JJJJJ

Bonjour,

je ne vois pas trop l'intérêt de créer une nouvelle fonction alors qu'il suffit d'écrire :
exp(X*ln(Y))
qui donne Y puissance X.
Ce n'est pas plus long que d'écrire Puissance(X,Y) ce qui suppose que la fonction "Puissance" ait été déclarée.

Certes, mais il y a un os.

En codant une fonction puissance, on peut la sécuriser, alors qu'avec ta formule, que va-t-il se passer si Y <= 0 ?

Boum !!!

Un programme bien conçu doit toujours prendre en compte les exceptions prévisibles, et essayer d'éviter les autres. :)
08/12/2008, 18h06
CapJack
Citation:

Envoyé par JJJJJ

Bonjour,

je ne vois pas trop l'intérêt de créer une nouvelle fonction alors qu'il suffit d'écrire :
exp(X*ln(Y))
qui donne Y puissance X.
Ce n'est pas plus long que d'écrire Puissance(X,Y) ce qui suppose que la fonction "Puissance" ait été déclarée.

Tu soulèves là un vrai problème mathématique, qui explique pourquoi Delphi définit deux fonctions. La définition que tu donnes est la définition utilisée en analyse, qui n'est valable que pour des puissances réelles d'un nombre strictement positif (ensemble de définition du logarithme).
Il existe une autre définition, algébrique, qui marche pour n'importe quel nombre x positif ou négatif, éventuellement non nul :
- x^n=x*x*...*x (n facteurs) pour n entier strictement positif, x quelconque [ex : 2^3=8],
- x^0=1 pour x quelconque non nul [ex : 3 2541 784 632^0 = 1],
- x^n=1/(x^(-n)) pour x quelconque non nul et n entier strictement négatif (donc -n positif :)) [ex : 2^(-4)=1/16=0,0625],
Citation:

Envoyé par Mic**

On peut faire une fonction ou une procédure comme suit:

Ta fonction ne marche que pour le premier cas : quid de la puissance nulle et des puissances négatives ? Elle renverra toujours x, ce qui n'est pas seulement limité, mais faux !

Citation:

Envoyé par droggo

Certes, mais il y a un os.
En codant une fonction puissance, on peut la sécuriser, alors qu'avec ta formule, que va-t-il se passer si Y <= 0 ?

Sous FreePascal, cela déclenchera une exception qu'on pourra gérer en aval ! ;)
08/12/2008, 18h27
droggo

Gei,

Citation:

Envoyé par CapJack

Sous FreePascal, cela déclenchera une exception qu'on pourra gérer en aval !

Oui, mais je ne pense pas que JJJJJ avait ça en tête, et encore faut-il que le programmeur soit conscient de devoir intercepter cette exception.
09/12/2008, 20h08
nzokou eric

pow(x,n) cela veu dire x ala puissance n. :aie: donc si tas un nombre et tu veu calculer sa puissance ta qapliqer cela.
32 est par exemple pow(2,5).

je crois qavec ceci il te suffit juste de declare les variables et tout le reste et tu auras ce que tu cherche.:lol:
09/12/2008, 23h10
Mic**
Citation:
Envoyé par CapJack

Tu soulèves là un vrai problème mathématique, qui explique pourquoi Delphi définit deux fonctions. La définition que tu donnes est la définition utilisée en analyse, qui n'est valable que pour des puissances réelles d'un nombre strictement positif (ensemble de définition du logarithme).
Il existe une autre définition, algébrique, qui marche pour n'importe quel nombre x positif ou négatif, éventuellement non nul :

x^n=x*x*...*x (n facteurs) pour n entier strictement positif, x quelconque [ex : 2^3=8],
x^0=1 pour x quelconque non nul [ex : 3 2541 784 632^0 = 1],
x^n=1/(x^(-n)) pour x quelconque non nul et n entier strictement négatif (donc -n positif :)) [ex : 2^(-4)=1/16=0,0625],

Ta fonction ne marche que pour le premier cas : quid de la puissance nulle et des puissances négatives ? Elle renverra toujours x, ce qui n'est pas seulement limité, mais faux !

Sous FreePascal, cela déclenchera une exception qu'on pourra gérer en aval ! ;)
:lol:Je ne connaissais pas le calcul pour les -n , dans le cas de la procedure en Turbo Pascal citée, on peut faire un test de Y s' il est < 0 on applique ta dernière formule.
25/04/2013, 15h17
cantador

puissance

function Power(const Base, Exponent: Extended): Extended;
10/05/2013, 15h45
e-ric

Citation:

Envoyé par JJJJJ

Bonjour,

je ne vois pas trop l'intérêt de créer une nouvelle fonction alors qu'il suffit d'écrire :
exp(X*ln(Y))
qui donne Y puissance X.
Ce n'est pas plus long que d'écrire Puissance(X,Y) ce qui suppose que la fonction "Puissance" ait été déclarée.

Autant écraser une mouche avec un rouleau compresseur, une fonction qui calcule directement la puissance avec une boucle est une solution tout à fait honnête, en turbo Pascal j'entend, car en Delphi et FreePascal tout est prêt.

Cdlt