Discussion :

[triana]

Bonjour !!
SVP quelqu'un peut-il me donner une astuce pour convertir des lettres en chiffres sans passer par les 26 lettres, c'est-à-dire sand dire si 1 alors a... etc.
Merci.

[droggo]

Koe,

Tu as plutôt l'air de vouloir convertir des valeurs numériques en lettre ?

[triana]

non c'est plutot le contraire merci

[triana]

je vais chiffrer un message!!

[triana]

avec la methode de case of je rencontre un problem au niveau des nombre paire par exemple quand j'ecris j:s[j]:=10 il m'affiche 'type mismatch'.... a l'attente de vos reponses

[droggo]

Hie,

non c'est plutot le contraire merci

et pourtant

bonjour!! SVP quelqu'un peut me donner une astuce pour convertir des lettres en chiffre sans passer par les 26 lettres c.à.d sand dire si 1 alors a...etc merci

[triana]

my bad

[droggo]

Nia,

Pascal dispose d'une fonction pour obtenir la valeur numérique d'un caractère : Ord

Code :

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

1
2
3
4
5
6
7
8
var
  i : integer;
  c : char;
begin
  c := 'a';
  i := ord(c);
...
end.

[triana]

merci droggo pour votre reponse mais cette fonction le convertit selon le code ASCII mais moi je cherche le classement par ordre alphabetique a=1, b=2...etc

[EpiTouille]

Etant donne que les caractere ascii des lettres sont dans l'ordre croissaint, il suffit d'enlever la valeure de depart

Code :

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

1
2
3
4
5
6
7
8
9
10
 
program conv;
var 
  c : char;
  i  : integer;
 
begin
  c := 'e';
  i := ord(c) - ord('a') + 1; //101 - 97 + 1 = 5
end.

enjoy

[droggo]

Gia,

Etant donne que les caractere ascii des lettres sont dans l'ordre croissaint, il suffit d'enlever la valeure de depart

Code :

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

1
2
3
4
5
6
7
8
9
10
 
program conv;
var 
  c : char;
  i  : integer;
 
begin
  c := 'e';
  i := ord(c) - ord('a') + 1; //101 - 97 + 1 = 5
end.

enjoy

Je n'ai pas donné ce genre de code pour pousser triana à réfléchir à la solution en sachant comment obtenir le code numérique d'une lettre.
Le solution est si simple (même pour les débutants) que le temps de réflexion aurait dû être très bref.

[triana]

merci titeee
et droggo il faut savoir code ascii est dans l'ordre croissant...je suis vraiment au debut
et voila mon essai

Code :

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

1
2
3
4
5
6
7
for i:=1 to length(x) do
begin
case x[i]  of
'a':j=ord(a)-....
'b':...
end;
writeln('le msg chiffré est:',j);

mais a chaque a fois il m'affiche juste le dernier chiffre alors que moi je veut convertir le tout...

[M.Dlb]

Pas très complet ton code. Quelle est la définition de la variable j ? Ce devrait être une string.

[triana]

quand je le déclare un string y'aura une ereur "type mismatch"

[triana]

alors vous pouvez me donnez le code correct SVP

[droggo]

Gie,

merci titeee
et droggo il faut savoir code ascii est dans l'ordre croissant...je suis vraiment au debut

Dans le doute, un petit programme de test de quelques instructions t'aurait donné la réponses !

OU

Un simple coup d'œil sur une table ASCII, ce n'est pas compliqué d'en trouver une.

[droggo]

Joe,

Tu ne voulais pas mettre de if ... etc., et voilà que tu nous ponds une longue liste de cas dans un case ... of, ce qui est exactement équivalent (sauf éventuellement sur la manière dont le compilateur va créer le code exécutable, mais tu n'en es pas là).

[triana]

non ce que je voulais faire c'est function.... et apres a chaque lettre dans une chaine on appelle la fonction mais aparament ce n'est pas possible ou c'est compliqué parceque le programme que je vais faire c'est sécurisé un texet avec une clé et aprés le déchiffré

[droggo]

Joa,

Et si tu nous montrais ce que tu veux réellement faire ?

Un petit exemple qui n'a pas besoin d'être une copie de ce que tu fais, mais qui montre le but visé.

C'est en posant clairement le problème qu'on peut trouver la solution.

[triana]

je veux chiffré un msg avec une clé précise et apres je dois le déchiffrer en utilisant les matrices bien sur mais je dois utiliser des fonction et des procedures si c'est possible et n'ont pas un algorithme simple
alors pour le debut je dois d'abord le chiffrer normalement (si a alors 1...etc) et apres je dois le multiplier par un code choisis par l'utilisateur et le resultat nous donne le message chiffré