[TP] Problème de parenthèse

**AjeAurel** · 11/11/2007, 11h02

Bonjours à tous.
Je vous écris car j'ai un souci dans mon programme.
Turbo Pascal 7.0 veux me mettre une parenthèse après mon type personnel quand je le met dans mon programme (appel tout simple, with ...)

Je vous mets mon code actuel, c'est le résultat d'un TD de Projet en L2 d'info

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Program Super_Libraire ;
 
Const max_personnel = 40 ;
      max_bouquin = 50 ;
 
Type statut = (Employe, Stagiaire, Boss) ;
 
Type Personne = record
                 nom, prenom, mdp, adresse, nom_tel, date_naissance : string ;
                 stat : statut ;
                end ;
 
Type tablo_personne = array[1..max_personnel] of personne ;
 
Type personnel = record
                  liste : tablo_personne ;
                  effectif : integer ;
                 end ;
 
Type categorie = (Science, Literature, Autre) ;
 
Type rayon = (Sud, Est, Ouest, Nord) ;
 
Type lieu = (Magasin, Stock, Commande) ;
 
Type lieu_sioux = record
                   le_lieu : lieu ;
                   nb : integer ;
                  end ;
 
Type livre = record
              titre, auteur, editeur, reference : string ;
              mes_cat : categorie ;
              mes_rayons : rayon ;
              annee_sortie : integer ;
              prix : real ;
              statut_livre : lieu_sioux ;
              nb_vendu : integer ;
             end ;
 
Type ma_librairie = array[1..max_bouquin] of livre ;
 
Type librairie = record
                  une_librairie : ma_librairie ;
                  nb_total_bouquin : integer ;
                 end ;
 
Procedure recherche_conec(don_nom, don_prenom : string ; Var son_mdp : string ; Var existe : boolean) ;
    Var i : integer ;
Begin
     for i := 1 to personnel.effectif do
          if (don_nom = personnel.liste[i].nom) and (don_prenom = personnel.liste[i].prenom) then
          begin
          existe := true ;
          son_mdp := personnel.liste[i].mdp ;
          end
          else
          existe := false ;
end ;
 
Function connection : boolean ;
    Var nom, prenom, mdp : string ;
        existance : boolean ;
 
    Procedure recup_info(Var n, p, m : string) ;
    Begin
    Writeln('Veuillez entre votre nom.') ;
    Readln(n) ;
    Writeln('Veuillez entrer votre prenom.') ;
    Readln(p) ;
    Writeln('Veuillez entrer votre mot de passe. (… l abrit des regard)') ;
    Readln(m) ;
    end;
Begin
recup_info(nom, prenom, mdp) ;
writeln('Vous vous identifiez comme : ', nom, ' ', prenom, '.') ;
writeln('Nous allons vérifier si vous appartenez au personnel') ;
recherche_conec(nom, prenom, a_verif, existance) ;
if not existance then
Begin
     writeln('Vous n existez pas dans la base de donn‚e du personnel') ;
     writeln('Veulliez contacter votre patron') ;
end
else
writeln('Vous existez au sein de la librairie.') ;
{Vérif mdp}
writeln('Vous êtes maintenant connecté') ;
connection := true ;
end ;
 
Begin
Writeln('Super Libraire') ;
While not connection do
connection ;
writeln('Vous allez être déconnecté ...') ;
readln ;
end.

**Alcatîz** · 11/11/2007, 11h21

Bonjour et bienvenue !

C'est logique puisque Personnel est un identificateur de type et non de variable.

**droggo** · 11/11/2007, 16h02

Suo,

- Il faut faire un effort sur la présentation du code : indentation régulière et cohérente (tu verras à l'usage que ça te rendra rapidement service).

- Quand tu déclares plusieurs types à la suite, comme

Code :

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

1
2
3
4
5
6
Type statut = (Employe, Stagiaire, Boss) ;
 
Type Personne = record
                 nom, prenom, mdp, adresse, nom_tel, date_naissance : string ;
                 stat : statut ;
                end ;

il est inutile de répéter le mot-clé type (Tu l'as bien fait pour const, pourquoi pas là ?).

- Ton système pour établir la connexion n'est pas satifaisant : on entre dans une boucle infinie si l'utilisateur ne réussit pas à se connecter.

Dans ce genre de situation, on accepte généralement un nombre limité de tentatives, on met très souvent 3, et on quitte le programme si l'identification n'est pas réussie après ce nombre d'essais.

**AjeAurel** · 12/11/2007, 10h16

Que veux-tu dire par "indentation régulière et cohérente" ?

Il faut faire un effort sur la présentation du code : indentation régulière et cohérente

Pour ce qui est des "type" répétés, je les laisse pour le moment car celà me permet de mieu me repérer (pour le moment) dans la petite inteface qu'est Turbo Pascal 7.

Donc ne t'inquiette pas, au final, il n'y aura plus qu'un seul mot "type"

Pour ce qui est de la procédure de connection, on part du fait que tu ne peut pas quitter le logiciel sauf si tu en as envie. De toute façon, je n'ai pas fini de programmer cette partie.

Mon problème, c'est cette histoire de parethèse pour le moment !

Alcatîz
C'est logique puisque Personnel est un identificateur de type et non de variable

Je doix faire quoi alors ? personnel() ?
Pourtant, normalement, il ne faut pas de parenthèse ici. (c'est ce qui pour moi est logique

)

**darrylsite** · 12/11/2007, 11h50

Tu doit declarer personnel non pas comme un type, mais plutot comme variable: var personnel:record
....
end;
Tu as aussi utilisé la variable a_verif de type string sans l' avoir declarée au préalable dans la fonction connection:recherche_conec(nom,prenom,a_verif,existance);

Si tu rectifie ces erreurs, je crois ton prog marchera. D' abord je l' ai deja testé.