Bonjour,
Le programme ne s'exécute pas ?
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
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.