Discussion :

[hamada_10]

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.

[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).

[hamada_10]

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

[defluc]

Bonjour

Ce n'est pas les exemples qui manquent.

Va voir dans l'aide des boucles for

Et bon courage

[[R]Viper]

Voici le code, avec une simple boucle for.

Code :

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

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.

[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

[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

[[R]Viper]

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 :

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

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 :

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

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

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

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