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 ...
application (enregistrement)
 
 
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 -> Enregistrements & fichiers
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
Sonson


Hors ligne

Inscrit le: 14 Sep 2010
Messages: 7
Féminin
Point(s): 8
Moyenne de points: 0

Posté le: Lun 11 Oct - 17:02 (2010)    Sujet du message: application (enregistrement) Répondre en citant

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


Hors ligne

Inscrit le: 14 Sep 2010
Messages: 7
Féminin
Point(s): 8
Moyenne de points: 0

Posté le: Lun 11 Oct - 17:04 (2010)    Sujet du message: application (enregistrement) Répondre en citant

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


Hors ligne

Inscrit le: 14 Sep 2010
Messages: 7
Féminin
Point(s): 8
Moyenne de points: 0

Posté le: Lun 11 Oct - 17:10 (2010)    Sujet du message: application (enregistrement) Répondre en citant

qu'est ce que vous poncez?

 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

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

Posté le: Mar 12 Oct - 18:43 (2010)    Sujet du message: application (enregistrement) Répondre en citant

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

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 17:01 (2016)    Sujet du message: application (enregistrement)

 
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 -> Enregistrements & fichiers 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