PERMET D'OBTENIR N PUISSANCE P(PUISSANCES NEGATIVES ET POSITIVES) EN TURBO PASCA
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
-
13 sept. 2002 à 23:52
Leirn Messages postés 30 Date d'inscription lundi 13 mai 2002 Statut Membre Dernière intervention 12 février 2004 - 4 nov. 2002 à 20:01
Leirn Messages postés 30 Date d'inscription lundi 13 mai 2002 Statut Membre Dernière intervention 12 février 2004 - 4 nov. 2002 à 20:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12148-permet-d-obtenir-n-puissance-p-puissances-negatives-et-positives-en-turbo-pascal
https://codes-sources.commentcamarche.net/source/12148-permet-d-obtenir-n-puissance-p-puissances-negatives-et-positives-en-turbo-pascal
4 nov. 2002 à 20:01
13 sept. 2002 à 23:52
N'oublie pas que dans toute fonction on peut utiliser la variable Result:
function caree(var entier,exposant:real):real;
var i:integer;
begin
Result:=1;
if( exposant >=0)
then for i:=1 to trunc(exposant) do Result:=Result*entier
Else for i:=1 to trunc(exposant) do Result:=Result/entier;
end;
De plus dans ce cas elle fonctionne aussi pour exposant=0, ce n'est donc plus nécessaire de le tester avant l'appel.
A noter aussi que l'unité Math fournit la fonction :
function Power(const Base, Exponent: Extended): Extended;
Nono.