Salut
J'ai défini un nouveau type Jour
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Type Jour=(lundi,mardi,mercredi,jeudi,vendredi,samedi,dimanche).
Pour les manipuler, je sais qu'il existe les méthodes prédéfinies suivantes :
SUCC(lundi) est mardi
PRED(lundi) est dimanche
Ord(lundi) est 1

J'ai écrit le code suivant pour afficher toutes les valeurs possibles de Jour(pour l'utiliser dans un autre programme) mais ce code ne fonctionne pas !!!!!!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Type Jour=(lundi,mardi,mercredi,jeudi,vendredi,samedi,dimanche).
var x:Jour;
begin
x:='lundi';
 
while (x<='dimanche') do
begin
  writeln(x);
  x:=SUCC(x);
end;
readln;
end.
L'erreur de compilation est : impossible d'utiliser write et readln pour un type Jour.
J'ai inséré une autre variable de type string y
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Type Jour=(lundi,mardi,mercredi,jeudi,vendredi,samedi,dimanche).
var x:Jour;y: string;
begin
x:='lundi';
 
while (x<='dimanche') do
begin
y:=x;//il faut utiliser y:=copy(x,1,length(x));
  writeln(y);
  x:=SUCC(x);
end;
end.
Merci et j'attends vos commentaires