Manipulation des types énumérés
Salut
J'ai défini un nouveau type Jour
Code:
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:
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:
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
