Discussion :

[Luikitadi]

Salut

je m'entraîne sur un exercice qui me fatigue un peu. L'exercice dit qu'il y a 5 entreprises pour un total de 100 ouvriers dont les informations relatives à chaque employé sont le nom, le prénom, l'adresse, le salaire et l'entreprise. On me demande de réaliser le fichier des employés de chaque entreprise et de générer la liste des directeurs (en considérant un directeur par entreprise) et des subalternes dans une table qui affiche, pour chaque employé donné, l'indice de son directeur correspondant (donc pendant l'enregistrement, une valeur doit être attribuée à un directeur puisqu'il sont 5, soit 1, 2, 3, 4, 5).

[droggo]

Bonjour,

Ce n'est pas de l'entraînement, mais un exercice à faire...


... et personne n'est ici pour faire ton travail.

Donc, montre-nous ce que tu as fait, explique-nous où et pourquoi tu bloques, et on verra.

[e-ric]

Salut

je m'entraîne sur un exercice qui me fatigue un peu.

et nous alors !
Je rappelle que les intervenants dans ce forum sont le plus souvent des professionnels qui ont des travaux qui les fatiguent aussi. Commencez le travail, exposez vos difficultés et surtout les parties problématiques du code et ensuite on verra ce que l'on peut faire pour vous.

Cdlt

[anapurna]

salut

met avis que tu n'as pas bien compris l’exorcise ^^
tu as 5 société (1..5)

les informations relatives à chaque employé sont le nom, le prénom, l'adresse, le salaire et l'entreprise.
donc :

Code :

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

1
2
3
4
5
6
7
8
 
  Employer
    Identifiant (numerique)
    Nom
    Prenom
    Adresse
    Salaire
    Entreprise

l'entreprise ayant la valeur entre 1 et 5
quand a l'indice je suppose que cela correspond a l'identifiant de l'employé

[Luikitadi]

J'ai commencé par créer un enregistrement d'employés de 1 à 100 et 1 tableau d'employés. Ensuite, j'ai demandé d'abord d'enregistrer les directeurs et ensuite une autre boucle pour les subalternes. Ensuite, j'ai voulu afficher pour chaque subalterne le numéro de son directeur si celui-ci a la même entreprise que le directeur. Après cela, je ne sais pas comment réorganiser, c'est-à-dire pour les employés qui sont de la même entreprise les mettre dans un même fichier avec toutes les informations reçues pour chacun.

Voici mon code écrit :

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
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.