Discussion :

[kojima]

salut
je suis debutant en pascal
j'ai fais ce code mais je netrouve pas l'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program premier;
type
    feu=(rouge,jaune,vert);
var
    d:feu;
begin
readln (d)
case d of
rouge:writeln('stop');   
vert:writeln('demarrer');
jaune:writeln('attention');
readln;
end;
end.

merci d'avance

[HRS]

d'abord des erreurs de syntaxe

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 premier; 
type 
    feu=(rouge,jaune,vert); 
var 
    d:feu; 
begin 
readln (d) (* manque ; *) 
case d of 
   rouge:writeln('stop');
   vert:writeln('demarrer');
   jaune:writeln('attention');  (* pas de ; avant le end *)
 
readln;     (* doit être derriere le end *)
end;
end.

ensuite, PASCAL ne permet pas d'entrer une donnée de type énuméré

[M.Dlb]

Quelle est le texte de l'erreur ?

Je suis pas sûr que readln(d) soit correct, car tu utilises un type énuméré...

[M.Dlb]

(* pas de ; avant le end *)

Pas tout à fait d'accord, le ; avant le end n'est certainement pas une erreur de syntaxe... Ca serait plutôt de ne pas le mettre qui serait une erreur, si les compilateurs étaient moins "laxistes"...

[Loceka]

Tu demandes à l'utilisateur de taper 'rouge', 'jaune' ou 'vert', seulement le programme ne sait pas à quoi correspondent ces chaines de caractères.

Tu as donc 2 solutions possibles (à mes yeux) :
- Soit tu demandes à l'utilisateur de taper 1, 2 ou 3 et tu dis au programme que c'est l'ordre de ton élément.
- Soit l'utilisateur donne une couleur et tu la traites dans une procédure qui lui assigne l'élément correspondant.

[kojima]

le code donne
error 64: cannot read or write variables of this type
readln(d);
je ne sais quoi faire

merci

[kojima]

je cherche a ce que l'utilisateur quand il entre
rouge il affiche stop
vert il affiche demarrer
jaune il affiche attention
en utilisant : type
et merci pour l'aide

[M.Dlb]

C'est la fête :

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
program premier;
type
    feu=(rouge,jaune,vert);
var
    d:feu;
    s: string
begin
readln(s);
if s = "rouge" then d := rouge;
if s = "jaune" then d := jaune;
if s = "vert" then d := vert;
case d of
   rouge:writeln('stop');
   vert:writeln('demarrer');
   jaune:writeln('attention');
end;
readln;  
end.

Bon en gros dans ce cas, un type énuméré ca sert à rien, à moins que tu veuilles faire des boucles pour passer entre les couleurs...

[Loceka]

le code donne
error 64: cannot read or write variables of this type
readln(d);
je ne sais quoi faire

merci

En gros tu lis le post qui est au dessus du tien et tu auras ta réponse.
Ensuite tu lis le code proposé par Wormful et tu remarque que c'est la "procédure" dont je parlais pour le deuxième cas.
Enfin tu remarques, comme l'a dit Wormful, qu'un tel type ne sert pas à grand chose dans ton programme.