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
Bonjour,
slt,tous l monde
je vaux savoir est ce qu'il y a une procédure en pascal qui donne cube d'un entier SVP et merci d'avance...

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
À 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;
2