proposition correction bac2011 14h30 .pdf


Nom original: proposition_correction_bac2011_14h30.pdfTitre: proposition_correction_bac2011_14h30Auteur: hp

Ce document au format PDF 1.4 a été généré par PDFCreator Version 1.5.0 / GPL Ghostscript 9.05, et a été envoyé sur fichier-pdf.fr le 14/04/2018 à 19:20, depuis l'adresse IP 41.224.x.x. La présente page de téléchargement du fichier a été vue 192 fois.
Taille du document: 104 Ko (2 pages).
Confidentialité: fichier public

Aperçu du document


MINISTERE EDUCATION TUNISIENNE
--- --------------------------------------------------------

Proposition de correction bac Pratique
2011 - séance 14h 30 minutes

Epreuve :
Informatique
Section :
Sciences Expérimentales
Durée : 1 heure
Coefficient :
1
Classe : 4 sciences Expérimentales 2

Programme pascal
program bac2013_9h30;
uses wincrt ;
type
tab = array[1..25]of integer ;
var
n,elt,nbr : integer ;
t : tab;
{------------------------ Saisie d'un entier n compris entre 5 et 25 -------------------------}
procedure saisie(var n : integer);
begin
repeat
begin
write('N = ');
readln(n);
end;
until n in [5..25];
end;
{------------------------ Remplissage d'un tableau t de n entiers -------------------------}
procedure remplir(var t : tab; n : integer);
var
i : integer;
begin
for i:= 1 to n do
begin
write('t[',i,'] = ');
readln(t[i]);
end;
end;
{------ retourne le nombre d'occurences(répétitions) d'un entier x dans un tableau t de n entiers -------- }
function repetition(x : integer ; t : tab ; n : integer) : integer ;
var nbr,i:integer;
begin
nbr := 0;
for i:= 1 to n do
if t[i]=x then nbr:=nbr +1;
repetition := nbr;
end;
{--- retourne le résultat de recherche (true ou false) d'un entier x dans un tableau t de n entiers ----- }
function existant(x : integer ; t : tab ; n : integer) : boolean;
var
i : integer;
b : boolean;
begin
i:=0;
repeat
i:=i+1;
until (x = t[i]) or (i=n);
if x = t[i] then existant := true else existant := false;
end;
Proposé le Samedi 14 Avril 2018
Année scolaire : 2017 - 2018

{---- retourne l'élément majoritaire et son nombre d'occurrences dans un tableau t de n entiers ---- }
procedure majoritaire(t : tab ; n : integer ; var elMaj , nbMaj : integer);
var
i : integer ;
begin
elMaj := t[1];
nbMaj := repetition(elMaj,t,n);
for i:= 2 to n do
if(nbMaj< repetition(t[i],t,n)) and (not(existant(t[i],t,i-1)))then
begin
nbMaj:=repetition(t[i],t,n);
elMaj:= t[i];
end;
end;
{------ affiche l'élément majoritaire -------- }
procedure affiche(elt,nb,n:integer);
begin
if nb <= n div 2 then
write('Il n''existe pas un element majoritaire dans le tableau')
else
write('L''element majoritaire dans le tableau est ',elt);
end;
{---------------------------------------------- PROGRAMME PRINCIPALE --------------------------------------------}
begin
saisie(n);
remplir(t,n);
majoritaire(t,n,elt,nbr);
affiche(elt,nbr,n);
end.

Proposé le Samedi 14 Avril 2018

Année scolaire : 2017 - 2018


proposition_correction_bac2011_14h30.pdf - page 1/2


proposition_correction_bac2011_14h30.pdf - page 2/2



Télécharger le fichier (PDF)

proposition_correction_bac2011_14h30.pdf (PDF, 104 Ko)

Télécharger
Formats alternatifs: ZIP



Documents similaires


proposition correction bac2011 14h30
proposition correction bac2013 09h30
fiche7 ex sous programme
les methodes de recherche
bac2014seance14h
sousprogrammes utiles

Sur le même sujet..