[Débutante] Exercice de conversion majuscules <-> minuscules

**The future scientist** · 28/02/2007, 14h28

Salut
Pouvez vous me dire comment résoudre cet exercice?? car je suis débutante et j'ai pas su comment le résoudre

L'énoncé:
Ecrire une analyse, un algorithme et sa traduction en pascal d'un programme qui permet d'afficher le minuscule d'un caractère donné en majuscule.
Voilà, j'attends votre réponse et Merci

**apqmwnqmap** · 28/02/2007, 15h09

Est-ce l'énoncé qui te pose problème?

Sinon, pour avoir plus de précision, ce qu'on demandait c'est d'entrer au clavier "A" et que ça retourne "a" par exemple?

**The future scientist** · 28/02/2007, 15h18

Oui c'est ça, mais quels sont les étapes à faire pour arriver à afficher "A" (par exemple) en miniscule??

**apqmwnqmap** · 28/02/2007, 15h27

Je pense qu'il y a différente façon de faire. Par exemple, si tu te renseignes pour calculer en pascal le code ASCII d'une lettre, tu vérifies qu'il est dans une certaine plage et pour avoir le code ASCII de la lettre minuscule correspondante, tu additionnes ce qu'il faut (si ce que je dis te sembles incompréhanssible, dis-le je serais plus précis).

Sinon, on peut vouloir simplement te faire un programme qui teste si on a rentré "A", et le cas échéant on affiche "a". Tu vois comment faire ça?

**The future scientist** · 28/02/2007, 15h32

Non je n'ai pas compris

comment faire???
Moi je comprends losrque vous me montrez l'algorithme, ça m'a parru difficile de changer en minuscule car je ne sais pas quels sont les opérateurs que je dois utiliser pour arriver au résultat voulu.

**apqmwnqmap** · 28/02/2007, 15h47

tu

beaucoup!

Si tu cherches une fonction du genre mettre_en_petit(A), ça peut exister mais son utilisation ne sera en rien un exercice...

Voilà ma première suggestion :
tu lis une lettre
tu testes si c'est un A,
et si ç'en est un, tu affiches a
sinon tu testes si c'est un B,
et si ç'en est un, tu affiches b
...

ça te donne des idées? Et si tu as étudié d'autres controles que if then... tu trouveras mieux

Ma deuxième suggestion est mieux, mais suppose que tu vois ce que j'entend par code ASCII. Si ce n'est pas le cas, renseigne toi (en gros, c'est un code pour chaque caractère; A=065, B=066... a=097, b=098...). Reste à savoir comment manipuler ça dans pascal.

**The future scientist** · 28/02/2007, 15h50

Merci, j'ai demandé de la'ide car je vais passer un devoir d'info après une heure, donc un peu perturbée

J'ai pas encore des bonnes connaissances en pascal mais ça n'empeche ue je vais m'ameliorer!
J'ai compris les suggestions
Salut

**krachik** · 28/02/2007, 16h51

bonjour,

Envoyé par apqmwnqmap

Voilà ma première suggestion :
tu lis une lettre
tu testes si c'est un A,
et si ç'en est un, tu affiches a
sinon tu testes si c'est un B,
et si ç'en est un, tu affiches b
...

c'est un code qu'on pourra faire mais à éviter car tu imagine bien qu'on va faire des test sur toutes les lettres de l'aphabet(26 tests

) meme pour un debutant je ne le conseillerai pas c'est une mauvaise habitude ,
la deuxieme idéé me parait plus interessant
1...
sahant que le code ascii de A est 65 celui de Z est 65+25 donc pour savoir si le caractere entré est en lettre majuscule il faut faire un test sur son code ascii et sil est bien dans l'intervalle alors tu peux passer a la conversion
2...
Plus simple a faire et pour pas de casser la tete tester si le caractere est compris entre 'A' et 'Z' alors c'est un majuscule

bon maintenant si je te dis que le code ascii de 'a' est 97 alors tu penses a quoi?

Bon tout ça c'est quand on connait pas trop les mots clés de pascal sinon il y une fonction dans pascal qui converti une lettre majuscule en letre miniscule :Upcase voila ca t'evite d'ecrire des lignes de codes qui t'auront sans doute appris pas mal de choses ,et au moins tu auras compris par toi meme comment cette fonction fonctionne ,pour ces genres de choses tu pourras ausi regarder dans l'aide de pascal les mots clés qui existent et voir ce qu'il font
@

**apqmwnqmap** · 28/02/2007, 17h35

Voilà ce que je me suis dis en postant ma réponse :

La première idée d'un débutant doit etre de tester chaque cas, car on ne sait pas manupuler les lettres dans l'ordre alphabetique comme on manipule les nombres. Donc si on n'a pas pensé à ça, il faut donner cette solution, parce qu'on a louppé quelque chose.

Ce n'est qu'après avoir pensé à ça que l'on peut essayer d'utiliser la structure du problème (il y a une logique dans le fait de transformer "A" en "a"). Et là il faut savoir que l'on peut manipuler les caractères par leur code ASCII par exemple (ou leur valeur binaire, pourquoi pas)

Pour ces raisons, je pense que je répondrais au même post de la même manière. Comprends-tu mon point de vue?

**Ultima** · 28/02/2007, 21h19

Bonjour,
Je suis en premiere année d'info, et voila ce que je propose;

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
Program majorMin;
    function Maj_or_Min(c :CHAR) :CHAR;
    var
        res :CHAR;
    Begin
        res:= c;  // tout ce qui n'est pas lettre ne varie pas
        if ('a' <= c) and (c <= 'z') then
            res:= chr( ord('A') + (ord(c) - ord('a')) )     // UpCase
 
        else if ('A' <= c) and (c <= 'Z') then
            res:= chr( ord('a') + (ord(c) - ord('A')) );  // LowerCase
 
    Maj_or_Min:= res;
    End;
 
Begin
  writeln('''a'', ''z'', ''1'', ''A'', ''Z''; donnent');
  writeln(Maj_or_Min('a'),Maj_or_Min('z'),Maj_or_Min('1'),Maj_or_Min('A'),Maj_or_Min('Z'));
End.

**Alcatîz** · 28/02/2007, 22h19

Bonjour !

Si on examine les codes des caractères au niveau binaire, on trouve une méthode extrêmement simple :

Majuscules (de 41h à 5Ah) : 0100 0001 à 0101 1010
Minuscules (de 61h à 7Ah) : 0110 0001 à 0111 1010

Un seul bit de différence : le n° 5.

Donc, pour mettre en majuscule sans avoir à tester s'il s'agit déjà d'une majuscule ou d'une minuscule, il faut trouver une opération logique qui force dans tous les cas le bit 5 à 0. Pour mettre en minuscule, c'est la même chose sauf qu'il faut forcer à 1.

Mais je ne sais pas si tu as le droit d'utiliser les instructions and et or ? Oups, je viens de donner un indice, là.

**Ultima** · 28/02/2007, 23h07

Bonsoir,

J’ai fais un module automatique au premier semestre et j’ai compris l’astuce ;

Il suffit de faire :
De min vers maj:
ord(c) and 223
= ord(c) and 11011111
= ord(c) and DFh

De maj vers min:
ord(c) or 32
= ord(c) or 00100000
= ord(c) or 20h

Mieux si on ne prend pas en compte le fait que ce soit en min ou en maj;

Code :

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

1
2
3
    Ord(c) xor 32             //si c'est en maj ça passe en min
  = Ord(c) xor 00100000    //si c'est en min ça passe en maj
  = Ord(c) xor 20h

En tout cas merci Alcatiz, je n’y aurais jamais pensé;
toutefois je ne vois pas encore comment je vais coder ça en Pascale, en AMS peut-être ?
Remarque : j’ai testé les codes sur ma TI89 (et oui c’est sur ti que j’ai appris à programmer).
Sur ma ti ça marche ; mais si les codes ASCII ne sont pas les mêmes sur PC, ça risque pas de marcher.

**Alcatîz** · 28/02/2007, 23h11

Envoyé par Ultima

toutefois je ne vois pas encore comment je vais coder ça en Pascale, en AMS peut-être ?

Un transtypage de char vers byte et une instruction and ou or. Par exemple :

Code :

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

Byte(caractere) := Byte(caractere) and $20;

**krachik** · 01/03/2007, 00h27

cool la methode de Alcatîz, deja j'essaie de le comprendre et c'est top

@

**katrena99** · 04/03/2007, 22h31

Je n'ai vraiment rien compris! Pouvez-vous simplifier ?

**Ultima** · 04/03/2007, 22h42

Bonjour katrena99,
Peux-tu expliquer ce que tu n’as pas compris exactement ?
Je te propose un code à tout hasard.
N’hésites pas à poser des questions (précises).

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    function majmin(c :CHAR) :CHAR;
    var
      res :CHAR;
    Begin
      res:= c;
      ord(res):= (ord(res) xor $20);   // On agit directement sur ord(c)
//    BYTE(res):= BYTE(res) xor 32;    // Autre possibilitée
    majmin:= res;
    end {majmin};

**katrena99** · 05/03/2007, 01h16

Salut!

ord(res):= (ord(res) xor $20)

que veulent dire xor et $20 ?
et byte, je croyais que c'était un type pas une fonction...
merci

**M.Dlb** · 05/03/2007, 10h36

La première ligne res xor $20 signifie qu'on effectue une opération logique de type ou exclusif entre la variable res, et $20. $20 vaut 32 en décimal, ca qui correspond au nombre 00100000 en binaire. Cette opération va donc transformer le 5ème bit de res, en le faisant passer de 1 si il est à 0, et à 0 si il vaut 1.

Et byte est bien un type, l'opération effectuée ici est un transtypage : on dit au compilateur de traiter la valeur suivie entre parenthèses comme un byte. Ici on transtype un char en byte. Le résultat est le même, car byte et char sont codé sur un octet.