Comment éléver un nombre à la puissance? [Résolu]
cs_edlain
Membre Dernière intervention
15 août 2008
- - Dernière réponse :
yvessimon
Membre Dernière intervention
9 janvier 2017
- 18 août 2008 à 08:43
- Messages postés
- 21
- Date d'inscription
- lundi 7 mai 2007
- Statut
- Messages postés
- 647
- Date d'inscription
- mardi 22 avril 2003
- Statut
A voir également:
- Delphi arctan
- Power delphi - Meilleures réponses
- Puissance nombre - Meilleures réponses
- Les puissances de 2 qui entourent un nombre - Codes sources - Delphi / Pascal (Maths)
- C / C++ / C++.NET : Décomposition d'un nombre en puissance de facteurs premiers - CodeS Sour - Guide
- PHP : Decomposition d'un nombre en puissances de facteurs premiers. - CodeS SourceS - Guide
- C# / .NET : Determiner si un nombre entier est une puissance de 2 - CodeS SourceS - Guide
- Récursivité : fonction de calcul de puissance et factorielle - Conseils pratiques - PHP
16 réponses
Meilleure réponse
- Messages postés
- 647
- Date d'inscription
- mardi 22 avril 2003
- Statut
w = x^y
q ln(w) y.ln(x)
w = exp(q)
ou alors power(x,y) // avec math en user
yvessimon
q ln(w) y.ln(x)
w = exp(q)
ou alors power(x,y) // avec math en user
yvessimon
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
111 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4307
- Date d'inscription
- samedi 16 octobre 2004
- Statut
le symbole "^" en Delphi correspond a un pointeur.
var
pX : ^integer;
begin
New(pX);
pX^ := 10;
Dispose(pX);
end;
pour une puissance on utilise la fonction "Power"
Elève Base àn'importe quelle puissance.
Unité
Math
Catégorie
routines arithmétiques
Syntaxe Delphi :
function Power(const Base,Exponent: Extended): Extended;
var
pX : ^integer;
begin
New(pX);
pX^ := 10;
Dispose(pX);
end;
pour une puissance on utilise la fonction "Power"
Elève Base àn'importe quelle puissance.
Unité
Math
Catégorie
routines arithmétiques
Syntaxe Delphi :
function Power(const Base,Exponent: Extended): Extended;
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
111 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2684
- Date d'inscription
- jeudi 15 janvier 2004
- Statut
- Messages postés
- 21
- Date d'inscription
- lundi 7 mai 2007
- Statut
Bonjour ,
excusez moi du derrangement que je vous cause depuis le debut de cette semaine; En fait j'ai le message d'erreur suivant lorsque je compile mon programme: "opération en virgule flottante incorrecte".
et voici un bout de mon programme:
var
r, some,some1,some2,lambda:extended;
begin
.......
............
r:=sqrt((power(some,some2)+(sqr(some1))+sqr(some2))));
..................
lambda:=arctan(some1/some2);
..............
end;
le problème se situe au niveau de l'expression du 'r'. (NB: some, some1, some2 renvoient plus haut dans mes calcules des nombres à virgules). Mais lambda et les autres n'ont aucun problème.
Merci de me guider.
excusez moi du derrangement que je vous cause depuis le debut de cette semaine; En fait j'ai le message d'erreur suivant lorsque je compile mon programme: "opération en virgule flottante incorrecte".
et voici un bout de mon programme:
var
r, some,some1,some2,lambda:extended;
begin
.......
............
r:=sqrt((power(some,some2)+(sqr(some1))+sqr(some2))));
..................
lambda:=arctan(some1/some2);
..............
end;
le problème se situe au niveau de l'expression du 'r'. (NB: some, some1, some2 renvoient plus haut dans mes calcules des nombres à virgules). Mais lambda et les autres n'ont aucun problème.
Merci de me guider.
- Messages postés
- 2684
- Date d'inscription
- jeudi 15 janvier 2004
- Statut
Salut,
Dans Sqrt(Expression), il est probable que Expression soit négatif dans ton code.
Pour sécuriser ton code, tu dois faire:
if Expression >= 0 then r := Sqrt( Expression )
else showmessage('Calcul de la racine carrée d''un nombre négatif impossible!');
De même :
if some2 <> 0 then lambda := arctan(some1/some2)
else showmessage('Division par zéro !');
Dans Sqrt(Expression), il est probable que Expression soit négatif dans ton code.
Pour sécuriser ton code, tu dois faire:
if Expression >= 0 then r := Sqrt( Expression )
else showmessage('Calcul de la racine carrée d''un nombre négatif impossible!');
De même :
if some2 <> 0 then lambda := arctan(some1/some2)
else showmessage('Division par zéro !');
- Messages postés
- 4307
- Date d'inscription
- samedi 16 octobre 2004
- Statut
tu peu utiliser ArcTan2 (unit math) ce sera plus rapide et pas de soucis de division par zero
ArcTan2(Y, X);
pour Sqrt tu peu ajouter ABS pour eviter le probleme du signe negatif.
Sqrt( Abs( Expression ) );
soit :
r := sqrt( abs( power(some,some2) + sqr(some1) + sqr(some2) ));
lambda := arctan2(some1, some2);
ArcTan2(Y, X);
pour Sqrt tu peu ajouter ABS pour eviter le probleme du signe negatif.
Sqrt( Abs( Expression ) );
soit :
r := sqrt( abs( power(some,some2) + sqr(some1) + sqr(some2) ));
lambda := arctan2(some1, some2);
- Messages postés
- 647
- Date d'inscription
- mardi 22 avril 2003
- Statut
Bonjour,
Effectivement un test est nécessaire pour les nombres négatif.
Ce test dépend de ton calcul.
Avec sqrt(ABS(x)) tu es sûr d'avoir un resultat. Par contre est-ce logique pour ton calcul ?
Un test est nécessaire pour chaque division par zéro .
pour x^y un test est necessaire pour x<0 et y décimal
Salutations
Effectivement un test est nécessaire pour les nombres négatif.
Ce test dépend de ton calcul.
Avec sqrt(ABS(x)) tu es sûr d'avoir un resultat. Par contre est-ce logique pour ton calcul ?
Un test est nécessaire pour chaque division par zéro .
pour x^y un test est necessaire pour x<0 et y décimal
Salutations
- Messages postés
- 21
- Date d'inscription
- lundi 7 mai 2007
- Statut
Bonjour à tous,
Tout d'abord, bonne fête d'assomption à tous. Je voudrais s'il vous plait savoir comment affiche t-on une partie réelle et une partie imaginaire d'un complexe en delphi?
Exemple: si j'ai le complexe z = 5 - 2i
dans un premier temps je voudrais afficher la partie réelle donc a= 5 et dans un second temps, la partie réelle b= -2
Merci à tous.
Tout d'abord, bonne fête d'assomption à tous. Je voudrais s'il vous plait savoir comment affiche t-on une partie réelle et une partie imaginaire d'un complexe en delphi?
Exemple: si j'ai le complexe z = 5 - 2i
dans un premier temps je voudrais afficher la partie réelle donc a= 5 et dans un second temps, la partie réelle b= -2
Merci à tous.
- Messages postés
- 647
- Date d'inscription
- mardi 22 avril 2003
- Statut
Bonjour,
utilise les varians
regarde dans l'aide de delphi :
function VarComplexCreate(const AReal, AImaginary: Double): Variant; overload;
Tu peux faire des additions ....
si non tu rées une table réelle de dimention 2 . Le 1er élément est la partie réelle l'autre l'imaginaire.
Puis créer les différente fonctions d'atdition multiplication ....
si non voir des exemples sur le site
Salutations
utilise les varians
regarde dans l'aide de delphi :
function VarComplexCreate(const AReal, AImaginary: Double): Variant; overload;
Tu peux faire des additions ....
si non tu rées une table réelle de dimention 2 . Le 1er élément est la partie réelle l'autre l'imaginaire.
Puis créer les différente fonctions d'atdition multiplication ....
si non voir des exemples sur le site
Salutations
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.