Problem au niveau pascal
zlatino
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention -
KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention -
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...
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...
A voir également:
- Problem au niveau pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Mise a niveau windows 7 vers 10 - Accueil - Mise à jour
- Clé mise a niveau windows 7 - Guide
1 réponse
À 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;
