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

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