Exercice de révision BAC PRATIQUE 2012 + corrigé
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal
Page 1 sur 1
Exercice de révision BAC PRATIQUE 2012 + corrigé
par Napoléon Lun 28 Mai - 1:08
ENONCE:
Remplir un tableau T par N (2
(b) aucun entier ne doit exister plus que 2 fois dans le tableau.
Puis afficher les informations suivantes:
(a) le plus grand entier pair
(b) le plus petit entier impair
Napoléon- Admin
-
Nombre de messages : 2934
Localisation : Tunisie
Réputation : 122
Points : 7871
Date d'inscription : 19/03/2007
Feuille de personnage
Capacité linguistique:
(999/1000) -
Re: Exercice de révision BAC PRATIQUE 2012 + corrigé
par Napoléon Lun 28 Mai - 1:09
La solution proposée écrite en PASCAL:
- Code:
uses wincrt;
Type
TAB = array[1..100] of integer;
Function Occurence(x: integer; t:TAB; pos: integer): integer;
var i,occ: integer;
begin
occ := 0;
for i:=1 to pos do
begin
if (t[i] = x) then occ := occ + 1;
end;
occurence := occ;
end;
Procedure Saisie(var t:TAB; var n: integer);
var i,x: integer;
begin
repeat
write('Taille du tableau: ');
readln(n);
until (n in [3..99]);
for i:=1 to n do
begin
repeat
write('T[',i,'] = '); readln(T[i]);
until (T[i] mod 2 = i mod 2) and (Occurence(T[i], T, i) <= 2);
end;
end;
Function maxPair(t:TAB; n:integer):integer;
var max, i: integer;
begin
max := t[2];
for i:=4 to n do
if ((i mod 2=0) and (max < t[i])) then
max := t[i];
maxPair := max;
end;
Function minImpair(t:TAB; n:integer):integer;
var min, i: integer;
begin
min := t[1];
for i:=3 to n do
if ((i mod 2=1) and (min > t[i])) then
min := t[i];
minImpair := min;
end;
Procedure AfficheTab(t:TAB; n: integer);
var i: integer;
begin
for i:=1 to n do
writeln('T[',i,'] = ',t[i]);
end;
VAR
T: TAB;
N: integer;
BEGIN
Saisie(T, N);
AfficheTab(T, N);
Writeln('Le plus grand entier pair = ', maxPair(T, N));
Writeln('Le plus petit entier impair = ', minImpair(T, N));
END.
Napoléon- Admin
-
Nombre de messages : 2934
Localisation : Tunisie
Réputation : 122
Points : 7871
Date d'inscription : 19/03/2007
Feuille de personnage
Capacité linguistique: (999/1000) -
Sujets similaires» Exercice corrigé Bac 2009 Pratique: Tri par bloc (info)
» Exercice corrigé Bac 2009 Pratique: Somme de blocs de nombres d'un tableau
» Révision info (BAC/Pratique) - sujet n°1
» Exercice de révision sur les fichiers typés
» Corrigé bac pratique 2011 Sciences Informatique (8h 30 minute)
» Exercice corrigé Bac 2009 Pratique: Somme de blocs de nombres d'un tableau
» Révision info (BAC/Pratique) - sujet n°1
» Exercice de révision sur les fichiers typés
» Corrigé bac pratique 2011 Sciences Informatique (8h 30 minute)
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum