Gestion d'un annuaire

[pope2008]

Bonjour,
Le programme ne s'exécute pas ?

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
33
34
35
36
37
38
39
40
program annuaire;
uses crt;
type personne=record
     nom:string;
     prenom:string;
     numero_de_telephone:integer;
     profession:string;
     end;
     var n:integer;
     var t:array[0..19] of personne;
     function ajout(var nba:byte):integer;
     var info:personne;
     i:byte;
     begin
     i:=0;
     if(i<nba) then
     begin
     nba:=nba+1;
     write('nom:   ',info.nom);
     write('prenom: ',info.prenom);
     write('numero_de_telephone:',info.numero_de_telephone);
     write('profession:',info.profession);
     t[nba]:=info;
     t[i]:=t[nba];
     while(t[nba].nom<info.nom) do
     begin
     t[i]:=t[i-1];
     end;
     writeln('ce contact biena ajoute');
 
 
     readln;
     clrscr;
     end;
     begin
     writeln('bonjpur fateh');
     readln(n);
     if n=1 then ajout
 
     End.

[hariman]

Bonjour,

Je pourrais t'aider, si seulement tu suis ces quelques conseils :

- Mets des indentations dans ton code
- Poste quelques détails sur le problème, comme les messages d'erreur ...
-

[droggo]

Noe,

+1

D'ailleurs, en indentant, on voit que les begin..end ne sont pas appariés !

Résultat d'une mise en forme automatique :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
program annuaire;
 
uses crt;
 
type 
  personne = record
    nom: string;
    prenom : string;
    numero_de_telephone : Integer;
    profession : string;
  end;
var 
  n : Integer;
var 
  t : array[0..19] of personne;
 
function ajout(var nba : Byte): Integer;
var 
  info : personne;
  i : Byte;
begin
  i := 0;
  if (i < nba) then
  begin
    nba := nba + 1;
    Write('nom:   ', info.nom);
    Write('prenom: ', info.prenom);
    Write('numero_de_telephone:', info.numero_de_telephone);
    Write('profession:', info.profession);
    t[nba] := info;
    t[i] := t[nba];
    while (t[nba].nom < info.nom) do
    begin
      t[i] := t[i - 1];
    end;
    Writeln('ce contact biena ajoute');
 
 
    Readln;
    clrscr;
 
  end;
 
  begin
    Writeln('bonjpur fateh');
    Readln(n);
    if n = 1 then 
      ajout
  end.

Au passage :

Code :

1
2
3
4
var 
  n : Integer;
var 
  t : array[0..19] of personne;

il est inutile de répéter le mot-clé var, et on peut donc écrire

Code :

1
2
3
var 
  n : Integer;
  t : array[0..19] of personne;

Et compte tenu de ce genre d'erreur, je n'ai pas pris la peine de lire le code.

[titeeee]

Envoyé par pope2008

Bonjour,
Le programme ne s'exécute pas ?

Si tu le dit...