Problem au niveau pascal
Fermé
zlatino
Messages postés
5
Date d'inscription
dimanche 11 mai 2008
Statut
Membre
Dernière intervention
30 janvier 2009
-
2 oct. 2008 à 22:19
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 4 oct. 2008 à 09:14
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 4 oct. 2008 à 09:14
A voir également:
- Problem au niveau pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Mise a niveau windows 7 vers 10 - Guide
- L'option de mise à niveau n'est pas disponible ✓ - Forum Windows 10
- Excel a rencontré un problème au niveau d'une ou de plusieurs références de formules - Forum Bureautique
1 réponse
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 005
4 oct. 2008 à 09:14
4 oct. 2008 à 09:14
À ma connaissance, une telle fonction n'existe pas, toutefois voici comment on pourrait coder une fonction qui calcule un réel x à la puissance n (cas particulier : la fonction cube avec n=3 !)
function Puissance(x:real;n:integer):real; // x^n avec n positif ou nul
function Auxiliaire(x:real;n:integer):real;
begin
if n>0 then
if odd(n) then result:=x*Auxiliaire(x,n-1) // x^n = x.x^(n-1)
else result:=sqr(Auxiliaire(x,n div 2)) // x^(2n) = sqr(x)^n
else result:=1
end;
begin
if x=0 then begin // cas particulier 0^n=0 sauf 0^0=1
if n>0 then result:=0
else result:=1;
end
else result:=Auxiliaire(x,n);
end;
function Cube(x:real):real;
begin
result:=Puissance(x,3);
end;