Identificateur inconnu dans un intervalle

Version imprimable

27/05/2012, 11h05
haifou

Identificateur inconnu dans un intervalle
Bonjour,

je ne trouve pas mon erreur au niveau de l'intervalle : j'ai le message 'identificateur inconnu'.
Code:

1 2 3 4 5 6 7 procedure saisir(var ch:string); begin repeat writeln('entrer une chaine des lettres majuscules'); readln(ch); until ch in[A..Z] ; end;
SVP aidez-moi.
27/05/2012, 13h24
Roland Chastain

Bonjour !

1° Attention à la différence qui existe entre les variables A et B, et les caractères 'A' et 'B'.

2° La question de savoir si la chaîne ch est comprise entre les caractères 'A' et 'B' n'a pas de sens.
27/05/2012, 13h46
l_autodidacte

Balises "[code]/[/code]" à ne pas négliger
Comme je n'ai les droits nécessaires pour modifier les posts sur ce forum, je le fais ainsi :
Code:

1 2 3 4 5 6 7 procedure saisir(var ch:string); begin repeat writeln('entrer une chaine des lettres majuscules'); readln(ch); until ch in[A..Z] ; end;
Donc ne pas oublier les balises qui permettent la différenciation entre un texte normal et un code.

D'autre part et comme il a été mentionné par Roland, ne pas mélanger variables et caractères.
De plus, dans ta procédure, tu devrais peut-être déclarer la variable ch pas en String mais en CHAR sinon tu chargerais la mémoire pour rien.
31/05/2012, 13h44
Devildz

Essaye aussi avec ça :

Code:

until ((ch>='A') and (ch;<='Z'));
01/06/2012, 09h44
Roland Chastain

Effectivement il fallait ajouter des guillemets. Mais on pouvait le faire en conservant le code proposé:

Code:

until ch in['A'..'Z'];

bonjour, bon je voix que tu veux saisir une chaine à condition que tout les lettres soient majuscules.
voila le code ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function verif ( a : string ) : boolean;
var
i : integer;
v : boolean;
begin
v := false;
i := 0;
repeat
	i := i + 1;
	if not (a[i] in ['A'..'Z']) then
		v := false;
until
	(i = length(a)) or (v = false);
verif := v;
end;
procedure saisir ( var ch : string );
begin
repeat
	writeln('entrer une chaine des lettres majuscules');
	readln(ch);
until
	verif(ch) = true;
end;

Gie,
Citation:
Envoyé par abdou monta
bonjour, bon je voix que tu veux saisir une chaine à condition que tout les lettres soient majuscules.
voila le code ;)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 function verif ( a : string ) : boolean; var i : integer; v : boolean; begin v := false; i := 0; repeat i := i + 1; if not (a[i] in ['A'..'Z']) then v := false; until (i = length(a)) or (v = false); verif := v; end; procedure saisir ( var ch : string ); begin repeat writeln('entrer une chaine des lettres majuscules'); readln(ch); until verif(ch) = true; end;
Déjà 2 messages du même auteur que je vois donner des solutions complètes (j'ignore si elles sont bonnes, ce n'est pas le sujet de ma réponse !).

Ces réponses ne correspondent pas au but du forum, qui est d'aider à comprendre/apprendre, pas à avoir une bonne note "gratuite" aux exercices.

Qu'on se le dise. :)

13/08/2012, 18h01
abdou monta

Citation:

Envoyé par droggo

Gie,

Ces réponses ne correspondent pas au but du forum, qui est d'aider à comprendre/apprendre, pas à avoir une bonne note "gratuite" aux exercices.

Qu'on se le dise. :)

les solutions déja données sont hors sujet.

I just wanted to help, like I need sometime someone to help me ;)