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 ...
Correction de quelques Bac Pratique 2005
 
 
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: Mar 1 Déc - 17:51 (2009)    Sujet du message: Correction de quelques Bac Pratique 2005 Répondre en citant

PublicitéSupprimer les publicités ?
J'ai remarqué que dans le livre (Algorithmique et Programmation 3éme Sc Info) il y avait des sujets du bac pratique de la page 174 à la page 179, et j'ai vu qu'il serait utile de poster les corrections.

On commence par l'exercice N°1 page 174 :
On se propose de chercher puis d'afficher la moyenne d'une classe comportant 30 élèves.
Questions :
  1. Définissez les structures de données à utiliser.
  2. Décomposezce problèmeen modules et analyser chacun des modules proposés
  3. Traduisez la solution en un programme Pascal


Solution :

Code:
program ex1;
uses wincrt;

const n=30;

type TTab=array[1..n]of real;

var T:TTab;

procedure remplir(var T:TTab;n:integer);
  var  i:integer;
  begin
    for i:=1 to n do
        repeat
          write(' T[',i,']= ');
          readln(T);
        until (1<=T)AND(T<=20);
  end;

function somme(T:TTab;n:integer):integer;
  var s:real;
      i:integer;
  begin
      s:=0;
      for i:=1 to n do
        s:=s+t;
      somme:=s;
    end;

procedure affiche(T:TTab;n:integer);
  begin
      writeln(' La moyenne est :',(somme(T,n)/n):0:2);
  end;

begin
  remplir(t,n);
  affiche(t,n);
end.

telecharger la correction on format pdf ici


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 17:00 (2016)    Sujet du message: Correction de quelques Bac Pratique 2005

 
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