[PDF] SUJET 01 : 19 mai 2016 BAC Pratique

View - Download SUJET 01 :

Previous PDF

Next PDF

BAC Pratique Informatique 2016

Corrections proposées par Mr KHARRAT Ala Eddine

Section Math & Sciences & Techniques

SUJET 01 :

Program Pronique;

Uses wincrt;

TYPE

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

VAR

T:tab;

N:integer;

(*************** Saisie ***************)

Procedure Saisie(VAR N:integer);

Begin

Repeat

Write('Entrer la taille du tableau : ');

Readln(n);

until n IN [2..10]; End; (*************** Remplissage ***************)

Procedure Remplissage(VAR T:tab; N:integer);

VAR i:integer; Begin for i:=1 to n do

Repeat

Write('T[',i,'] = ');

Readln(T[i]);

until (T[i]>=100) AND (T[i]<=999); End; (*************** Pronique ***************)

Function Nb_Pronique(N:integer):boolean;

VAR i:integer;

B:boolean;

Begin i:=9;

Repeat

i:=i+1;

B:= i*(i+1) = N;

until (B) OR ((i*(i+1))> N);

Nb_Pronique:=B;

End; (*************** Afficher ***************)

Procedure Afficher(T:tab; N:integer);

VAR i:integer; Begin

Writeln('Les nombre proniques sont : ');

for i:=1 to n do if Nb_Pronique(T[i]) then

Writeln(T[i]);

End; (*************** Programme Principale ***************) BEGIN

Saisie(N);

Remplissage(T,N);

Afficher(T,N);

END.

Devoirs et examens sur : www.Kiteb.net

BAC Pratique Informatique 2016

Corrections proposées par Mr KHARRAT Ala Eddine

Section Math & Sciences & Techniques

SUJET 02 :

Program MonoEn_V;

Uses wincrt;

TYPE

Tab=Array[1..20] of String;

VAR

T:tab;

N:integer;

V:char;

(*************** Saisie_N ***************)

Procedure Saisie_N(VAR N:integer);

Begin

Repeat

Write('Entrer la taille du tableau : ');

Readln(n);

until n IN [1..20]; End; (*************** Remplissage ***************)

Procedure Remplissage(VAR T:tab; N:integer);

VAR i,j:integer; Begin for i:=1 to n do

Repeat

Write('Donner une chaine de caractère : ');

Readln(T[i]);

j:=0;

Repeat

j:=j+1; until (UpCase(T[i][j]) IN ['A'..'Z']) OR (j=Length(T[i])); until (UpCase(T[i][j]) IN ['A'..'Z']) AND (Length(T[i]) IN [3..15]); End; (*************** Saisir_V ***************)

Procedure Saisir_V(VAR V:char);

Begin

Repeat

Write('Entrer une voyelle : ');

Readln(V);

until UpCase(V) IN ['A','E','I','O','U','Y']; End; (*************** mono_vocalisme ***************) Function mono_vocalisme(V:char; ch:String):boolean; VAR i:integer;

B:boolean;

Begin i:=0;

B:=false;

Repeat

i:=i+1; if (UpCase(ch[i]) IN ['A','E','I','O','U','Y']) then

B:= UpCase(ch[i]) = UpCase(V);

until (i=length(ch)); mono_vocalisme:=B; End; (*************** Afficher ***************)

Procedure Afficher(N:integer; T:tab; V:char );

VAR i:integer; Begin Writeln('Les mots mono-vocalismes en "a" sont : '); for i:=1 to n do if mono_vocalisme(V,T[i]) then

Writeln(T[i]);

End; (*************** Programme Principale ***************) BEGIN

Saisie_N(N);

Remplissage(T,N);

Saisir_V(V);

Afficher(N,T,V);

END.

Devoirs et examens sur : www.Kiteb.net

BAC Pratique Informatique 2016

Corrections proposées par Mr KHARRAT Ala Eddine

Section Math & Sciences & Techniques

SUJET 03 :

Program CAPTCHA;

Uses wincrt;

TYPE

Tab=Array['A'..'Z'] of integer;

VAR

T:tab;

N,i:integer;

(*************** Saisie_N ***************)

Procedure Saisie_N(VAR N:integer);

Begin

Repeat

Write('Donner le nombre de codes à générer : ');

Readln(n);

until n IN [2..10]; End; (*************** Remplir ***************)

Procedure Remplir(VAR T:tab);

VAR i:char; Begin randomize; for i:='A' to 'Z' do

T[i]:=Random(2);

End; (***************GenererCap ***************)

Function GenererCap(T:tab):String;

VAR i:char; ch:String; nb_voyelle:integer; Begin ch:=''; nb_voyelle:=0; for i:='A' to 'Z' do if (T[i]=1) then Begin

Ch:=ch+i;

if (i IN ['A','E','I','O','U','Y']) then nb_voyelle:=nb_voyelle+1; End; ch:=ch+CHR(70+nb_voyelle);

GenererCap:=ch;

End; (*************** Programme Principale ***************) BEGIN

Saisie_N(N);

for i:=1 to N do Begin

Remplir(T);

Writeln('Le code CAPTCHA n°',i,' est : ',

GenererCap(T));

writeln; End; END.

Devoirs et examens sur : www.Kiteb.net

BAC Pratique Informatique 2016

Corrections proposées par Mr KHARRAT Ala Eddine

Section Math & Sciences & Techniques

SUJET 04 :

Program MONOSANS;

Uses wincrt;

TYPE

Tab=Array[1..20] of String;

VAR

T:tab;

N:integer;

(*************** Saisie_N ***************)

Procedure Saisie_N(VAR N:integer);

Begin

Repeat

Write('Entrer la taille du tableau : ');

Readln(n);

until n IN [1..20]; End; (*************** Remplissage ***************)

Procedure Remplissage(VAR T:tab; N:integer);

VAR i,j:integer; Begin for i:=1 to n do

Repeat

Write('Donner une chaine de caractère : ');

Readln(T[i]);

j:=0;

Repeat

j:=j+1; until (UpCase(T[i][j]) IN ['A'..'Z']) OR (j=Length(T[i])); until (UpCase(T[i][j]) IN ['A'..'Z']) AND (Length(T[i]) IN [3..15]); End; (*************** mono_vocalisme_sans ***************)

Function mono_vocalisme_sans(ch:String):boolean;

VAR i,nb_occurence:integer; Begin nb_occurence:=0; for i:=1 to length(ch) do if (UpCase(ch[i]) IN ['A','E','I','O','U','Y']) then nb_occurence:=nb_occurence+1; mono_vocalisme_sans:=nb_occurence=1; End; (*************** Afficher ***************)

Procedure Afficher(N:integer; T:tab);

VAR i:integer; Begin Writeln('Les mots mono-vocalismes sans occurrences sont : '); for i:=1 to n do if mono_vocalisme_sans(T[i]) then

Writeln(T[i]);

End; (*************** Programme Principale ***************) BEGIN

Saisie_N(N);

Remplissage(T,N);

Afficher(N,T);

END.

Devoirs et examens sur : www.Kiteb.net

BAC Pratique Informatique 2016

Corrections proposées par Mr KHARRAT Ala Eddine

Section Math & Sciences & Techniques

SUJET 05 :

Program IDENTIF;

Uses wincrt;

TYPE

Tab=Array[1..9] of String;

VAR

T,Tid:tab;

N:integer; {Taille su tableau T}

(*************** Saisie_N ***************)

Procedure Saisie_N(VAR N:integer);

Begin

Repeat

Write('Donner le nombre d''utilisateurs : ');

Readln(n);

until n IN [1..9]; End; (*************** Remplissage ***************)

Procedure Remplissage(VAR T:tab; N:integer);

VAR i,j:integer; Begin for i:=1 to n do

Repeat

Write('Donner le nom de l''utilisateur n° ',i,' : ');

Readln(T[i]);

j:=0;

Repeat

j:=j+1; until NOT(T[i][j] IN ['A'..'Z']) OR (j=Length(T[i])); until (T[i][j] IN ['A'..'Z']) AND (Length(T[i]) <=20); End; (*************** FormerTI ***************) Procedure FormerTI(VAR Tid:tab; T:tab; N:integer); VAR i,j,nb_occurence:integer; ch_indice:String;

C:char;

Begin for i:=1 to n do Begin nb_occurence:=0; for j:=1 to length(T[i]) do if (T[i][j] IN ['A','E','I','O','U','Y']) then nb_occurence:=nb_occurence+1; str(i,ch_indice); if (ORD(T[i][1]) + nb_occurence) > 90 then

C:='a'

else

C:=CHR(ORD(T[i][1]) + nb_occurence);

Tid[i]:= copy(T[i],1,2) + ch_indice + C;

End; End; (*************** Afficher ***************)

Procedure Afficher(T:tab; N:integer);

VAR i:integer; Begin Writeln('La liste des identificateurs générés est : '); for i:=1 to n do

Write(' | ',T[i]:5);

End; (*************** Programme Principale ***************) BEGIN

Saisie_N(N);

Remplissage(T,N);

FormerTI(Tid, T, N);

Afficher(Tid, N);

END.

Devoirs et examens sur : www.Kiteb.net

BAC Pratique Informatique 2016

Corrections proposées par Mr KHARRAT Ala Eddine

Section Math & Sciences & Techniques

SUJET 06 :

Program PuissDiv;

Uses wincrt;

VAR a,b:integer; (*************** Saisie ***************)

Procedure Saisie(VAR a,b:integer);

Begin

Repeat

Write('a = ');

Readln(a);

Write('b = ');

Readln(b);

until (2<=a) AND (aFunction Verif(N:longint):boolean; VAR i:integer;

P:integer;

B:boolean;

Begin {calcul du produit des diviseurs de N : } P:=1; for i:=2 to (n div 2) do if (N MOD i = 0) then

P:=P*i;

{Vérification de la propriété :} i:=0;

Repeat

i:=i+1;

B:= N = P;

N:=N*N;

until (B) OR (N>P);

Verif:=B;

End; (*************** Afficher ***************)

Procedure Afficher(a,b:integer);

VAR i:integer; Begin Writeln('Les nombres de ',a,' à ',b,' vérifiant la propriété sont : '); for i:=a to b do Begin if verif(i) then writeln(i); End; End; (*************** Programme Principale ***************) BEGIN

Saisie(a,b);

Afficher(a,b);

END.

Devoirs et examens sur : www.Kiteb.net

BAC Pratique Informatique 2016

Corrections proposées par Mr KHARRAT Ala Eddine

Section Math & Sciences & Techniques

SUJET 07 :

Program Oblong;

Uses wincrt;

TYPE

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

VAR

T:tab;

N:integer;

(*************** Saisie ***************)

Procedure Saisie(VAR N:integer);

Begin

Repeat

Write('Entrer la taille du tableau : ');

Readln(n);

until n IN [2..10]; End; (*************** Remplissage ***************)

Procedure Remplissage(VAR T:tab; N:integer);

VAR i:integer; Begin for i:=1 to n do

Repeat

Write('T[',i,'] = ');

Readln(T[i]);

until (T[i]>=1000) AND (T[i]<=9999); End; (***************Nb_Oblong ***************)

Function Nb_Oblong(N:integer):boolean;

VAR i:integer;

B:boolean;

Begin i:=9;

Repeat

i:=i+1;

B:= i*(i+1) = N;

until (B) OR ((i*(i+1))> N);

Nb_Oblong:=B;

End; (*************** Afficher ***************)

Procedure Afficher(T:tab; N:integer);

VAR i:integer; Begin

Writeln('Les nombre proniques sont : ');

for i:=1 to n do if Nb_Oblong(T[i]) then

Writeln(T[i]);

End; (*************** Programme Principale ***************) BEGIN

Saisie(N);

Remplissage(T,N);

Afficher(T,N);

END.

Devoirs et examens sur : www.Kiteb.net

BAC Pratique Informatique 2016

Corrections proposées par Mr KHARRAT Ala Eddine

Section Math & Sciences & Techniques

SUJET 08 :

Program NomServeur;

quotesdbs_dbs27.pdfusesText_33

[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é

[PDF] ccf musculation dossier

[PDF] cycle musculation eps