[PDF] Proposé par Professeur Nesrine Rid@ne Page 1 Correction Sujet





Previous PDF Next PDF



Correction bac pratique 2014 g1

26 mai 2014 if (i mod somchiffre(i)=0) and (premier(i-1))then begin writeln(i ' est un nombre de Harshad.'); readln; end; end. Correction bac pratique 2014 ...



Corrections proposées par Mr Adnen Smii Propositions de

27 mai 2014 Propositions de correction. Bac Pratique informatique. 4 scientifiques -27 mai 2014-8h. Program BP_2014_27_Mai_8H; uses wincrt;.



Correction bac pratique informatique Section : Mathématiques

27 mai 2014 Correction bac pratique informatique. Section : Mathématiques. Sciences expérimentales. Sciences techniques. Date : 26 mai 2014 à. 8:00.



Corrections proposées par Mr ALIOUI Dhia Bac pratique

26 mai 2014 Corrections proposées par Mr ALIOUI Dhia. Bac pratique informatique sections scientifiques. 26 mai 2014 – 8h program bac2014 ; uses wincrt ;.



Corrigés Bac pratique Informatique

Corrigés Bac pratique Informatique. Correction proposée par BenHmida Haythem mai 2014 (). Mardi Mai 27 à 8H program B2705148H; uses wincrt;.



Pratique Si Algo 22 mai 2014-8h

22 mai 2014 Page 1. D e v o ir s e. t e x a m e n s s u r. : w w w .k ite b .n e t.



Pratique Si Algo 22 mai 2014-8h

22 mai 2014 Page 1. D e v o ir s e. t e x a m e n s s u r. : w w w .k ite b .n e t.



Proposé par Professeur Nesrine Rid@ne Page 1 Correction Sujet

26 mai 2014 Correction Sujet 26 Mai 2014. 8h program S26_05_2014_8h; uses wincrt; var nm:integer;. {saisie de n et m} procedure saisie (var n



Corrigés Bac Pratique Informatique - Kiteb.net

Correction proposée par. M me. FATMA Knani Gazzeh. Corrigés Bac Pratique Informatique. Section Math & Sciences & Technique. Lundi 26 mai 2014.



Corrigés Bac Pratique Informatique - Kiteb.net

Corrigés Bac Pratique Informatique Mardi 27 mai 2014 ... Correction proposée par Mme FATMA Knani Gazzeh. - Page 2 sur 6 -. For i:=1 to x1 do.



Epreuves pratiques bac 2014 - Kitebnet

Propositions des élèves (corrections des sujets BAC PRATIQUE Informatique 2014) Lundi 26 mai 2014 : 8h 9h30 11h et 14h Correction pdf téléch 8114 fois



[PDF] Correction bac pratique 2014 g1 - Kitebnet

26 mai 2014 · Bac pratique 26 mai 2014 Prof:Néjib ILAHI LYCEE ENFIDHA SOUSSE Page 1 sur 4 Correction bac pratique 2014 g1



Tous Les sujets Bac info 2014 avec correction - Exabac

Sujets BAC session principal et contrôle Toutes les matières avec correction Matière Philosophie · Arabe · Français · Anglais · Informatique · Math 



Correction BAC pratique (informatique) 2014 - section scientifique

9 mar 2019 · Bac pratique 2014 section scientifique corrigé par Yahya Ben brahim Correction BAC Durée : 24:34Postée : 9 mar 2019



[PDF] Examen du baccalauréat 2014 Corrigé de lépreuve dInformatique

Corrigé Informatique – Math + Sc Exp + Sc Tech - Bac 2014 Page 1 / 4 Examen du baccalauréat 2014 Corrigé de l'épreuve d'Informatique



[PDF] Corrigés bac pratique informatique - apcpedagogie

Corrigés bac pratique informatique Sections Science de l'informatique 22 Mai 2014(10h30) Corrigé Sujet le 22 Mai 2014 à 10h30 program mai_28_g2;



Corrigés bac pratique informatique - apcpedagogie

Corrigés bac pratique informatique Sections Science de l'informatique 22 Mai 2014(8h30) Corrigé Sujet le 22 Mai 2014 à 8h30 program suite_arith;



Les sujets du bac pratique avec correction: - Informatique

Acrobat Reader doit être installé sur votre ordinateur avant de pouvoir ouvrir les documents PDF Appuyez sur le bouton ci-dessus pour télécharger le logiciel



Devoir Pratique PDF Domaines de linformatique - Scribd

Devoir Pratique Programmation Pascal BAC Technique&Sciences by rouaissir Devoir de Synthèse N°2 - Algorithmique - Bac Informatique (2013-2014) Mr shili 



Corrigés Bac pratique Informatique - Kitebnet - Examen corrige

fait qu'il s'agit d'une proposition de correction établie par nos soins et que ce Nos catalogues à télécharger (PDF) Vuibert Guide Concours et Diplômes - 

:

Proposé par Professeur Nesrine Rid@ne Page 1

Correction Sujet 26 Mai 2014

8h program S26_05_2014_8h; uses wincrt; var n,m:integer; {saisie de n et m} procedure saisie (var n,m:integer); begin repeat writeln('donner les entiers n et m:'); readln(n,m); until (n>=100) and (nG·XQ HQPLHU` function somme (n:integer):integer; var s,i,a,e:integer; ch:string; begin str(n,ch); s:=0; for i:=1 to length(ch) do begin val(ch[i],a,e); s:=s+a; end; somme:=s; end; {fonction qui vérifie si un entier n est harshad ou non} function harsh (n:integer):boolean; begin if (n mod somme(n)=0) and (premier(Pred(n))) then harsh:=true else harsh:=false; end; {procédure qui affiche tous les entiers harshad qui existent entre deux entiers n et m} procedure affichage (n,m:integer); var i:integer; begin for i:=n to m do if harsh(i) then writeln(i, ' car ',i,' est harshad et son prédécesseur ',i-1,' est un nombre premier'); end; {programme principal} begin saisie(n,m); affichage(n,m); end.

Proposé par Professeur Nesrine Rid@ne Page 2

Correction Sujet 26 Mai 2014

9h30 program S26_05_2014_9h30; uses wincrt; var nb:integer; {saisie de nb} procedure saisie (var nb:integer); begin repeat writeln('donner un entier'); readln(nb); until (nb>=4) and (nb mod 2 = 0); end; {fonction qui vérifie si un entier n est premier ou non} function premier (n:integer):boolean; var nb,i:integer; ok:boolean; begin nb:=0; for i:=1 to n do if (n mod i=0) then nb:=nb+1; if nb=2 then ok:=true else ok:=false; premier:=ok; end; {Procédure qui affiche tous les couples de nombres premiers tels que leur somme est

égale à nb}

procedure affichage ( nb:integer); var i:integer; begin for i:=2 to nb-2 do if premier(i) and premier(nb-i) then writeln('(',i,',',nb-i,')'); end; {programme principal} begin saisie(nb); affichage(nb); end.

Proposé par Professeur Nesrine Rid@ne Page 3

Correction Sujet 26 Mai 2014

11h program S26_05_2014_11h; uses wincrt; type tab1=array[1..30] of integer; tab2=array[1..99] of integer; var

T:tab1;

TI:tab2;

n:integer; {Saisie de n} procedure saisie(var n:integer); begin repeat writeln('donner la taille du tableau:'); readln(n); until (n in [5..30]); end; {Procédure TXL UHPSOLP XQ PMNOHMX G·pOpPHQPV distincts} procedure remplissage(var t :tab1 ;n :integer) ; var i,j:integer; ok:boolean; begin repeat writeln('donner l"element 1'); readln(T[1]); until (T[1] in [1..99]); for i:=2 to n do repeat writeln('donner l"element:',i); readln(T[i]); j:=i; ok:=false; repeat j:=j-1; if T[i]=T[j] then ok:=true; until (ok=true) or (j=1); until(ok = false) and (T[i] in [1..99]); end; {Procédure qui permet de trier T selon le principe décrit} procedure tri (var T:tab1; var TI:tab2; n:integer); var i,j:integer; begin {Initialisation du tableau TI (toutes les cases à 0)} for i:=1 to 99 do

TI[i]:=0;

{Remplissage du tableau TI tel que chaque case G·LQGLŃH 7LL@ ŃRQPLHQP O·pOpPHQP 7LL@` for i:=1 to n do

TI[T[i]]:=T[i];

{Remplissage du tableau T avec les éléments différents de 0 de TI]} j:=0; for i:=1 to 99 do begin if TI[i]<>0 then begin j:=j+1;

T[j]:=TI[i];

end; end; end; {procédure qui affiche le tableau T } procedure affichage (t:tab1;n:integer); var i:integer; begin for i:=1 to n do writeln(T[i]); end; {programme principal } begin saisie(n); remplissage(T,n); tri(T,TI,n); affichage(T,n); end.

Proposé par Professeur Nesrine Rid@ne Page 4

Correction Sujet 26 Mai 2014

14h program sujet14h; uses wincrt; type tab=array[1..25] of integer; var

Nombre,TD,TA:Tab;

n,j,k:integer; {saisie de n} procedure saisie(var n:integer); begin repeat writeln('donner la taille du tableau'); readln(n); until (n in [5..25]); end; {procédure qui remplit le tableau

Nombre avec des éléments strictement

positifs} procedure remplissage(var

Nombre:tab; n:integer);

var i:integer; begin for i:=1 to n do repeat writeln('donner l"element ', i); readln(Nombre[i]); until(Nombre[i]>0); end; {fonction qui calcul la somme de diviseur G·XQ HQPLHU [ VMXI OXL PrPH` function somme_diviseur (x:integer):integer; var s,i:integer; begin s:=0; for i:=1 to (x div 2) do if x mod i = 0 then s:=s+i; somme_diviseur:=s; end ; {Procédure qui remplit les deux

Tableaux TD et TA (j et k seront les

tailles respectives de TD et TA}

Procedure transfert (Nombre:tab;var

TD,TA:tab;n:integer; var j,k:integer);

var i:integer; begin j:=0; k:= 0; for i:=1 to n do if somme_diviseur( Nombre[i])>

Nombre[i] then

begin j:=j+1; td[j]:=Nombre[i]; end else if somme_diviseur(Nombre[i])<

Nombre[i] then

begin k:=k+1; ta[k]:=Nombre[i]; end end;

S3URŃpGXUH TXL SHUPHP G·MIILŃOHU XQ

tableau} procedure affichage(T:tab; n:integer); var i:integer; begin for i:=1 to n do write (T[i],' '); end; {Programme principal} begin saisie(n); remplissage(Nombre,n); transfert(Nombre,TD,TA,n,j,k); affichage(TD,j); writeln ; affichage(TA,k) ; end. quotesdbs_dbs15.pdfusesText_21
[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] lv3 bac niveau

[PDF] lv3 bac italien

[PDF] un investisseur souhaite acheter un appartement

[PDF] metropole 20 juin 2014 maths es

[PDF] polynesie juin 2014 maths es

[PDF] sujet bac maths es 2015

[PDF] liban mai 2013 maths s corrigé

[PDF] sujet bac maths st2s corrigé