problem au niveau pascal

Question

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...

KX · Accepted Answer

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

Problem au niveau pascal

1 réponse

Discussions similaires

Newsletters