[PDF] Corrections proposées par Mr Adnen Smii Propositions de

Correction bac pratique 2014 g1 - Kiteb : Kitebnet

Correction bac pratique 2014 g2 Bac pratique 26 mai 2014 Prof:Néjib ILAHI LYCEE ENFIDHA SOUSSE Page 3 sur 4

Corrections proposées par Mr Adnen Smii Propositions de

Corrections proposées par Mr Adnen Smii Propositions de correction Bac Pratique informatique 4 scientifiques -26 mai 2014-9h30 Program BP_2014_9H30;

Corrigés bac pratique informatique - apcpedagogie

Page 1/2 Corrigés bac pratique informatique Sections Science de l’informatique 22 Mai 2014(14h30) Corrigé Sujet le 22 Mai 2014 à 14h30 program mai_14h; uses wincrt;

Examen du baccalauréat Session principale juin 2014 Epreuve

Corrigé d'Algorithmique et programmation-SI-Session principale juin 2014 Page 1/6 Examen du baccalauréat Session principale juin 2014 Section : sciences de l'informatique Epreuve : Algorithmique et programmation Corrigé Exercice 1 : 1 après l'exécution du programme Jeux ci dessus pour N=1, le message affiché sera :

Centrale Informatique MP 2014 — Corrigé

Centrale Informatique MP 2014 — Corrigé Ce corrigé est proposé par Vincent Puyhaubert (Professeur en CPGE); il a été relu par Benjamin Monmege (ENS Cachan) et Guillaume Batog (Professeur en CPGE) L’épreuve d’informatique du concours Centrale s’intéresse cette année au jeu po-pulaire du sudoku

Sujets du bac 2014 corrigés - Éditions Ellipses

000698_sujetsBac_2014 indd 11 20/08/2014 14:28 12 Sujets du bac 2014 corrigés Lorcan is highly imaginative and an artist, nonetheless, he can only use it when

Programmation C Exemple de correction TP 2

all: make exo1 make exo2 make exo3 make exo4 make exo5 exo1: exo1 c gcc -o HelloWorld exo1 c -Wall -ansi exo2: exo2 c exo2_bis c gcc -o Sum exo2 c -Wall -ansi

CONCOURS - Dunod

Sujet 3 : Session 2014 - Français 157 Corrigés 160 Sujet 4 : Session 2014 - Français 162 Corrigés 164 L’épreuve d’établissement d’un tableau numérique 1 Modalités de l’épreuve 168 2 Conseils 168 Sujet 5 : Session 2018 - Établissement d’un tableau numérique 169 Corrigés 170 Sujet 6 : Session 2016 - Établissement

Chapitre 6 Procédures d’élaboration d’une épreuve d’évaluation

d’élaboration d’une grille de correction en utilisant l’Instrument 6 H : Tâches pour construire le ou les instruments de collecte de données 2 Pour évaluer une cible de formation étudiée dans les étapes précédentes de la présente activité, remplir la grille de correction proposée de l’Instrument 6 H 3

Annales corrigées nº 47 – Technicien territorial et

6 Technicien territorial 2014 Annales corrigées – concours de la fonction publique territoriale Spécialité « Prévention et gestion des risques, hygiène, restauration »

[PDF] correction bac pratique informatique 2012

[PDF] correction bac pratique informatique 2015

[PDF] correction bac pratique informatique 2016

[PDF] bac latin notation

[PDF] programme latin bac 2017

[PDF] conseils bac de latin

[PDF] bac grec oral

[PDF] liban 2015 maths es

[PDF] corrigé bac liban 2016

[PDF] corrigé bac es liban 2017

[PDF] bac lv3 grille d'évaluation

[PDF] lv3 bac niveau

[PDF] bac lv3 allemand

[PDF] lv3 bac italien

[PDF] antilles — guyane 19 juin 2014

Corrections proposées par Mr Adnen Smii

Propositions de correction

Bac Pratique informatique

4 scientifiques -26 mai 2014-8h

Program BP2014_8H;

uses wincrt; VAR

M,N:integer;

Procedure Saisie(var N,M:integer);

Begin

Repeat

write('Bornes de l''intervalle (>=100) : '); readln(N,M);

Until(N>=100) and (M>N);

End;

Function Som_Chiffres(N:integer):integer;

var i,x,e,S:integer; ch:String; Begin S:=0;

STR(N,ch);

For i:= 1 to Length(ch) do

begin

VAL(ch[i],x,e);

S:=S+x;

end;

Som_Chiffres:=S;

End;

Function Premier(N:integer):Boolean;

var i:integer;

Pr : boolean;

Begin i:=2;

Pr :=True;

While(i<= N div 2 ) and (Pr = True) do

begin if(N mod i = 0)then

Pr:=False

Else i:=i+1;

Page 1Corectinosno péoainiMtAdnSSSmPcsoBmaos

Corrections proposées par Mr Adnen Smii

end;

Premier := Pr;

End;

Procedure Affichage(N,M:integer);

var i,S:integer; Begin

For i:=N to M do

begin if(i MOD Som_Chiffres(i) = 0) and (Premier(Pred(i))) then writeln(i); end; End; BEGIN

Saisie(N,M);

Affichage(N,M);

END.

Page 2Corectinosno péoainiMtAdnSSSmPcsoBmaos

Corrections proposées par Mr Adnen Smii

Propositions de correction

Bac Pratique informatique

4 scientifiques -26 mai 2014-9h30

Program BP_2014_9H30;

uses wincrt; VAR

N:integer;

Procedure Saisie (var N : integer);

Begin

Repeat

write('Donner un entier pair >= 4 : '); readln(N);

Until(N>=4) and (N MOD 2 = 0);

End;

Function Premier(N:integer):Boolean;

var i:integer;

Pr : boolean;

Begin i:=2;

Pr :=True;

While(i<= N div 2 ) and (Pr = True) do

begin if(N mod i = 0)then

Pr:=False

Else i:=i+1; end;

Premier := Pr;

End;

Procedure Affichage(N:integer);

var i:integer; Begin

For i:= 2 to (N-2) do

Begin if(Premier(i) and Premier(N-i))then writeln(i,' ',N-i); End; End;

Page 3Corectinosno péoainiMtAdnSSSmPcsoBmaos

Corrections proposées par Mr Adnen Smii

BEGIN

Saisie(N);

Affichage(N);

END.

Page 4Corectinosno péoainiMtAdnSSSmPcsoBmaos

Corrections proposées par Mr Adnen Smii

Propositions de correction

Bac Pratique informatique

4 scientifiques -26 mai 2014-11h

Program BP_2014_11H;

uses wincrt; TYPE

Tab=Array[1..99] of integer;

VAR

T,T1:Tab;

N:integer;

Procedure Saisie(var N: integer);

Begin

Repeat

write('Taille du tableau [5..30] : '); readln(N);

Until(N in [5..30]);

End;

Function Existe(T:Tab;N,x:integer):Boolean;

var i:integer; Begin i:=1; while(i<=N) and (T[i] <> x) do i:=i+1;

Existe :=(i<=N);

End;

Procedure Remplissage(var T:Tab;N:integer);

var i:integer; Begin

For i:=1 to N do

begin

Repeat

write('T[',i,'] = '); readln(T[i]); Until(T[i] in [1..99]) and (Not(Existe(T,i-1,T[i]))); end; End;

Procedure Initialisation(var T:Tab);

Page 5Corectinosno péoainiMtAdnSSSmPcsoBmaos

Corrections proposées par Mr Adnen Smii

var i:integer; Begin

For i:=1 to 99 do

T[i] :=0;

end;

Procedure Trier(var T:Tab;var T1:Tab;N:integer);

var i,j:integer; Begin

For i:=1 to N do

T1[T[i]] :=T[i];

j:=0;

For i:= 1 to 99 do

begin if(T1[i]<>0)then begin j:=j+1;

T[j]:=T1[i];

end; end; End;

Procedure Affichage(T:Tab;N:integer);

var i:integer; Begin

For i:=1 to N do

write(T[i],'|'); End; BEGIN

Saisie(N);

Remplissage(T,N);

Initialisation(T1);

Trier(T,T1,N);

Affichage(T1,N);

END.

Page 6Corectinosno péoainiMtAdnSSSmPcsoBmaos

Corrections proposées par Mr Adnen Smii

Propositions de correction

Bac Pratique informatique

4 scientifiques -26 mai 2014-14h

Program BP_2014_14H;

uses wincrt; TYPE

Tab = Array[1..25] of integer;

var

T,TD,TA:Tab;

N,ND,NA:integer;

Procedure Saisie(var N:integer);

Begin

Repeat

write('Taille du tableau [5..25] : '); readln(N);

Until( N in [5..25]);

End;

Procedure Remplissage(var T:Tab;N:integer);

var i:integer; Begin

For i:=1 to N do

begin

Repeat

write('T[',i,'] = '); readln(T[i]);

Until(T[i] >0);

end; End;

Function Som_Diviseurs(N:integer):integer;

var

S,i:integer;

Begin S:=1;

For i:=2 to ( N div 2 ) do

begin if( N MOD i = 0)then

S :=S+i;

end;

Som_Diviseurs :=S;

Page 7Corectinosno péoainiMtAdnSSSmPcsoBmaos

Corrections proposées par Mr Adnen Smii

End; Procedure Transfert(T:Tab;N:integer;var TA,TD:Tab;var NA,ND:integer); var i:integer; Begin

NA:=0;ND:=0;

For i:=1 to N do

Begin if(T[i] > Som_Diviseurs(T[i]))then begin

NA:=NA+1;

TA[NA] := T[i];

end; if(T[i] < Som_Diviseurs(T[i]))then begin

ND:=ND+1;

TD[ND] :=T[i];

end; End; End;

Procedure Affichage(T:Tab;N:integer);

var i:integer; Begin

For i:=1 to N do

write(T[i],'|'); End; BEGIN

Saisie(N);

Remplissage(T,N);

readln;

CLRSCR;

Transfert(T,N,TA,TD,NA,ND);

writeln('Affichage des éléments abondants : ');

Affichage(TA,NA);

writeln; writeln('Affichage des éléments Déficients : ');

Affichage(TD,ND);

END.

Page 8Corectinosno péoainiMtAdnSSSmPcsoBmaos

quotesdbs_dbs15.pdfusesText_21