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

SaRa.B · 2018-04-15, 08:33

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

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 · 2018-04-15, 19:00

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

brahim016 · 2018-04-15, 20:33

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

mobilisoud · 2018-04-16, 11:48

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

كود PHP:


			
  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 · 2018-04-18, 16:55

اقتباس:

المشاركة الأصلية كتبت بواسطة brahim016

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

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

SaRa.B · 2018-04-18, 17:00

اقتباس:

المشاركة الأصلية كتبت بواسطة mobilisoud

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

كود PHP:


			
  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.

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