Discussion :

[Zac EFRON]

salut
voila je suis étudiant et j'ai des difficultés a traduire ce qu'on fai dans le cour d'algo du francais (tant que.pour) en language pascal (while,for) alors je voudrais avoir quelques documents pour m'aider en programmation

comme par exemple,comment écrire x^k (x puissance k) en pascal

merci de votre aide ZAC EFRON

[mattj]

Concernant x^y, cela dépend du pascal que tu utilises:

• pow
• power
• **

mais je crois que qu'il s'agit d'extensions et que le Pascal de base n'inclut rien pour ça.

Si tu cherche des renseignements, il y a par exemple http://pascal.developpez.com/

[Wachter]

Salut,

Puisque tu fais le cours d'algo, essaie de coder cette fonction au lieu de chercher son équivalent sous Pascal :

Code Pascal :

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

1
2
3
4
5
6
7
 
function puissance (nombre : integer, exposant : integer)
begin
 
  /* Tu mets ton code ici */
 
end;

Comme ça, tu comprendras mieux !

--
Wachter

[ToTo13]

Bonjour,

pour tout ce qui mots clés, une simple traduction suffit.
Sinon, tu as les instructions pas à pas du pseudocode.

[darrylsite]

Concernant x^y, cela dépend du pascal que tu utilises:

• pow
• power
• **

mais je crois que qu'il s'agit d'extensions et que le Pascal de base n'inclut rien pour ça.

Si tu cherche des renseignements, il y a par exemple http://pascal.developpez.com/

Je crois qu'il cherche plutot à coder en pascal un programme qui calule x^k du genre x^k=x*x*x*x*x*x*x*....*x. Comme dans le titre du post le dit, je crois qu'il a des probleme au niveau de l'implementation de la boucle for.

[diden138]

Bonjour et bienvenu,
Et si tu nous montrer d'abord ton algo ? et ensuite on passera à l'implémentation ensemble .
Cordialement,

[Mic**]

Tu faire une procédure dans le genre qui suit:

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
PROGRAM PUIS;{Eleve un nombre Y … la puissance X}
Uses Crt;
Var
X:Integer;
Y,Y1:Real;
 
Procedure puisX(X:Integer;Y:Real);
Var Bcl:Integer;
Begin
Y1:= Y;
for Bcl := 1 to X-1 do
Y:= Y*Y1;
WriteLn(Y:15:2);    {Affichage de Y format‚ a 2 decimales apres virgule}
End;
 
BEGIN
ClrScr;
puisX(4,12.5);{ 12.5 a la puissance 3}
Readln;{ attend Entree pour quitter le programme}
END.

A++ Mic**