[PDF] Corrigés bac pratique informatique - apcpedagogie

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

Page 1/2

Corrigés bac pratique informatique

Sections

22 Mai 2014(14h30)

Corrigé Sujet le 22 Mai 2014 à 14h30

program mai_14h; uses wincrt; type mat=array[1..5,1..5] of char; var ft:text; mess,motcle:string; m:mat; function verifdouble(ch:string):boolean; var ok:boolean; i,j:integer; c:char; begin i:=1; ok:=true; repeat c:=ch[i];j:=1; repeat if(j<>i) and (ch[j]=c)then ok:=false else j:=j+1; until(j>length(ch)) or (ok=false); i:=i+1; until (i>length(ch)) or (ok=false); verifdouble:=ok; end; {******** fonction verif1 *****} function verif1(ch:string):boolean; var ok1,ok2:boolean; i:integer; begin ok1:=true; i:=1; {****** verifie si le mot contient des lettres majuscules sans W'} while (ok1) and (i<=length(ch) )do if(ch[i] in ['A'..'V','X'..'Z'])then i:=i+1 else ok1:=false; ok2:=verifdouble(ch); verif1:= (ok1) and (ok2); end; {****** verifie si le mot contient des lettres majuscules sans W'} function verif2(ch:string):boolean; var ok:boolean; i:integer; begin ok:=true; i:=1; while (ok) and (i<=length(ch) )do if(ch[i] in ['A'..'Z',' '])then i:=i+1 else ok:=false; verif2:= ok end; {********* affichage matrice **********} procedure affichemat(v:mat); var i,j:integer; begin for i:=1 to 5 do begin for j:=1 to 5 do write(v[i,j]:5); writeln; end; end; {******* remplissage matrice ***********} procedure remplirM(var M:mat;ch:string); var ok:boolean; i,j,l:integer; c:char; begin i:=0;l:=1;j:=0; repeat i:=i+1; j:=1; repeat m[i,j]:=ch[l]; l:=l+1; j:=j+1; until(l>length(ch)) or(j>5); until (l>length(ch)); c:='A' ; repeat if(pos(c,ch)=0)and (c<>'W')then if(j<=5) then begin m[i,j]:=c; j:=j+1; end else begin j:=1; i:=i+1; m[i,j]:=c; j:=j+1; end;

Page 2/2

c:=succ(c); until (i>5); end; function crypter(c:char;m:mat):string; var chi,chj,chcry:string;i,j:integer; begin for i:=1 to 5 do for j:=1 to 5 do if(m[i,j]=c)then begin str(i,chi); str(j,chj); chcry:=chi+chj; end; crypter:=chcry; end; procedure remplirF(var ft:text; m:mat;mess:string); var chcry,ch1:string; i:integer; begin assign(ft,'mess_crypte.txt'); rewrite(ft); chcry:=''; for i:=1 to length(mess) do if(mess[i]=' ')then chcry:=chcry+' ' else begin ch1:=crypter(mess[i],m); chcry:=chcry+ch1; end; writeln(ft,chcry); writeln(chcry); end; {******* programmme principal ********} begin assign(ft,'mess_crypte.txt'); repeat writeln('saisir Le mot clé: '); readln(motcle); until(verif1(motcle)); writeln; writeln; repeat writeln('saisir Le message à crypter '); readln(mess); until(verif2(mess)); remplirM(M,motcle); writeln; writeln; affichemat(m); writeln; writeln; remplirF(ft,m,mess); end.quotesdbs_dbs15.pdfusesText_21