[Dev-Pascal] Erreur sur la clause Type [Résolu]

[ankojem]

Bonjour,

Voici un code que j'ai écrit et que je n'arrive pas à compiler, à cause d'une erreur que je n'arrive pas à décoder :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Program petitOuGrand(input,output);
  uses crt;
 
TYPE
    sexe =('m','f');
 
Var
   sex:sexe;
   majeur,petit,grand:boolean;
   age:1..50;
   taille:50..250;
   femme,homme:boolean;
  begin
       read(sexe,age,taille);
       femme:=sexe="f";
       homme:=notfemme;
       majeur:=age>18;
 
                      if femme then
                         begin
                              petit:=taille<150;
                              grand:=taille>180;
                         end
                        else
                            if homme then
                               begin
                                    petit:=taille<160;
                                    grand:=taille>180;
                                    end;
                            writeln(majeur,femme,homme);
                            writeln(age,petit,grand);
                            end;

Voici l'erreur qui s'affiche :

5 / 12 agetai~1.pas Fatal: Syntax error, identifier expected but const char found

[Alcatîz]

Bonjour,

Voici comment déclarer et utiliser un type énuméré :
http://pascal.developpez.com/cours/p...age=page_9#LIX
La déclaration doit donc être :

Code :

sexe = (m,f);

et la ligne

Code :

femme:=sexe="f";

doit devenir :

Code :

femme:=sexe=f;

Il y a également une erreur dans cette ligne :

Code :

read(sexe,age,taille);

sexe est le nom du type et sex celui de la variable de type sexe. Tu dois donc écrire :

Code :

read(sex,age,taille);

[ankojem]

Merci BEAUCOUP le problème est résolu, je vois que je n'était pas trop concentré