Discussion :

[ousunas]

Pouvez vous m'indiquer s'il y a une fonction qui calcule la racine nième ou la puissance d'un nombre dont l'exposant est un réel.

[Tuxico]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function puissance(puiss: Real; nbr: Real): Real;
begin
  if puiss = 0 then
  begin
    puissance := 1;
  end;
  if nbr = 0 then 
  begin
    puissance := 0
  end
  else if nbr > 0 then puissance := Exp(puiss * Ln(nbr))
  else
  begin   
    if Odd(puiss) then puissance := -Exp(puiss * Ln(nbr))
    else puissance := Exp(puiss * Ln(nbr));
  end;
end