Corrigé : Algorithmique et Programmation Session principale
Corrigé : Algorithmique et Programmation. Section : Sciences de l'informatique. Session principale Baccalauréat 2017. Exercice N°1 : (2.25 points = 9*0.25).
Correction Page 1 Année scolaire : 2016/2017 Bac pratique
25 mai 2017 Correction. Page 1. Année scolaire : 2016/2017. Bac pratique informatique. Date : 25/05/2017. HADHRI Aymen. Sections Scientifiques.
Corrigé : Algorithmique et Programmation Session de contrôle 2017
Corrigé : Algorithmique et Programmation. Section : Sciences de l'informatique. Session de contrôle 2017. Exercice 1 : (3 points). Question n°1 :.
Corrigé Examen Informatique - Bac 2017 - Section Sc.Exp. Math Sc
Baccalauréat 2017 - Section: Sc.Exp+Math+Sc.Tech.*** Corrigé de l'épreuve d'Informatique *** Proposé par Moez Romdhane (?Moez.
Corrigé : Bases de données Session principale - Baccalauréat 2017
Corrigé : Bases de données. Section : Sciences de l'informatique. Session principale - Baccalauréat 2017. Exercice 1 (2 points= 4 * 05 point).
Bac pratique 2017-cryptage
Jeudi 25 mai 2017 bac scientifique – Sujet 8. Correction proposée par: karabaka hajer program cryptage; uses wincrt; var M :string;.
Corrigé de lépreuve de Français Session de Contrôle 2017
Sections : Mathématiques sciences expérimentale
Corrigé : Base de Données Session de contrôle 2017 Exercice 2 (9
Page 1 / 3. Corrigé : Base de Données. Section : Sciences de l'informatique. Session de contrôle 2017. Exercice 1 (3 points= 0.25 point *12).
Corrigé de lépreuve de Français Session principale 2017 Sections
Sections : Mathématiques sciences expérimentale
Corrigé Informatique Sections : Mathématiques Sciences
Corrigé Informatique Sections : Mathématiques Sciences expérimentales
Var test:boolean; i: integer;
Begin test:= true; i:= 1; if (length(ch) mod 2 =0) then begin repeat if not (ch[i] in ['A'..'Z',' ']) then test := false else i:= i+1; until (test ) ; End else test:= false; valide := test; end; procedure saisie(var ch:string); beginRepeat
WriteLn('donner une chaine de longueur paire');
Readln(ch);
until (verif(ch)) ; end;Devoirsyetyexamensysury>ywww'kiteb'net
function determine(c:char): integer; Var x:integer; begin if c <> ' ' then x:= ord(c)-65 else x:= 26; determine := x; end;
function trans(y:integer):char; Var c:char; Begin if y = 26 then c:= ' ' else c:= chr(65+ y); trans:= c; end;
function calcul1(x1,x2:integer):integer; var y :integer; Begin y:= ((11*x1) + (3*x2)) mod 27; calcul1:= y; end; function calcul2(x1,x2:integer):integer; var y :integer; Begin y:= ((7*x1)+ (4*x2)) mod 27; calcul2:= y; end;Devoirsyetyexamensysury>ywww'kiteb'net
function crypter(ch:string):string; var ch1,chresult:string; i,x1,x2,y1,y2:integer; Begin i:= 1; chresult:= ''; Repeat
ch1:= copy(ch,i,2); x1:= determine(ch1[1]); x2:= determine(ch1[2]); y1:= calcul1(x1,x2); y2:= calcul2(x1,x2); chresult:= chresult + trans(y1)+ trans(y2); i:= i+2; until i >= length(ch); crypter:= chresult; end; Begin saisie(M); writeln(crypter(M)); end. Devoirsyetyexamensysury>ywww'kiteb'net
quotesdbs_dbs50.pdfusesText_50[PDF] correction bac maths 2015
[PDF] correction bac maths antilles guyane septembre 2015
[PDF] correction bac maths asie 2013
[PDF] correction bac maths centres etrangers juin 2017
[PDF] correction bac nouvelle caledonie 2017
[PDF] correction bac philo 2007
[PDF] correction bac physique 2014 sti2d mesure du debit cardiaque
[PDF] correction bac physique antilles 2015
[PDF] correction bac physique liban
[PDF] correction bac physique pondichéry 2017
[PDF] correction bac pratique informatique 19 mai 2016
[PDF] correction bac s allemand lv1 2014
[PDF] correction bac s maths antilles guyane septembre 2014
[PDF] correction bac s maths liban 2017
