hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, 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
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Sam 19 Fév - 21:26 (2011)    Sujet du message: Exercice 13 Page 71 Répondre en citant

PublicitéSupprimer les publicités ?
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
Contenu Sponsorisé






Posté le: Aujourd’hui à 05:09 (2016)    Sujet du message: Exercice 13 Page 71

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation