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 ...
application (enregistrement)
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Enregistrements & fichiers
hg Previous topic :: Next topic   hd
Author Message
Sonson


Offline

Joined: 14 Sep 2010
Posts: 5
Féminin
Point(s): 5
Moyenne de points: 0

Posted: Mon 11 Oct - 17:02 (2010)    Post subject: application (enregistrement) Reply with quote

Application
Ecrivez un programme modulaire nommé ECOLE qui permet la saisie de toutes les fiches des N élèves d’une classe (4<N<30) puis d’afficher :
1-      Toutes les fiches (une par une et avec une attente jusqu’à l’appui sur la touche ENTREE)
2-      Le nombre de garçons et le nombre de filles dans la classe.
3-      Le pourcentage des élèves ayant une moyenne>= 10 par apport au nombre total des élèves.
4-      Traduisez ce programme en pascal et l’enregistrez sous le nom application


 
Revenir en haut
Publicité






Posted: Mon 11 Oct - 17:02 (2010)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
Sonson


Offline

Joined: 14 Sep 2010
Posts: 5
Féminin
Point(s): 5
Moyenne de points: 0

Posted: Mon 11 Oct - 17:04 (2010)    Post subject: application (enregistrement) Reply with quote

voila la solution en pascal
program ecole;


uses
  WinCrt;
type 
Eleves =record
              Num : integer;
              Code : string[8];
              Np : string[30];
              Sexe : char;
              Moy : Real;
end; 
Tab= array [1..30] of Eleves;
var
t:tab;
n, G, F,i :integer;


P:real;




procedure saisie (var t : tab ; var   n :integer);


begin
repeat
          write ('Donner N');
          read (n);
      until n in [4..30];
for i := 1 to n do
      with t [i] do
      begin
         write ('Donner Num : ');
         readln (num);
         write ('Donner Code');
         readln (code);
         write ('Donner Nom et Prénom : ');
         readln (np);
         write ('Donner le sexe : ');
                 repeat
                       read (sexe);
                 until (upcase (Sexe) in ['G','F']);
        write ('Moyenne =');
                repeat
                       readln (moy);
               until (moy>= 0) and (moy <= 20);
      end;
   end;


procedure affiche (t : Tab ; n :integer);
begin 
for i := 1 to N do
           with t [i] do
           begin
                  write ('Num=', num);
                  write ('Code=', code);
                  write ('NP=', np) ;
                  write ('Sexe=', moy : 3 :2);
           end;
           read;
           clrscr;
end;




procedure nbg_f (t : Tab ; n : integer ; var g, f : integer) ;
begin
g:= 0;
f:= 0;
for i := 1 to  n do
begin
                if upcase (t [i]. sexe)= 'G' then g:= g+1
                      else f:= f+1;
end;
end;






function pourcentage(t :tab ; n : integer) : real;
var
x:integer;
pr: real;
begin
 X:=  0;
for i := 1 to n do
  if t[i].moy>= 10 then x:=  x+1;


Pr := (x* 100)/n;
pourcentage:=  pr ;
end;






begin




saisie (t,n);
affiche (t,n);
nbg_f (t,n,g,f);
write ('nombre de garçon : ',G, 'nombre de fille', F) ;
writeln('');
P:=pourcentage(t,n);
write ('pourcentage= ', p : 3 : 2, '%');


end.

Okay


 
Revenir en haut
Sonson


Offline

Joined: 14 Sep 2010
Posts: 5
Féminin
Point(s): 5
Moyenne de points: 0

Posted: Mon 11 Oct - 17:10 (2010)    Post subject: application (enregistrement) Reply with quote

qu'est ce que vous poncez?

 
Revenir en haut
KARIMOS
Administrateur

Offline

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

Posted: Tue 12 Oct - 18:43 (2010)    Post subject: application (enregistrement) Reply with quote

BONNE EXERCICE AVEC EXCELLENTE CORRECTION MERCI BEAUCOUP NOUS ATTENDONS DES AUTRE EXERCICE  MERCI  BIEN  Okay Okay Okay

 
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 -> Enregistrements & fichiers All times are GMT + 1 Hour
 
Page 1 of 1

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