hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , vous devez
 inscrire sur notre forum a partir d'ici
   NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
 
forum d'aide informatique : internet, réseau, programmation informatique ...
Exercice 13 Page 71
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Previous topic :: Next topic   hd
Author Message
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Sat 19 Feb - 21:26 (2011)    Post subject: Exercice 13 Page 71 Reply with quote

Solution
Auteur : KARIMOS
Date : 17  02 2011  23:04

Il faut Crée un fichier dés le début Classes/RC.dat

Code:

                                         program exercice13;

uses wincrt;

type
classe = record
         nom:string[20];
         prenom:string[20];
         moy:real;
         end;
FC=file of classe;
RR=file of string;







procedure saisirClasse(var classe:string);
          begin

          write('Classe : ');readln(classe);
          classe:=classe+'.FCH';
          end;


procedure RemplirClasse;
           var
           E:classe;
           i,n:integer;
           Cl:string;
           F:FC;
           R:RR;
          begin

            saisirClasse(Cl);
                   assign(R,'classes/RC.dat');
              reset(R);
              seek(R,filesize(R));
              write(R,Cl);


                assign(F,'classes/'+Cl);
                rewrite(F);

          write('Nombre d''élèves : ');readln(n);

          rewrite(F);
          for i:=1 to n do
              begin
                   with E do
                   begin
                  writeln('     # ELEVE ',i,' :');
                    write('           Nom : ');readln(nom);
                    write('        Prénom : ');readln(prenom);
                    write('       Moyenne : ');readln(moy);
                    writeln;
                    end;
                 write(F,E);
              end;
         
          end;

procedure LectureClasse(var F:FC);
          var
          E:classe;
          begin
             while not(eof(F)) do
             begin
                   read(F,E);

                       with E do
                         begin
                    writeln('Nom : ':20,'Prénom : ':20,'Moyenne :':20);
                    writeln(nom:20,prenom:20,moy:20:2);
                    end;
          end;
               
          end;


procedure LectureEleve(var F:FC);
          var
          n:integer;
          E:classe;
          begin

               write('Eleve numero : ');readln(n);

               seek(F,n-1);
               read(F,E);
               
               with E do
                   begin
                    writeln('Nom : ':20,'Prénom : ':20,'Moyenne :':20);
                    writeln(nom:20,prenom:20,moy:20:2);
                    end;


          end;



              procedure lectureFichiers(var F:FC);
                        var
                        Cl,ch:string;
                        R:RR;
                        begin
                                assign(R,'classes/RC.dat');
              reset(R);
                        while not(Eof(R)) do
                              begin
                              read(R,Ch);
                              writeln('  ',ch);
                              end;

                     saisirClasse(Cl);
                           assign(F,'classes/'+Cl);
                reset(F);
                        end;
         
     procedure Menu2;
          var
          k:char;
          F:FC;
          begin
                clrscr;
           writeln(' A - Eleve');
           writeln(' B - Classe');
           writeln;
           writeln('     C - Quiter');

                repeat
          write('Votre Choix> ');readln(k);
          k:=upcase(k);
          until(k in ['A'..'C']);

                        if (k<>'C')then
                            begin
                    lectureFichiers(F);

              case k of
              'A':LectureEleve(F);
              'B':LectureClasse(F);
                end;
          end;
          end;


procedure Menu1;
          var
          k:char;
          begin
          clrscr;
          writeln('     A - Lecture');
          Writeln('     B - Ecriture');
          writeln;
          writeln('         C - Quiter');
          repeat
          write('Votre Choix> ');readln(k);
          k:=upcase(k);
          until(k in ['A'..'C']);

             if (k='A') then
             menu2
             else if (k='B') then
             RemplirClasse;

              if (k<>'C')then
              begin
             writeln('Continuez ?');
             readkey;
           menu1;
           end;
          end;

     

BEGIN



Menu1;



END.


 
Revenir en haut
Publicité






Posted: Sat 19 Feb - 21:26 (2011)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Conditions générales d'utilisation