Discussion :

[haifou]

Bonjour,

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

Code :

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

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.

[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.

[l_autodidacte]

Comme je n'ai les droits nécessaires pour modifier les posts sur ce forum, je le fais ainsi :

Code :

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

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.

[Devildz]

Essaye aussi avec ça :

Code :

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

until ((ch>='A') and (ch;<='Z'));

[Roland Chastain]

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

Code :

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

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

[abdou monta]

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

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
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;