Discussion :

[lolo90]

Bonjour à toutes et à tous,

je suis nouveau sur le forum, j'ai une question :

Je veux écrire un programme qui lit une série de nombres au clavier et qui

s'arrête à la première valeur négative.


Merci d'avance pour votre aide.

Je n'y arrive pas

Lorenzo

[droggo]

Kao,

Qu'as-tu déjà fait ?

Explique-nous ce qui te bloque, et u obtiendras de l'aide.

Rappel : le but du forum n'est de faire ton travail à ta place.

[alcatraz]

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
Program arret_valeur_negative;
    var
    n:integer;
 
Begin
    writeln('entrez un nombre au clavier');
    readln(n);
 
    repeat
    writeln('entrez un nombre au clavier');
    readln(n);
    until n<0;
 
      writeln('vous avez saisi une valeur négative: ',n);
 
end.

[lolo90]

Merci alcatraz, même pas le temps de répondre, Droggo, ne t'inquiètes pas

j'ai bien compris le but du forum qui n'est pas de faire le boulot à ma place,

alcatraz, si c'est une série de nombres au clavier, ne faut-il pas utiliser les

chaines, je vais tester cette solution.

Mais si vous avez d'autres idées

Lolo

[droggo]

Hoa,

Programm arret_valeur_negative;
var
n:integer;

Begin
writeln('entrez un nombre au clavier');
readln(n);

repeat
writeln('entrez un nombre au clavier');
readln(n);
until n<0;

writeln('vous avez saisi une valeur négative: ',n);

end.

Rappel : le but du forum n'est pas de fournir des solutions prêtes à l'emploi, mais d'aider à comprendre.

De plus, ta solution montre une incompréhension de ce que fait une boucle
repeat until, et est fausse : essaye d'entrer une valeur négative lors de la 1ère demande ...

[alcatraz]

Bonjour Droggo,

ok, mais je ne vois toujours pas où est mon erreur.

Peux-tu m'aider STP ?


alcatraz

[labbet]

bah ..
La condition du repeat ... until est évaluée à la fin de la boucle.
Donc le 1er nbre saisi (avant le repeat) est n'est pas testé avant d'entrer dans le repeat ... until.