Calculer A puissance n sans utiliser ni puissance ni multiplication

adelkobe · 12/12/2011, 22h20

Bonjour

J'ai un petit problème.

Ecrire un programme (Pascal) qui calcule et affiche A puissance n (sans utiliser l'opération de puissance ni de multiplication) (A et n sont des entiers).

adelkobe · 12/12/2011, 22h29

j'ai trouvé la methode, mais je ne sais pas comment la traduire en pascal
ex: 2^5=32
2²=2+2=4
2^3=4+4=8
2^4=8+8=16
2^5=16+16=32

extrem-alpha · 12/12/2011, 23h54

salut ,
je pense que tu peux calculer la puissance d'une façon récursive
exemple
2^5=16+16=32 =2*(2^4)
2^4=8+8=16=2*(2^3)
2^3=4+4=8 =2*(2^2)
(2^2)=2+2=4=2*(2^1)
(2^1)=2=2*(2^0)
(2^0)=1

Andnotor · 13/12/2011, 21h38

shl ?

droggo · 14/12/2011, 17h30

Gae,

Citation:

Envoyé par Andnotor

shl ?

Attention à ne pas se polariser sur les puissances de 2 (à ce titre, l'exemple choisi par adelkobe n'est pas très judicieux).

bhamp0 · 14/12/2011, 17h51

Genre en pseudo-code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
function myPow(int p, int n): int
begin
if(n == 0) return 1;
if(n < 0) error;
int tmp = myPow(p, n-1);
int result = 0;
for(int i=0; i<p; i++) {
     result += tmp;
}
return result;
end;

titeeee · 14/12/2011, 18h42

et tu peux pas te faire ta fonction multiplier avec des +. comme ça, tu n'utilise ni les * ni les puissance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program puissance;
 
uses crt,
 
function multiplication(a,b : integer) : integer; //que des entiers
var
  i : integer;
  resultat : integer;
begin
  for i := 1 to b do 
  begin
    inc(resultat,a);
  end;
  multiplication := resultat;
end;
 
function puissance(a,b : integer) : integer;
i,resultat : integer;
begin
  for i := 1 to b do
  begin
    resultat = multiplication(resultat,a);
  end; 
  puissance := resultat;
end;
 
begin
  writeln(puissance(4,3));
end.

je sais pas si t'a le droit, mais comme tu fabriques tes fonctions, peut être que ça passe.

droggo · 14/12/2011, 19h56

Fia,

Citation:

Envoyé par bhamp0

Genre en pseudo-code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
function myPow(int p, int n): int
begin
if(n == 0) return 1;
if(n < 0) error;
int tmp = myPow(p, n-1);
int result = 0;
for(int i=0; i<p; i++) {
     result += tmp;
}
return result;
end;

Même en pseudo-code, tu devrais vérifier ce que tu as écrit.

droggo · 14/12/2011, 19h57

Qua,

Citation:

Envoyé par titeeee

et tu peux pas te faire ta fonction multiplier avec des +. comme ça, tu n'utilise ni les * ni les puissance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program puissance;
 
uses crt,
 
function multiplication(a,b : integer) : integer; //que des entiers
var
  i : integer;
  resultat : integer;
begin
  for i := 1 to b do 
  begin
    inc(resultat,a);
  end;
  multiplication := resultat;
end;
 
function puissance(a,b : integer) : integer;
i,resultat : integer;
begin
  for i := 1 to b do
  begin
    resultat = multiplication(resultat,a);
  end; 
  puissance := resultat;
end;
 
begin
  writeln(puissance(4,3));
end.

je sais pas si t'a le droit, mais comme tu fabriques tes fonctions, peut être que ça passe.

Attention a bien initialiser les variables avant utilisation (resultat dans la fonction multiplication, dans l'état actuel, résultat faux garanti).

titeeee · 14/12/2011, 20h38

Dam oui, j'ai pas compiler et j'ai fais ça en mangeant, du coup j'ai pas initialisé resultat. Mais dans mon code, il est égal à 1 pour la multiplication et à 0 pour l'addition. De plus, j'aurais eu un warning.

Par contre, ça fais longtemps que je me demande :

Citation:

Envoyé par droggo

Qua,

Y'a une logique, ou c'est 3 lettres au hasard ?

wormful_sickfoot · 14/12/2011, 20h55

Citation:

Envoyé par titeeee

Y'a une logique, ou c'est 3 lettres au hasard ?

Non y'a effectivement une logique, suffit de trouver laquelle. Ca pourrait faire l'objet du Défi 2012 hein ?

titeeee · 14/12/2011, 21h01

je déclare forfait pour le défi pascal 2012

bhamp0 · 15/12/2011, 09h34

Citation:

Envoyé par droggo

Même en pseudo-code, tu devrais vérifier ce que tu as écrit.

Et tu pourrais m'expliquer où j'ai faux ?
J'ai fait du (Turbo)Pascal il y a très longtemps, donc je sais que ça n'en est pas. Mais en pseudo-code, je ne vois pas d'erreurs particulières.

droggo · 15/12/2011, 14h43

Weu,

Citation:

Envoyé par bhamp0

Et tu pourrais m'expliquer où j'ai faux ?
J'ai fait du (Turbo)Pascal il y a très longtemps, donc je sais que ça n'en est pas. Mais en pseudo-code, je ne vois pas d'erreurs particulières.

Eh bien, relis et teste ton code manuellement.

12/12/2011, 22h20	#1
adelkobe Invité de passage Inscription : décembre 2011 Messages : 2 Détails du profil Informations forums : Inscription : décembre 2011 Messages : 2 Points : 0 Points : 0	Calculer A puissance n sans utiliser ni puissance ni multiplication Bonjour J'ai un petit problème. Ecrire un programme (Pascal) qui calcule et affiche A puissance n (sans utiliser l'opération de puissance ni de multiplication) (A et n sont des entiers).
	00

12/12/2011, 22h29	#2
adelkobe Invité de passage Inscription : décembre 2011 Messages : 2 Détails du profil Informations forums : Inscription : décembre 2011 Messages : 2 Points : 0 Points : 0	j'ai trouvé la methode, mais je ne sais pas comment la traduire en pascal ex: 2^5=32 2²=2+2=4 2^3=4+4=8 2^4=8+8=16 2^5=16+16=32
	00

12/12/2011, 23h54	#3
extrem-alpha Candidat au titre de Membre du Club Inscription : avril 2010 Messages : 13 Détails du profil Informations forums : Inscription : avril 2010 Messages : 13 Points : 14 Points : 14	salut , je pense que tu peux calculer la puissance d'une façon récursive exemple 2^5=16+16=32 =2(2^4) 2^4=8+8=16=2(2^3) 2^3=4+4=8 =2(2^2) (2^2)=2+2=4=2(2^1) (2^1)=2=2*(2^0) (2^0)=1
	00

13/12/2011, 21h38	#4
Andnotor Modérateur Inscription : septembre 2008 Messages : 2 232 Détails du profil Informations forums : Inscription : septembre 2008 Messages : 2 232 Points : 2 904 Points : 2 904	shl ?
	00

14/12/2011, 21h01	#12
titeeee Membre confirmé Titouan Créac'h Lycéen Inscription : mai 2009 Messages : 193 Détails du profil Informations personnelles : Nom : Titouan Créac'h Âge : 18 Localisation : France Informations professionnelles : Activité : Lycéen Informations forums : Inscription : mai 2009 Messages : 193 Points : 257 Points : 257	je déclare forfait pour le défi pascal 2012
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email