[PDF] Correction bac pratique algo 2011 - Kitebnet PDF bac-pratique-26052011-algo-corrige.pdf

Correction bac pratique 2011 g1 Sciences de l'informatique – Algorithmique et programmation- 26 mai 2011-8h30 Devoirs et examens sur : www kiteb net

EXAMEN DU BACCALAUREAT --- SESSION DE JUIN 2011 SECTION : ECONOMIE ET GESTION EPREUVE : INFORMATIQUE DUREE : 1,5h COEFFICIENT

[PDF] CORRIGÉ - BacWebtn

5 jui 2011 · Informatique : Corrigé Page 1/3 EXAMEN DU BACCALAURÉAT SESSION DE JUIN 2011 SECTION : Lettres EPREUVE : INFORMATIQUE

[PDF] bac tic 2011 - Kitebnet

23 mai 2011 · Devoirs et examens sur : www kiteb net Page 2 Devoirs et examens sur : www kiteb net Page 3 Devoirs et examens sur : www kiteb net

[PDF] Correction bac pratique algo 2011 - Kitebnet

Correction bac pratique 2011 g1 Sciences de l'informatique – Algorithmique et programmation- 26 mai 2011-8h30 Devoirs et examens sur : www kiteb net

[PDF] Section: Sciences de linformatique Session principale 2011 Matière

Section: Sciences de l'informatique Session principale 2011 Matière : Mathématiques Exercice 1 (4 points) ✓ Contenu : Nombres complexes - géométrie

bac info 2011 - DevoirTN

Page 1 Devoirs et examens sur : www kiteb net

[PDF] bac info algo 2011 - apcpedagogie

EXAMEN DU BACCALAUREAT --- SESSION DE JUIN 2011 SECTION : Sciences de l'informatique DATE : 26 mai 2011: EPREUVE PRATIQUE : Algorithmique

[PDF] Corrigé officiel complet du bac STG Gestion des - Sujet de bac

Baccalauréat technologique STG PAGE 1/8 GESTION DES SYSTÈMES D' INFORMATION – Épreuve écrite de spécialité REPÈRE : 11SPGSME1:LR1C

[PDF] Programme spécialité Informatique et Sciences du - Eduscol

Enseignement de spécialité d'informatique et sciences du numérique de la série scientifique - classe terminale NOR : MENE1119484A arrêté du 12-7-2011

[PDF] bac 2011 pdf

[PDF] bac 2012 français corrigé

[PDF] bac 2012 resultat

[PDF] bac 2013 antilles guyane session de remplacement physique

[PDF] bac 2013 histoire géo s

[PDF] bac 2014 biologie vegetala si animala

[PDF] bac 2014 fizica

[PDF] bac 2014 informatica

[PDF] bac 2015 biologie vegetala si animala

[PDF] bac 2015 informatica intensiv

[PDF] bac 2015 matematica

[PDF] bac 2015 svt obligatoire série s amérique du nord

[PDF] bac 2015 varianta 9 fizica

[PDF] bac 2016 fizica teoretic

[PDF] bac 2016 informatica c++ mate info

Bac pratique 2011 g1 Prof:Néjib ILAHI

LYCEE ENFIDHA SOUSSE Page 1 sur 9

program sujet1; uses wincrt; var ft:text; i,a,b,nb,n:longint; chi,chn,ligne:string; ok:boolean; {************** Function premier ******************} function premier(n:longint):boolean; var i,nbd:longint; begin nbd:=0; for i:=1 to (n div 2) do if(n mod i=0) then nbd:=nbd+1; if(nbd=1)then premier:=true else premier:=false; end; {**************** Fonction Mersenne ****************} procedure mersenne(m:longint;var n:longint;var ok:boolean); begin m:=m+1; n:=0; ok:=true; while(ok) and (m>1) do if(m mod 2 =0)then begin n:=n+1; m:=m div 2; end else ok:=false; if(ok=true)then if(premier(n)=false)then ok:=false else ok:=true; end;

Correction bac pratique 2011 g1

Sciences de l"informatique - Algorithmique et programmation- 26 mai 2011-8h30 Tevoirs(et(examens(sur(V(www

Bac pratique 2011 g1 Prof:Néjib ILAHI

LYCEE ENFIDHA SOUSSE Page 2 sur 9

{******************** affichage ******************} procedure affiche(var ft:text); var ligne:string; begin reset(ft); while(not(eof(ft)))do begin readln(ft,ligne); writeln(ligne); end; close(ft); end; {************** programme principal ************} begin assign(ft,"mersenne.txt"); rewrite(ft); repeat write("Donner A: "); readln(a); write("Donner B: "); readln(b); until (a>2) and (aBac pratique 2011 g2 Prof:Néjib ILAHI

LYCEE ENFIDHA SOUSSE Page 3 sur 9

program sujet2; uses wincrt; var m,n,i,nb,a,K:integer; chk,ch,ligne:string; ok:boolean; f:text; {******Premier suivant *********} function premiersuivant(j:integer):integer; var v:boolean; n,k:integer; begin n:=j; repeat n:=n+1; k:=2;

V:=true;

while(k<=n div 2) and (v) do if(n mod k=0)then v:=false else k:=k+1; until(v); premiersuivant:=n; end; {*** Décomposition en facteurs premiers ***} function decomp(a:integer):string; var j:integer; ligne,chj,cha:string; begin str(a,cha); ligne:=""; j:=2; while (a>1) do begin if( a mod j=0) then repeat str(j,chj); ligne:=ligne+chj+"*"; a:= a div j

Correction bac pratique 2011 g2

Sciences de l"informatique-Algorithmique et programmation- 26 mai 2011-10h30 Tevoirs(et(examens(sur(V(www

Bac pratique 2011 g2 Prof:Néjib ILAHI

LYCEE ENFIDHA SOUSSE Page 4 sur 9

until(a mod j<>0); j:=premiersuivant(j); end; delete(ligne,length(ligne),1); decomp:=ligne; end; {********* Somme chiffre d"un entier ******} function sommechiffre(a:integer):integer; var cha:string; v,e,s:integer; begin str(a,cha); s:=0; for i:=1 to length(cha) do begin val(cha[i],v,e); s:=s+v; end; sommechiffre:=s; end; {********* Somme facteur premier *********} function some_fact_prem(ch:string):integer; var v,e,sch:integer; ch1:string; begin sch:=0; ch:=ch+"*"; while(pos("*",ch)<>0)do begin ch1:=copy(ch,1,pos("*",ch)-1); if(length(ch1)=1)then val(ch1,v,e) else begin val(ch1,v,e); v:=sommechiffre(v); end; sch:=sch+v; delete(ch,1,pos("*",ch)); end; some_fact_prem:=sch; end;

Tevoirs(et(examens(sur(V(www
Bac pratique 2011 g2 Prof:Néjib ILAHI

LYCEE ENFIDHA SOUSSE Page 5 sur 9
{*Fonction vérifiant si n est rigolo ou non } procedure rigolo(a:integer;var ch:string;var ok:boolean); var s,sch:integer; begin s:=sommechiffre(a); ch:=decomp(a); sch:=some_fact_prem(ch); if(s=sch)then ok:=true else ok:=false; end; {********* affichage *} procedure affiche(var f:text); var ligne:string; begin reset(f); while(not(eof(f)))do begin readln(f,ligne); writeln(ligne); end; end; {** programme principal} begin assign(f,"resultat.txt"); rewrite(f); repeat write("Donner M: "); readln(m); write("Donner N: "); readln(n); until (m>100) and (mBac pratique 2011 g2 Prof:Néjib ILAHI

LYCEE ENFIDHA SOUSSE Page 6 sur 9
ligne:=chk+"= "+ch+" est un nombre rigolo."; writeln(ligne); readln; writeln(f,ligne); end; end; clrscr; if(nb=0)then writeln("Il n""y a aucun nombre rigolo.") else begin writeln(" Les nombres rigolo entre [",m,",",n,"] sont: "); writeln; writeln; affiche(f); end; close(f); end.
Tevoirs(et(examens(sur(V(www
Bac pratique 2011 g3 Prof:Néjib ILAHI

LYCEE ENFIDHA SOUSSE Page 7 sur 9
program sujet3; uses wincrt; type nombre = record nb_dec:string; mention:string; end; fnombre = file of nombre; var f:text; fd:fnombre; n:integer; { Remplissage *} procedure remplir(var f:text;n:integer); var i:integer;ligne:string; begin assign(f,"chaines.txt"); rewrite(f); for i:=1 to n do begin repeat write("Saisir une chaine: "); readln(ligne); until (length(ligne) in [1..9]); writeln(f,ligne); end; close(f); end; {*** divisibilité par 11 } function div11(ch:string):boolean; var spaire,simpaire,i,v,e:integer; begin spaire:=0;simpaire:=0; for i:=1 to length(ch) do begin val(ch[i],v,e); if(i mod 2=0)then spaire:=spaire+v else simpaire:=simpaire+v; end;
Correction bac pratique 2010 g3
Sciences de l"informatique-Algorithmique et programmation- 26 mai 2011-14h30
Tevoirs(et(examens(sur(V(www
Bac pratique 2011 g3 Prof:Néjib ILAHI

LYCEE ENFIDHA SOUSSE Page 8 sur 9
if(abs(spaire-simpaire)mod 11=0)then div11:=true else div11:=false; end; { Extraire un nombre d"une chaine } function extraction(ch:string):string; var i:integer;res:string ; begin res:=""; for i:=1 to length(ch) do if(ch[i] in ["0".."9"])then res:=res+ch[i]; extraction:=res; end; { Extraction } procedure extraire(var f:text; var fd:fnombre;n:integer); var nb:nombre;i:integer;ligne,v:string; begin reset(f); assign(fd,"nombres.dat"); rewrite(fd); for i:=1 to n do begin readln(f,ligne); v:=extraction(ligne); with nb do if(v="")then begin nb_dec:="1999999999"; mention:="Ce n""est pas un nombre décimal."; end else begin nb_dec:=v; if(div11(v))then mention:=" est divisible par 11." else mention:=" n""est pas divisible par 11." end; Tevoirs(et(examens(sur(V(wwwBac pratique 2011 g3 Prof:Néjib ILAHI

LYCEE ENFIDHA SOUSSE Page 9 sur 9
write(fd,nb); end; close(f); close(fd); end; procedure affiche(var fd:fnombre;n:integer); var i:integer; nb:nombre; begin reset(fd); for i:=1 to n do begin read(fd,nb); with nb do writeln("Nb_dec: ",nb_dec," ",mention); end; close(fd); end; { pp *****} begin repeat write("Donner le nombre de chaines: "); readln(n); until (n<50); remplir(f,n); extraire(f,fd,n); writeln; writeln; writeln("----- CONTENU DU FICHIER NOMBRES.DAT -----"); writeln; writeln; affiche(fd,n); end. Tevoirs(et(examens(sur(V(www

[PDF] [PDF] Correction bac pratique algo 2011 - Kitebnet

[PDF] EXAMEN DU BACCALAUREAT --- SESSION DE JUIN 2011