Sciences de l'informatique

Bienvenue dans notre forum de partage et d'échange d'information technique dans le domaine NTIC (Informatique, Programmation, Réseau, Multimédia), ce forum est destinée à tous les élèves Tunisiens
 
AccueilCalendrierFAQMembresGroupesS'enregistrerConnexion
Sujets similaires
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 6 le Ven 13 Jan - 2:22

Partagez | 
 

 Exercice 3 (Enregistrement et fichiers)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin
avatar

Messages : 74
Date d'inscription : 02/03/2011

MessageSujet: Exercice 3 (Enregistrement et fichiers)   Dim 27 Mar - 2:04

Exercice 3 (Enregistrement et fichiers)

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


orrection de l'exercice

Code:
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.
santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa santa
Revenir en haut Aller en bas
http://ntic.moontada.net
 
Exercice 3 (Enregistrement et fichiers)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» les exercice de chimie 2
» حل مشكل أختفاء option de dossier + تفعيل الخاصية

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Sciences de l'informatique :: 4ème SI :: Programmation :: Exercices & Devoirs-
Sauter vers: