Exponentiation rapide en Pascal

Voir le sujet précédent Voir le sujet suivant Aller en bas

Exponentiation rapide en Pascal

Message par haiethem le Sam 31 Jan - 0:00

Exponentiation rapide en Pascal :
*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
Fonction qui calcule x^e :

Algorithme :
0)      DEF FN exprapide (x : réel ;n : entier) : réel
1)      p ← 1
2)      tanque n>0 faire
            si (n mod 2 <> 0) alors
                       p ← (p * x)
                       e ← e -1
              finsi
            x←(x*x) 
            e←e div 2
            fintantque
3)      exprapide← p
4)      Fin

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 419
Points : 14770
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Re: Exponentiation rapide en Pascal

Message par haiethem le Sam 31 Jan - 0:24

Traduction en Pascal : 
function puiss(x:real;e:longint):real;
begin
p := 1;
while e>0 do
  begin
  if (e mod 2 <> 0)then
                       begin
                       p := (p * x);
                       e:=e -1;
                       end;
x:=(x*x)  ;
e:=e div 2;
end;
puiss:= p;

end;

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 419
Points : 14770
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum