Discussion :

[emprex]

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 :

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

1
2
3
4
5
6
7
 
DEBUT
caractere c;
ecrire("Saisir un carctere");
lire(c);
ASCII(c);
FIN

[FR119492]

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 :

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
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

[emprex]

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

Code :

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

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.

[pseudocode]

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

Code :

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

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.

[b_reda31]

Salut,

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 :

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

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 :

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

1
2
3
 
...
ecrire((ASCII(c))

ou mieux:

Code :

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

1
2
3
4
 
...
n=ASCII(c);
ecrire(n);

[souviron34]

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

Sinon, en algo, ce serait :

Code :

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

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