Exponentiation rapide en Pascal

Poster un nouveau sujet   Répondre au sujet

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 : 418
Points : 14190
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

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 : 418
Points : 14190
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

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 pouvez répondre aux sujets dans ce forum