Utilisation des ensembles

Version imprimable

Bonjour !!

J'aimerais votre aide pour un problème étrange en Pascal. Je débute en pascal et j'ai voulu écrire un programme qui convertit les caractères d'une chaîne en majuscules.

Mon programme ressemble à ceci :
Code:

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 26 27 28 29 30 31 32 33 34 35 36 37 program conversion_minuscules_en_majuscules ; type lettres_min = 'a'..'z' ; var chaine : string[50] ; i : integer ; minuscules : set of lettres_min ; c : char ; x : integer ; BEGIN writeln ('Entrez votre phrase !') ; readln (chaine) ; for i := 1 to length(chaine) do begin if chaine[i] in minuscules then begin c := chaine[i] ; x := (ord(c))-32 ; c := chr(x) ; chaine[i] := c ; end ; end ; writeln ('Voici votre nouvelle phrase !') ; writeln (chaine) ; readln END.
Mon astuce principale consiste à retrancher 32 sur la valeur numérique ASCII d'un caractère minuscule, on obtient le caractere majuscule correspondant.

Seulement ... le programme ne détecte aucune erreur et pourtant il ne fonctionne pas DU TOUT, enfin c'est comme si il passe de l'instruction readln (chaine) au début à l'instruction writeln (chaine) en fin de programme, en ignorant complétement la boucle for.

Donc j'aimerais comprendre ce qui va pas : (

Merci

12/08/2006, 04h48
shadokk
oui bon en fait je crois qu'il me faut mieux réviser les cours sur les ensembles en fait :s
Code:

1 2 if chaine[i] in minuscules then
Voilà le hic je pense. Jvais vérifier ça !!

Il vaudrait mieux que j'utilise les ensembles dans un autre programme je crois, je crois que jvais faire plus simple :

Code:

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
26
27
28
29
 
program conversion_minuscules_en_majuscules ;
 
var
	chaine		: string[50] ;
	i, x		: integer ;
	c	 		: char ;
 
BEGIN
 
writeln ('Entrez votre phrase !') ;
readln (chaine) ;
 
for i := 1 to length(chaine) do
	begin
	if (chaine[i]>='a') and (chaine[i]<='z') then
		begin
		c	:= chaine[i] ;
		x 	:= (ord(c))-32 ;
		c   := chr(x) ;
		chaine[i] := c ;
		end ;
	end ;
 
writeln ('Voici votre nouvelle phrase !') ;
writeln (chaine) ;
 
readln
END.

Merci !!!

12/08/2006, 09h28
Tuxico

le programme marche bien si ce n'est l'oubli d'un ; après le dernier readln ;)
12/08/2006, 18h38
shadokk

Bof oui et non, en fait le dernier "END" est considéré comme un ";" donc ça n'affecte pas le programme en réalité.

Le problème de mon premier programme en fait venait bien de ma variable de type ensemble ;

outre le fait qu'elle était vraiment superflue, j'avais oublié de lui affecter des valeurs donc elle était inutilisable : s

Merci !
12/08/2006, 18h49
thewho
Bonjour,

Citation:

Envoyé par shadokk

Le problème de mon premier programme en fait venait bien de ma variable de type ensemble ;

outre le fait qu'elle était vraiment superflue,

Je ne pense pas qu'elle était superflue.

Par contre

Citation:

Envoyé par shadokk

j'avais oublié de lui affecter des valeurs donc elle était inutilisable

Là c'est clair.

Les ensembles sont une possibilité intéressante du Pascal, il vaut mieux les utiliser quand on peut.

Il suffisait d'écrire (je ne mets pas tout le code...)
Code:

1 2 3 const minuscules : set of char = ['a'..'z'];
et supprimer les lignes
Code:

1 2 3 type lettres_min = 'a'..'z' ; ... minuscules : set of lettres_min ;

Oui j'étais en train de bien relire le cours sur les ensembles. J'avais cru qu'en déclarant seulement l'ensemble il devenait d'office un intervalle mais j'ai raisonné à un niveau trop abstrait.

En fait quand je disais qu'elle était superflu c que ce n'était pas si utile de créer une variable et un type supplémentaire pour effectuer une comparaison de caractères.

Mais en comprenant mieux le fonctionnement des ensembles j'ai reformuler mon premier programme comme tu l'as dit et ça marche effectivement, mais cette fois conversion de majuscules en minuscules ^^

Merci !!!!
Code:

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 26 27 28 29 30 31 32 program conversion_majuscules_en_minuscules ; var chaine : string[50] ; i, x : integer ; c : char ; const majuscules : set of char = ['A'..'Z'] ; BEGIN writeln ('Entrez votre phrase !') ; readln (chaine) ; for i := 1 to length(chaine) do begin if chaine[i] in majuscules then begin c := chaine[i] ; x := (ord(c))+32 ; c := chr(x) ; chaine[i] := c ; end ; end ; writeln ('Voici votre nouvelle phrase !') ; writeln (chaine) ; readln END.

14/08/2006, 00h07
thewho

Bonjour,

Citation:

Envoyé par shadokk

Oui j'étais en train de bien relire le cours sur les ensembles. J'avais cru qu'en déclarant seulement l'ensemble il devenait d'office un intervalle mais j'ai raisonné à un niveau trop abstrait.

Attention à ne pas confondre ensemble et intervalle, ce sont 2 concepts complètement différents.
16/08/2006, 06h12
shadokk

salut !!

oui Thewo, je crois que la vodka avait fait son effet ... nan jrigole jveux dire que pour un si petit programme, j'ai confondu et oublié beaucoup de choses ...

Tu as raison de préciser ça pour les intervalles ; les ensembles ne sont que des collections non ordonnées, je n'aurais pas pu faire exactement la même chose.

Merci !

bye !