se programme doit faire ceci :
somme des x^k de k>=0 a n.

voici mon programme :
pouvez vous me dire ou est l'ereur ou mem plutot ou sont les erreurs.

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
var
p,x:real;
i,k:integer;
 
begin
write('donnez k ');readln(k);
write('donnez x ');readln(x);
 
i:=1;
p:=1;
while i<=k do
begin
     while i<=k do
     begin
          p:=p*x;
          p:=p+1;
 
p:=p+p;
     end;
     end;
write(p);
end.