[LG]contrôle de saisie

Bonjour !

Ma question n'est pas très longue,
qqn pourrait-il me traduire ça en pascal :

Si x n'est pas UN NOMBRE OU qu'il n'est pas compris ENTRE 0 et 10 alors...'



C'est juste pour contrôler la saisie d'un utilisateur.
Il faut pas que le prog foire si l'utilisateur entre une lettre au lieu d'un nombre (oh le con...) et ce nombre doit valoir [0,10]


Merciiiiiiii ;-)

Question posé 100 000 fois, mais bon... Je fais dans l'expéditif, j'ai autre chose à faire ;)

Code:

---

1 2 3 4 5 6 7 8 9 10

function ReadNumber(var i: Integer; Min, Max: Integer): Boolean; var S: string; e: Integer; begin ReadLn(S); Val(S, i, e); ReadNumber := (e = 0) and (i >= Min) and (i <= Max); end;

---

Allez hop, vendu !

@++

moi je propose quelque chose un peut plus simple

Code:

---

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

var nbr : integer;   begin   ........   repeat {$I-} read(nbr) {$I+} until (ioresult) and ( nbr in [0..10]); ......... end.

---

Plus simple, ça se discute ;)
De plus l'utilisation de Read est une erreur, et l'utilisation d'un ensemble ([0..10]) implique que la valeur lue soit comprise entre 0 et 255. Donc, pas si super que ça ;)

@++

Code:

---

De plus l'utilisation de Read est une erreur

---

je ne te comprend :?: peut tu explique toi :?:

Il suffit de se reporter à l'aide :

Citation:

---

Envoyé par L'aide sur Read

With a type string variable:
- Read reads all characters up to, but not including, the next
end-of-line marker or until Eof(F) becomes True; it does not skip to the
next line after reading. If the resulting string is longer than the
maximum length of the string variable, it is truncated.
- After the first Read, each subsequent Read will see the end-of-line
marker and return a zero-length string.

Use multiple Readln calls to read successive string values.

---

Autrement dit, si tu utilises Read, le premier fonctionnera très bien. Et tous les suivants aboutiront à un bug, car Read bloquera sur la touche Entrée, ce que ReadLn évite.

Donc Read est proscrit. C'est ReadLn qu'il faut utiliser. Décision ferme et sans appel ;)

@++

c vrai, en fait je n'utilise jamais le read mais je me suis dit que dans ce cas ca pourais aller

n'est-on pas en train de faire un exercice demandé à un étudiant ?

C'est juste une partie d'un exo... Tant qu'il nous donne pas l'énoncé, je crois qu'on peut répondre à ce genre de questions ;)