la fonction ASCII(c)

bonjour, à tous
Voila ma quetion est assez simple je veux ercire un algo qui lit un caractère au clavier et retourne son code ASCII. Je sais le faire en C mais en algo puis-je ecrire ceci

Code:

---

1 2 3 4 5 6 7

DEBUT caractere c; ecrire("Saisir un carctere"); lire(c); ASCII(c); FIN

---

Salut !

J'ai eu un problème analogue, parce que mon EDI travaille avec la table ANSI et mon OS affiche en ASCII, ce qui fait que les caractères accentués étaient transformés en n'importe quoi. J'ai écrit une petite routine dont tu pourras peut-être t'inspirer.

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 38 39 40 41 42 43 44 45 46 47 48 49 50

Subroutine U002(S) * * ********************************************************************** * * Affichage d'une chaîne à l'écran sans retour * * Jean-Marc Blanc, mars 2008 * * ********************************************************************** * Implicit None * Integer*2 K,N Integer*1 D(80) Character*80 R,S Equivalence (D,R) * * ********************************************************************** * N=Len_Trim(S) R=S Do K=1,N If (D(K).Eq.z'E0') D(K)=z'85' If (D(K).Eq.z'E1') D(K)=z'A0' If (D(K).Eq.z'E2') D(K)=z'83' If (D(K).Eq.z'E4') D(K)=z'84' If (D(K).Eq.z'E5') D(K)=z'86' If (D(K).Eq.z'E7') D(K)=z'80' If (D(K).Eq.z'E8') D(K)=z'8A' If (D(K).Eq.z'E9') D(K)=z'82' If (D(K).Eq.z'EA') D(K)=z'88' If (D(K).Eq.z'EB') D(K)=z'89' If (D(K).Eq.z'EC') D(K)=z'8D' If (D(K).Eq.z'ED') D(K)=z'A1' If (D(K).Eq.z'EE') D(K)=z'8C' If (D(K).Eq.z'EF') D(K)=z'8B' If (D(K).Eq.z'F1') D(K)=z'A4' If (D(K).Eq.z'F2') D(K)=z'95' If (D(K).Eq.z'F3') D(K)=z'A2' If (D(K).Eq.z'F4') D(K)=z'93' If (D(K).Eq.z'F6') D(K)=z'94' If (D(K).Eq.z'F9') D(K)=z'97' If (D(K).Eq.z'FA') D(K)=z'A3' If (D(K).Eq.z'FB') D(K)=z'96' If (D(K).Eq.z'FC') D(K)=z'81' If (D(K).Eq.z'FF') D(K)=z'98' End Do Write (*,'(A)',Advance='No') R(1:N) Return End

---

Jean-Marc Blanc

a vrai dire je pensais plus à un truc comme cela.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

FONCTION ASCII(caractere c) : entier DEBUT retourner c; FIN ********************************************* Algorithme DEBUT caractere c; ecrire("Saisir un carctere"); lire(c); ASCII(c); ecrire(c); FIN

---

Et je voulais savoir si dans le langage algo ceci est juste.
Cela dit merci pour votre réponse, mais je n'ai pas encore le niveau pour manipuler des routines.

Citation:

---

Envoyé par emprex

Et je voulais savoir si dans le langage algo ceci est juste.

---

Code:

---

1 2 3 4 5

FONCTION ASCII(caractere c) : entier DEBUT retourner c; FIN

---

Heu... pas trop. Le "cast" caractere/entier facon "langage C" n'est pas vraiment un standard. :roll:

Salut,

Citation:

---

FONCTION ASCII(caractere c) : entier
DEBUT
retourner c;
FIN
*********************************************
Algorithme
DEBUT
caractere c;
ecrire("Saisir un carctere");
lire(c);
ASCII(c);
ecrire(c);
FIN

---

Même en supposant que la fonction ASCII que vous avez defini est juste,le corp principal contient une erreur:

Code:

---

1 2 3

ASCII(c); ecrire(c);

---

car la fonction ASCII ne modifiera pas la valeur de c,elle retournera seulement son code qui est un entier,il serai plus juste alors d'écrire :

Code:

---

1 2 3

... ecrire((ASCII(c))

---

ou mieux:

Code:

---

1 2 3 4

... n=ASCII(c); ecrire(n);

---

@Jean-Marc : ;) supposes-tu que tout le monde lit le Fortran ??

Sinon, en algo, ce serait :

Code:

---

1 2 3 4 5 6 7 8 9

FONCTION ASCII(caractere c) : entier DEBUT Pour i = 0 jusqu'a i < 127 Si table(i) egal c retourner i Fin si Fin pour FIN

---

Souviron, je ne suppose pas, je déplore !

Jean-Marc