Discussion :

[sukhoimk]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
program s2;
uses wincrt;
var i,s:integer;
begin
  for i:=0 to 10 do
    begin
      i:=i+1;
      s:=s+i;
      writeln('s',s);
    end;
end.

Quand je l'exécute, il continue à incrémenter jusqu'a -32... malgré qu'il soit supposé d'incrémenter de i=0 jusqu'au 10.
Où est l'erreur svp ?

[Modulpro]

Bonsoir,

Un petit tour dans les regles du forum vous permettra de voir que :
- il faut éviter les titre du genre "aidez moi" ou "Help", qui ne donnent pas envie aux membres de répondre
- la balise [ CODE] [ /CODE] (sans les espaces), accessible via le bouton # de l'éditeur, permet de mettre en forme votre code.
De plus, pourquoi ne pas avoir posté dans le forum Turbo Pascal ?

Pour votre probleme, il vient du fait que vous modifiez la variable compteur i à l'interrieur de votre boucle "for".
La structure for i:=0 to 10 do incrémente automatiquement le compteur i à chaque tour.

Il faut donc supprimer i:=i+1;de la boucle.

[Lion-Sage]

{ exercice : ecrire un programme en pascale qui calcule la somme des 10 premiers entiers naturels }

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
 
 
 
program s2;
uses wincrt;
var i,s:integer;
begin
 
  s:=0 ; { initialisation de la somme à 0 }
 
  for i:=1 to 10 do
    begin
 
    { Pour l'instruction "For" , l'incrémentation du compteur "i" est automatique , le pas  par défaut est  égal à 1 , donc pas besoin de ça " i:=i+1" }
 
      s:=s+i;
 
    end;
writeln ( 's = ' , s) ; { l'istruction writeln doit etre en dehors de la boucle "for" si on cherche à afficher la somme finale }
 
end.
 
 
 
{Rq: on a pas besoin de " begin" et "end" sous l'instruction "for" si on a un seul traitement . }

finalement :

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
 
program s2;
uses wincrt;
var i,s:integer;
begin
 
  s:=0;
 
  for i:=1 to 10 do
    begin
      s:=s+i;
    end;
 
    writeln('s = ',s);
end.

[EpiTouille]

Avec Turbo pascal, le compilateur accepte la modification du conteur à l’intérieur
de la boucle for, mais c'est TRES déconseillé. D'ailleurs, les nouveaux compilateur tel que Freepascal l'interdisent.
[honte] Je l'ai déjà fais [/honte]

[adelneo]

question bête et solution donnée et même pas un petit

[droggo]

Goa,

Il n'y a pas de question bête, le demandeur aura appris quelque chose (et quelques autres aussi ...)

Et il est un fait que si TP et dérivés avaient interdit cette manipulation du compteur de boucle, pas mal de personnes n'auraient pas eu l'occasion de prendre cette très mauvaise habitude.