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
| program fichiers_entreprise;
(*creer un menu de choix de secteur*)
uses crt,graph;
type employes=record
nom:string;
prenom:string;
adresse:string;
salaire:real;
entreprise:string;
valeur:integer;
end;
type tab = array[1..5] of employes;
type g=array[1..3] of employes;
var
t:tab;
r:g;
i,j:integer;
begin
writeln(chr(176),'bienvenu dans le mileu agro alimentaire',chr(176));
for i:=1 to 2 do
(*remplir les informations concernant le directeur*)
begin
writeln('donner le nom du directeur ',i,':');
readln(t[i].nom);
writeln('donner un seul prenom svp:');
readln(t[i].prenom);
writeln('donner une adresse:');
readln(t[i].adresse);
writeln('donner le salaire :');
readln(t[i].salaire);
writeln('donner le nom de l antreprise qu''il dirrigera:');
readln(t[i].entreprise);
t[i].valeur:=i;
end;
for j:=1 to 3 do
(*remplir les informations concerant les employes*)
begin
writeln('donner le nom d l emploes ',j,':');
readln(r[j].nom);
writeln('donner un seul prenom svp:');
readln(r[j].prenom);
writeln('donner une adresse:');
readln(r[j].adresse);
writeln('donner le salaire :');
readln(r[j].salaire);
writeln('donner le nom de l antreprise dont il fait parti:');
readln(r[j].entreprise);
end;
for j:=1 to 3 do
begin
if r[j].entreprise=t[1].entreprise then
begin
r[j].valeur:=1;
end;
if r[j].entreprise=t[2].entreprise then
begin
r[j].valeur:=2;
end;
end;
for j:=1 to 3 do
begin
write(r[j].nom);
write(' ');
write(r[j].valeur);
writeln;
end;
writeln;
readln;
end. |
