Afficher des caractères et leur code ASCII

Version imprimable

24/12/2006, 22h33
hamada_10

Afficher des caractères et leur code ASCII

Je veux un programme qui affiche les codes ascii de 20 a 255 en 2 colonnes, c-à-d une colonne pour le caractère et la 2éme pour le code... Merci beaucoup de m'aider.
25/12/2006, 11h10
Alcatîz

Bonjour et bienvenue !

Nous ne ferons pas le programme à ta place mais voici une piste de réflexion : une boucle avec un compteur allant de 20 à 255 dans laquelle, à chaque ligne, tu affiches le compteur et le caractère renvoyé par la fonction Chr(compteur).

;)
25/12/2006, 14h01
hamada_10

merci

merci pour la reponse, mais le le problème que je sais qu'il faut faire ça mais je sais pas comment l'appliqué, parecque c'est la 1ére fois que je vais appliqué cette méthode de boucle...merci d'avance
25/12/2006, 14h05
defluc

Bonjour

Ce n'est pas les exemples qui manquent.

Va voir dans l'aide des boucles for

Et bon courage

Voici le code, avec une simple boucle for.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
program codeasciichar;
 
var
   i : integer;
 
BEGIN
     for i := 20 to 255 do
         begin
              writeln('Code ASCII : ', i, ' Caractere : ', chr(i));
         end;
     readln;
END.

26/12/2006, 00h18
hamada_10

merci bcp

merci bcp de votre soutient, je vais ésséyé d'appliquer ça, et faire ce que je veux bien de mon programme, parceque moi je veux pas affiché tout les caractére dans une seul colone, je veux les répartie en 6 colone pour que le programme soit bien claire dans une seule page, si je trouve un problème je vais revenir demander ce qu'il faut faire....merci bcp
26/12/2006, 11h53
defluc

Salut

Cherche du côté des boucles imbriquées.
De 1 à 6, tu auras tes 6 colonnes.

La persévérance est la mère des vertus

Citation:

Envoyé par hamada_10

merci bcp de votre soutient, je vais ésséyé d'appliquer ça, et faire ce que je veux bien de mon programme, parceque moi je veux pas affiché tout les caractére dans une seul colone, je veux les répartie en 6 colone pour que le programme soit bien claire dans une seule page, si je trouve un problème je vais revenir demander ce qu'il faut faire....merci bcp

Tu n'as qu'à ajouter des espaces pour séparer le tout en 6 colones.

Par exemple...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 rogram codeasciichar; var i : integer; BEGIN for i := 20 to 255 do begin write('Code ASCII : ', i:3, ' Caractere : ', chr(i):1, '-------'); end; readln; END.
Ici, j'ai mis 7 '-', mais tu devras l'ajuster selon ce que tu veux car c'est un essai au hasard.

EDIT!!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 program codeasciichar; var i : integer; BEGIN for i := 0 to 255 do begin if (i <> 10) then begin write(i:3, ' > ', chr(i), ' '); end; end; readln; END.
Je viens de faire ca. Par contre, il saute de 11 à 13. Le 10 est sauté volontairement, car il s'agit d'un saut de ligne.

26/12/2006, 19h38
defluc
Bonjour
Pour moi, il y a un problème dans la solution proposée.
Il n'y aura jamais qu'une longue ligne.

Pour qu'il y ait 6 colonnes, il n'y a que la solution des boucles imbriquées.
Ou alors, dans la boucle du code proposé :
Code:

1 2 If mod(i,6) = 0 then WriteLn;