Salut
J'ai défini un nouveau type Jour
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 !!!!!!
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
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
Partager