عاونوني الله يجازيكم...ماقعدليش الوقت

[SaRa.B]

السلام عليكم
من فضلك لي يقدر ينفعني حتى و بكاتبة غير البرنامج و انا نكمل بالباسكال


On veut modeliser la gestion des employes dans une entreprise. Un employe est defini par les informations : matricule, nom, prenom, date de naissance, diplome, grade, situation familiale (celibataire, marie et divorce),´ nombre d’enfants.
Ecrire un programme modulaire qui realise les taches suivantes :

1. La saisi d’un employe.
2. La recherche d’un employe donne par :
— son matricule.
— son grade.
3. Le calcul du nombre d’employes ayant la situation familiale celibataire.


و جزاكم الله خيراا

[SaRa.B]

من فضلك لي عندو الحل مايبخلنيش
الله يجازيكم

[brahim016]

السلام عليكم
يمكنني مساعدتك إذا أردته على شكل موقع أنا لست مختص في الباسكال

[mobilisoud]

سلام
اطلب الدعاء فقط
و يمكنك تكملة البرنامج بنفسك :mh92:


Program mobilisoud;
Uses Crt;

Label Return;
TYPE
date = RECORD
jour : 1..31;
mois : 1..12;
an : 1950..2010;
END;
statut = (celibataire,marie,divorce,veuf);
employer = RECORD
matricul : string[50];
nom : string[50];
prenom : string[50];
date_n : date;
diplome : string[50];
grade : integer;
nb_enfants : integer;
CASE situation : statut OF
celibataire : ();
marie : (enfants : 0..10);
divorce, veuf : (enfant : 0..10; remarie : boolean)
END;

VAR
{soit disant on a declarer 100 employers }
employers : array [1..100] of employer;

nb_emp : integer;
i : Integer;
rep : integer;
imprimer : boolean;
texte : string [40];
YN : Char;


BEGIN


Return: Clrscr;
writeln('Tache du programme : ');
writeln(' 1 : saisir un employer(s)');
writeln(' 2 : recherche employer par matricule ');
writeln(' 3 : recherche employer par grade ');
writeln(' 4 : Le calcul du nombre d’employes ayant la situation familiale celibataire');
writeln(' 5 : quitter le prog');
writeln('Quel est votre choix ?');
readln(rep);

Case rep of
1 : Begin

writeln('Veuillez entrer le nombre d emplyers a saisir: ');
readln(nb_emp);

FOR i := 1 TO nb_emp DO
WITH employers[i] DO
begin
writeln('Veuille saisir le matricule de l employer N°',i,'?');
readln(employers[i].matricul); { c.a.d employers[i].matricule }
writeln('Nom du employer N°.',i,' ?');
readln(employers[i].nom);
writeln('Prenom du employer N°.',i,' ?');
readln(employers[i].prenom);
writeln('Jour de naissance du employer N°.',i,' ?');
readln(employers[i].date_n.jour);
writeln('Mois de naissance du employer N°.',i,' ?');
readln(employers[i].date_n.mois);
writeln('Année de naissance du employer N°.',i,' ?');
readln(employers[i].date_n.an);
writeln('Displome du employer N°.',i,' ?');
readln(employers[i].diplome);
writeln('Grade du employer N°.',i,' ?');
readln(employers[i].grade);
writeln('Nb enfants du employer N°.',i,' ?');
readln(employers[i].nb_enfants);
writeln('Situation familiale du employer N°.',i,' ?');
readln(employers[i].situation); {celibataire,marie,divorce,veuf}

end;
Delay(2000);
Goto Return;
End;

2 : Begin

writeln('Veuille saisir le matricule de l employer a chercher?');
readln(texte);
FOR i := low(employers) TO high(employers) DO
WITH employers[i] DO
BEGIN
if employers[i].matricul = texte then
begin
writeln(employers[i].nom);

writeln(employers[i].prenom);
END;
END;
Delay(2000);
Goto Return;
End;

3 : Begin

Delay(2000);
Goto Return;
End;
4 : Begin

Delay(2000);
Goto Return;
End;

5: Begin
Writeln('Quitter?');
YN := Readkey;
Case YN of
'y' : Begin
Writeln('Good Bye...');
Delay(1000);
Halt;
End;
'n' : Goto Return;
End; {End Case 2}
End;
End;

END.

[SaRa.B]

السلام عليكم
يمكنني مساعدتك إذا أردته على شكل موقع أنا لست مختص في الباسكال


شكراا لك
ممكن تفيدني بالموقع
و جزاك الله خير

[SaRa.B]

سلام
اطلب الدعاء فقط
و يمكنك تكملة البرنامج بنفسك :mh92:


program mobilisoud;
uses crt;

label return;
type
date = record
jour : 1..31;
mois : 1..12;
an : 1950..2010;
end;
statut = (celibataire,marie,divorce,veuf);
employer = record
matricul : String[50];
nom : String[50];
prenom : String[50];
date_n : Date;
diplome : String[50];
grade : Integer;
nb_enfants : Integer;
case situation : Statut of
celibataire : ();
marie : (enfants : 0..10);
divorce, veuf : (enfant : 0..10; remarie : Boolean)
end;

var
{soit disant on a declarer 100 employers }
employers : Array [1..100] of employer;

nb_emp : Integer;
i : Integer;
rep : Integer;
imprimer : Boolean;
texte : String [40];
yn : Char;


begin


return: Clrscr;
writeln('tache du programme : ');
writeln(' 1 : Saisir un employer(s)');
writeln(' 2 : Recherche employer par matricule ');
writeln(' 3 : Recherche employer par grade ');
writeln(' 4 : Le calcul du nombre d’employes ayant la situation familiale celibataire');
writeln(' 5 : Quitter le prog');
writeln('quel est votre choix ?');
readln(rep);

case rep of
1 : Begin

writeln('veuillez entrer le nombre d emplyers a saisir: ');
readln(nb_emp);

for i := 1 to nb_emp do
with employers[i] do
begin
writeln('veuille saisir le matricule de l employer n°',i,'?');
readln(employers[i].matricul); { c.a.d employers[i].matricule }
writeln('nom du employer n°.',i,' ?');
readln(employers[i].nom);
writeln('prenom du employer n°.',i,' ?');
readln(employers[i].prenom);
writeln('jour de naissance du employer n°.',i,' ?');
readln(employers[i].date_n.jour);
writeln('mois de naissance du employer n°.',i,' ?');
readln(employers[i].date_n.mois);
writeln('année de naissance du employer n°.',i,' ?');
readln(employers[i].date_n.an);
writeln('displome du employer n°.',i,' ?');
readln(employers[i].diplome);
writeln('grade du employer n°.',i,' ?');
readln(employers[i].grade);
writeln('nb enfants du employer n°.',i,' ?');
readln(employers[i].nb_enfants);
writeln('situation familiale du employer n°.',i,' ?');
readln(employers[i].situation); {celibataire,marie,divorce,veuf}

end;
delay(2000);
goto return;
end;

2 : Begin

writeln('veuille saisir le matricule de l employer a chercher?');
readln(texte);
for i := low(employers) to high(employers) do
with employers[i] do
begin
if employers[i].matricul = texte then
begin
writeln(employers[i].nom);

writeln(employers[i].prenom);
end;
end;
delay(2000);
goto return;
end;

3 : Begin

delay(2000);
goto return;
end;
4 : Begin

delay(2000);
goto return;
end;

5: Begin
writeln('quitter?');
yn := readkey;
case yn of
'y' : Begin
writeln('good bye...');
delay(1000);
halt;
end;
'n' : Goto return;
end; {end case 2}
end;
end;

end.






شكراا شكراا شكرااا
ربي يفرجها عليك كيما فرجتها علي و ربي يجازيك ان اشاء الله