Discussion :

[pope2008]

Bonjour à tous

J'ai un programme qui s'exécute bien mais je ne peux pas faire une fonction qui modifie une personne (modifier le numéro de téléphone exemple).
Voici mon programme :

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
program an;
const NbElements=19;
type personne=record
nom:string;
prenom:string;
tel:word;
end;
var choix,nbr:byte;
var nba,x:integer;
tab:array[0..19] of personne;
 
 
 Procedure menu_add (var NbActuel : byte);
Var info: personne;
Begin
  if NbActuel = NbElements
     then
       WriteLn('Carnet d''adresses rempli !')
     else
       begin
         NbActuel := NbActuel + 1;
         Write ('Nom: ');
         ReadLn (info.nom);
         Write ('Prenom: ');
         ReadLn (info.prenom);
         Write ('Telephone: ');
         ReadLn (info.tel);
         tab[NbActuel] := info;
         WriteLn;
         WriteLn ('La personne ci-dessus a ete ajoute...');
         WriteLn;
       end;
End;
Function menu_search(var nba:byte):integer;
Var nom: string;
    i: byte;
Begin
 i:=0;
 WriteLn ('  |- - - - - - - - - - - - - - ');
 WriteLn ('  |                           |');
 WriteLn ('  |                           |');
 WriteLn ('  | Recherche d''une personne  |');
 WriteLn ('  |                           |');
 WriteLn ('  |                           |');
 WriteLn ('   - - - - - - - - - - - - - - ');
 Write ('Nom:             '); ReadLn (nom);
 While (t[i].nom<>nom) do
     Begin
        i:=i+1;
     End;
  If (t[i].nom=nom) then
     Begin
    WriteLn ('Prenom:          ',t[nba].prenom);
    WriteLn (' Adresse:     ',t[nba]. Adresse);
    WriteLn (' tel:',t[nba].
numero_de_téléphone);
    writeln('la profession :',t[nba].profession) ;
     End
  Else WriteLn ('Aucune personne ne correspond a votre recherche...');
 WriteLn;
 WriteLn ('Pressez ENTER pour revenir au menu principal');
 ReadLn;
 clrscr;

Le programme marche mais il manque une fonction qui modifie une personne : modifier le nom et prénom et adresse.

[Alcatîz]

Bonjour,

Désolé mais je ne vois pas le code de la fonction qui ne marche pas ? Si tu veux de l'aide, le minimum est au moins de montrer ce que tu as fait.

Ceci dit en passant, je ne suis pas sûr que tu aies bien lu les conseils donnés par droggo sur cet autre sujet.

[droggo]

Tao,

Ouais, et ça ressemble de plus en plus à du MAUVAIS copier/coller sur le net.

[richard]

Bonjour,

Voilà pourquoi je n'ai pas répondu pas à tes demandes par mp :
Il faudrait effectivement suivre les conseils donnés : le mot-clé Var ne se répète pas. D'autre part il suffit d'aller à la fin de ton listing pour s'apercevoir qu'il ne se finit par un 'End'. J'espère simplement que tu n'as posté qu'un extrait sinon je ne vois pas comment il peut s'exécuter correctement.

Comme le dit Droggo, ces erreurs sont énormes et pourraient laisser penser que tu as copié-collé un code sur internet sans même prendre la précaution de vérifier ...

Reprends tout, indente, suis les conseils donnés et reviens nous poser les questions après avoir retravaillé ton code.

Meilleurs voeux

[ALT]

Et comme en plus il n'y a pas de programme principal...