J´ai besoin d´un peu d´aide en programmation là . .. c´est du Pascal :

"Réaliser a^n avec seulement l´opérateur d´addition"

J´ai fait çà, mais çà marche pas top :
ex: 2² = 9 . .. : (
-----------------------------------------
program puiss;
uses wincrt;
{résultat: élévation à la puissance d´un nombre a par n avec seulement l´opérateur d´addition}
var res : integer; {résultat final}
mult: integer; {résultat intermédiaire, multiplication de a * res avec seulement l´opérateur d´addition}
cpt1 : integer; {compteur de boucles du premier TantQue}
cpt2 : integer; {compteur de boucles du second TantQue}
a : integer; {valeur de a}
n : integer; {valeur de n}
o:integer; {correspond à n-1}

begin
cpt1:=1;
res:=1;
mult:=0;
cpt2:=1;
writeln(´Veuillez saisir la valeur de a: ´);
read(a);
writeln(´Veuillez saisir la valeur de n: ´);
read(n);
while(cpt1<=n)do
begin
while(cpt2<=res)do
begin
mult:=mult+a;
cpt2:=cpt2+1;
end;
res:=res+mult;
cpt1:=cpt1+1;
end;
writeln(´La valeur "a" élevée à la puissance "n" correspond à : ´);
writeln(res);
end.
--------------------------------------
Merci à tous les programmeurs qui pourront m´aider . ..

Tiens, essaye ca. C´set pas du pascal mais j´ai la fleme de le convertir.

long multipli(long a,long b)
{
long rep=0;
long i;
for(i=0;i<b;i++) rep += a;
return rep;
}
long puissance(long a,long b)
{
long i;
long rep =a;
for(i=1;i<b;i++) rep = multipli(rep,a);
return rep;
}

eh kouic tu peux me conseiller entre rpg marker95 et 2000

Ca devrait être bon:

//retourne a^b

function Exposant(a,b:integer):integer;
var
i:integer;
begin

Result:=a;

for i:=2 to b do
Result:=Result*a;

end;

C´est pas plus compliqué que ça

Haaa. Ta question n´est un peux HS dans ce topic guigui00.
Pour faire court : Kouic y connait rien en RPG Maker X ou Y. Tout ce qu´il connait Kouic c´est le C, C++, Delphi (donc pascal), Java, Python, meme un peu (tout petit peu) de PHP, et quelques librairie attacher a tout ca.

Oups, excuse, jai mal lu la consigne

Voici le corrigé:

function Exposant(a,b:integer):integer;
var
i,j:integer;
begin

Result:=a;

for i:=2 to b do
for j:=1 to a do
Result:=Result+a;

end;

Ca change pas grand chose, à part que ca ralentit le système

Vi vi, SuperDindon a raison aussi, on a fait la meme chose, la seule difference c´est que je n´ai utiliser que l´addition (CF enoncé).

Kouic, toujours fier de lui ; )

Arf, bonne retif S(uper)D(indon) ! : )
Je ne pense pas que le ralentissement du systeme soit tres genant sur cette operation.
Cela dit, si on comptait les cycles d´horloge necessaires pour accomplir une puissance, ta methode serait plus rapide puisque tu ne fait pas d´appel de fontion.
Mais bon, avec le matos actuel, on n´est plus vraiment a quelques millier de cycle pres...

Kouic, qui aime bien les fonctions.

merci à tous de vous etre pencher sur mon problème ! !! : )