Discussion :

[star7dust]

Bonjour,


J'aimerai bien savoir comment l'on fait pour transformer une lettre (un CARACTERE plutôt) minuscule en lettre majuscule telle que cela:

exemple:
majuscule ('e') vaut "E"
majuscule ('F') vaut "F"
majuscule ('1') vaut "1"

Voilà voilà

NB: en ce moment là, je teste des "formules" pour voir à quoi pourrais ressembler le programme, j'éditerais ou ajjouterai mes propres messages au fur à mesure......

[JoseF]

bonjour,

par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program casse;
	var s:string;
		c:char;
begin
	c:='x';
	writeln(c); 
	writeln(upcase(c)); 
	writeln;
	s:='BonJouR MonsieuR le roi Xx123';
	writeln(s); 
	writeln(upcase(s)); 
	writeln(lowercase(s));
	readln;
end.

[apqmwnqmap]

il y a déjà plein de sujet là dessus. Recherche un peu et tu auras de longue discution (sur la manière de faire plus vite, avec le code ASCII par exemple)

[star7dust]

J'ai trouver celà grace à la première réponse, mais cela marche QUE avec UN SEUL caractère!! COMMENT faire avec plusieurs caractères?

Code :

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

1
2
3
4
5
6
7
program test;
	var c:char;
begin
	writeln ('écrivez ce que vous voulez'); readln(c);
        writeln(upcase(c));
	readln;
end.

Sinon, bien évidemment, j'ai CHERCHER sur le forum mais ...... j'ai du mal à saisir certaines réponses dans le seul autre sujet qu'il y a à propos des minuscules en majuscules

[JoseF]

bonjour,
je t'avais fait un exemple avec :
c pour char (un seul caractere)
et
s pour une chaine (string) de plusieurs caractères.

[star7dust]

ok, je vois MERCI c'est excellent cette méthode


Sinon, avec une autre méthode, comment fait-on avec les fonctions ord et char ???

[krachik]

Bonjour
Je ne voudrais pas vexer certains mais ça serait sympa de votre part pour des questions de bases consulter l'aide de Pascal ou la FAQ.
@ JoseF

Code JoseF :

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

1
2
3
4
5
 
        s:='BonJouR MonsieuR le roi Xx123';
	writeln(s); 
	writeln(upcase(s)); 
	writeln(lowercase(s));

bonjour,
je t'avais fait un exemple avec :
c pour char (un seul caractere)
et
s pour une chaine (string) de plusieurs caractères.

A ma connaissance en tout cas jusqu'a TP 7 UpCase() prend en parametre un caractere et renvoie un caractere donc si tu veux le faire avec uen String tu dois utiliser une boucle.
Au passage lowercase n'est pas un mot clé du Pascal standart

@star7dust

Sinon, avec une autre méthode, comment fait-on avec les fonctions ord et char ???

Consultes l'aide de pAscal ou la FAQ.
@+
Ps: A moins que je sois complement à coté de la plaque informez moi si tout ça passe sur un compilateur Pascal parce que je touche pas souvent à Pascal

[star7dust]

oui mais..................OU???

(sinon j'ai déjà chercher, mais peut-être qu'il faut y passer la nuit entière pour trouver.........)

[krachik]

Si tu es sous TP fais Shift+F1 et tu auras une fenetre contenant tous les mots clé de Pascal apres t'a juste qu'a tapé au clavier le mot que tu recherche et le curseur ira directement dessus.
tu utilise quel compilateur ?
est ton ami
regardes -ici
@+

[star7dust]

j'utilise Kate sous linux, il n'y a que celà à la fac............


Sinon, j'utilise chez moi FreePascal et il n'y a pas de FAQ, quand bien même il en aurait une, je ne l'utiliserais PAS (pour cause, c'est en américain )


Sinon, je CONNAIS la définition des fonctions ord et char mais c'est juste l'histoire de passer des minuscules en majuscules qui me tracasse l'esprit......

[star7dust]

Sinon google RAS (c'est ce que j'ai fait AVANT de poster dans le forum).

[krachik]

Ok
voila un petit exemple avec ord et chr pour convertir un caractere minuscule en majuscule

Code :

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

1
2
3
 
     car:='x';
     write(chr(ord(x)-32));

Petite explication :le "ord" renvoie le code ascii du caractere qui lui passé en parametre,ensuite le "-32" c'est pour renvoyer le code ascii du caractere correspondant mais en majuscule et finalement le "chr" renvoie le caractere correspondant a la valeur numerique passé en parametre
En un mot "lettre(codeAscii(caractere)-32))
Quand je parle de Faq je parle de celui du site ,tu peux faire uen recherche sur ce que tu cherche ici et tu vera que ça été deja traité ce dont tu parle
http://www.developpez.net/forums/search.php
@+

[star7dust]

ok merci, c'est un bon départ ce que tu mas donné, je pense que c'est quasiment la réponse

[JoseF]

Bonjour,

de krachik

A ma connaissance en tout cas jusqu'a TP 7 UpCase() prend en parametre un caractere et renvoie un caractere donc si tu veux le faire avec uen String tu dois utiliser une boucle.
Au passage lowercase n'est pas un mot clé du Pascal standart

Autant pour moi j'utilise FreePascal et la doc de base

de FreePascal (via Clandestino )
http://pascal.developpez.com/outils/#4

[krachik]

Bonjour
@ JoseF
Alors sous FreePascal UpCase() peut prendre en parametre un string? et "lowerCase()" existe sous Freepascal ?
@+

[JoseF]

Bonjour,

voila ce que me dis ma doc, je n'ai rien inventé.

Free Pascal :
Reference guide.

Michaël Van Canneyt

April 2002



62 Lowercase

Declaration
Function Lowercase (C : Char or String) : Char or String;

Description
Lowercase returns the lowercase version of its argument C. If its argument is a string, then the complete string is converted to lowercase. The type of the returned value is the same as the type of the argument.
Errors
None.
See also
Upcase

Example

Program Example73;

{ Program to demonstrate the Lowercase function. }

Var I : Longint;

begin
For i:=ord('A') to ord('Z') do
write (lowercase(chr(i)));
Writeln;
Writeln (Lowercase('ABCDEFGHIJKLMNOPQRSTUVWXYZ'));
end.

112 Upcase

Declaration
Function Upcase (C : Char or string) : Char or String;

Description
Upcase returns the uppercase version of its argument C. If its argument is a string, then the complete string is converted to uppercase. The type of the returned value is the same as the type of the argument.
Errors
None.
See also
Lowercase

Example

Program Example72;

{ Program to demonstrate the Upcase function. }

Var I : Longint;

begin
For i:=ord('a') to ord('z') do
write (upcase(chr(i)));
Writeln;
{ This doesn't work in TP, but it does in Free Pascal }
Writeln (Upcase('abcdefghijklmnopqrstuvwxyz'));
end.

comme je n'utilise pas TP, je pensais que c'était du standard...

bonne journée

[krachik]

J'ai jamais dit que tu inventais quoique ce soit je voulais juste savoir si ça marchais sur dautres compilateur
Ok merci pour l'information
en plus c'est clair

{ This doesn't work in TP, but it does in Free Pascal }

@+