mettre un chaine en majuscule

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : mettre un chaine en majuscule

$man

salut a tous,
j'ai un petit exo a faire en pascal.
il faut que je mette un chaine en maj en utilisant un case of, j'ai réussi mais je trouve ca top lourdo lol.
voila le code (juska E lol):

Code :

var chaine:string;
i:integer;
begin
writeln('Quel est la chaine?');
readln(chaine);
for i:=0 to length(chaine) do
case chaine[i] of
'a':write('A');
'b':write('B');
'c':write('C');
'd':write('D');
'e':write('E');
end;
readln;
end.

c'est la seule solution ou on peut faire un truc du genre

Code :

case chaine of
'a'..'z':donne 'A'..'Z'

merci

Publicité

antp

Super Administrateur
Champion des excuses bidons

Je trouve très tordu d'utiliser un case dans ce cas-ci, je vois pas du tout à quoi il servirait :heink:

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

$man

ba je sais bien, mais c'est l'énnoncé [:spamafote] .
mon prof est un tordu, il nous fait tj utiliser des trucs de cinglés pour faire des trucs simples

antp

Super Administrateur
Champion des excuses bidons

avec un

case chaine[i] of
'a'..'z': Write(chaine[i] - (Ord('a') - Ord('A')));
else
Write(chaine[i]);
end;

Mais ça n'a pas vraiment d'intérêt par rapport à un if.

Message édité par antp le 28-05-2004 à 17:52:56

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

$man

merci,
je n'ai pas vu ord, je vais me documenter par curiosité

antp

Super Administrateur
Champion des excuses bidons

Ord c'est juste pour avoir la valeur numérique d'un caractère/énumération, vu que le langage est fortement typé il n'aime pas mélanger les types mêmes s'ils sont proches.

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

$man

ok,
sinon ca ca marche :

Code :

case chaine[i] of
'a'..'z': Write(upcase(chaine[i]));
else
Write(chaine[i]);
end;

je sais pas si c'est bien par contre

Message édité par $man le 29-05-2004 à 01:45:23

antp

Super Administrateur
Champion des excuses bidons

Benh là c'est un peu inutile vu que UpCase change les 'a'..'z' en 'A'..'Z' via une soustraction de Ord de 'a' et 'A' comme je l'avais posté... Donc le case ne sert _vraiment_ à rien

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

$man

pour le case je suis bien d'accord, en fait je crois que des qu'on voit un nouveau truc, il veut le caser lol

FORUM HardWare.fr

Programmation

Delphi/Pascal

mettre un chaine en majuscule

Sujets relatifs
[JAVA] ANT :mettre un timestamp plusieurs fois de suite sur un fichier	[PHP] Chercher un caractère dans une chaine... Quel fonction ?
chercher une chaine de caractere dans un fichier texte	Chaine de caractères
mettre une image animée de type gif	[VB] chaine de caracteres
Comment mettre à jour proprement une IHM relative à un traitement.	Inclure un guillemet dans une chaine VB
[Access / Sql] Comment mettre un critere sur les 3 dernieres semaines	Comment mettre la 1ere lettre d'une chaine de caractères en majuscule
Plus de sujets relatifs à : mettre un chaine en majuscule

Page générée en 0.032 secondes