Discussion :

[Maxence45]

Bonjour , j'ai essayé d'écrire un programme qui m'affiche l'alphabet mais il n'est pas au point car il ne compile pas , voici le code :

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
program alphabet;
 
const
 
max = z; //déclaration de la valeur maximale , c'est une constante
 
var
 
x: char; //déclaration de la variable de type caractère
 
begin
 
x := a; //affectation de la 1ere valeur , donc a .
 
while(x <= max)do (itération)
begin
 
x := x+1 (incrémentation)
 
end;
 
write(x);(affichage)
 
end.

quelqu'un saurait me dire ce qui ne va pas danx ce programme svp?

merci

[Loceka]

eh bien tu essayes juste de faire une opération qui n'a pas de sens : ajouter 1 à un caractère...

Pour faire ça, sers-toi des fonctions ord et char.

PS :
Ce n'est pas pour ça que ton programme fonctionnera correctement pour autant, mais ça pourra aider.

[Maxence45]

je ne dois pas me servir de fonctions , je dois écrire le programme de manière séquentielle , donc est ce que si j'utilise le code ASCII des caractères çà peut marcher ?

[Loceka]

pour connaître la valeur ASCII d'un caractère, tu dois te servir des fonctions ord et char.

Si tu ne veux vraiment pas les utiliser, tu peux créer un tableau de 26 cases contenant les 26 lettres de l'alphabet et l'afficher ensuite à l'aide d'une boucle.

[Maxence45]

oui j'ai pas le droit d'utiliser de fonction dans mon programme donc j'en conclus qu'en pascal c'est impossible d'écrire l'alphabet de manière séquentielle ?!

[Maxence45]

ce n'est pas grave oublions l'alphabet je vais me concentrer sur des nombres , je veux affichier les nombres de 1 à 50 , j'ai fait çà :

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
program alphabet;
 
const
 
max = 50;
 
var
 
x: INTEGER;
 
begin
 
x := 1;
 
while(x <= max)do
begin
 
x := x+1
 
end;
 
write(x);
 
end.

Mais le programme m'affiche 51 , pourquoi?

merci

[Loceka]

Je ne vois pas le rapport entre la programmation séquentielle et le fait qu'il soit impossible d'utiliser des fonctions.

Essaye quand même avec ces fonctions-là et tu verras ce qu'en dis ton prof. De toute façon il n'y a pas d'autre solution.

[Maxence45]

j'ai repris un exemple avec des nombres au dessus , j'oublie l'alphabet , juste au dessus de ton dernier message , qu'en penses tu ?

[Maxence45]

j'ai réussi , j'ai mis le write(x) dans l'itération

[Alcatîz]

Bonjour !

Pour revenir au problème de départ, il est tout-à-fait possible d'incrémenter un caractère sans passer par une fonction, grâce au transtypage :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Var x : Char;
Begin
  x := 'a';
  while x <= 'z' do
    begin
      Write(x);
      Byte(x) := Byte(x) + 1;  { <-- transtypage en byte }
    end;
  WriteLn;
  ReadLn;
End.

[Loceka]

arf autant pour moi

Dans ce cas, autant le déclarer directement en Byte.

Edit :
Pas mal Mushroom , ça fait trop longtemps que je n'ai pas fait de Pascal, je ne me souvenais pas de ça !

[Haywire]

Salut, le plus simple comme je l'ai dis dans le post qu'il a créé pour afficher une suite de nombre, c'est la boucle for:

Code :

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

1
2
3
 
for x:= 'a' to 'z' do
   writeln(x);

en declarant x comme un char evidemment.