Multiplication de deux entiers vers un réel

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var a, b,i : integer; r:real; begin write('a,b ?'); readln(a);readln(b); a:=1; for i:=1to b do begin r:=a*i;   end; writeln('le resultat est',r); end.

---

Ca doit paraitre con à certains d'entre vous , mais je l'ai refait n fois et le résultat n'est pas juste. :(
Quelle faute ai-je commise ?

Wue,

Suis ton code ligne par ligne, en notant l'évolution des variables [ce qui se passe réellement, pas ce que tu penses avoir écrit], et tu trouveras. :)

Citation:

---

Envoyé par linn-ux

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var a, b,i : integer; r:real; begin write('a,b ?'); readln(a);readln(b); a:=1; for i:=1to b do begin r:=a*i; end; writeln('le resultat est',r); end.

---

Ca doit paraitre con à certains d'entre vous , mais je l'ai refait n fois et le résultat n'est pas juste. :(
Quelle faute ai-je commise ?

---

ETAIT-CE OBLIGE DE METTRE CE readln(a)?

Weo,

Non, ou oui.

Car on peut penser que c'est la ligne

Code:

---

a:=1;

---

qui est en trop. :)