27 mai 2013 Procedure remplir_mat(var M:tab1;n:integer); var i:integer; begin repeat write('Donner la matricule n° 1: '); readln(M[1]);.
28 mai 2013 procedure affiche(t : tab_s ; n : integer ; max : string); var i : integer; begin. Writeln('Le plus grand degré d''urgence est ' max);.
27 mai 2013 program bac2013_8h; uses wincrt; type tab1=array[1..100]of string; tab2=array[1..100]of integer; var score:tab2;matricule:tab1;ni:integer;.
program Bac28mai2013_14h; uses wincrt; type tab = array[1..20] of integer; var n : integer; t : tab; procedure saisir(var n:integer);.
27 mai 2013 function verif (ch:string):boolean; var test:boolean; i:integer; begin test:=true; for i:= 1 to length(ch) do if not(ch[i] in ['0'.
27 mai 2013 procedure saisir(var n:string); var i:integer;ok:boolean; begin repeat writeln('donner un entier'); readln(n);.
23 mai 2013 A1:=airetrap; nbdivision:=ndiv; end; if (abs (9-airect)< minrect)then begin minrect:=abs(9-airect);. Correction bac pratique 2013 g1.
Corrigés Bac pratique Informatique. Section Math & Sciences & Technique. 27 mai 2013(8h). Lundi 27 mai 2013 à 8h Correction proposée par.
27 mai 2013 EXAMEN DU BACCALAUREAT. SESSION DE JUIN 2013. Durée: 1h. Epreuve pratique d'informatique. Important. 1) Une solution modulaire au problème ...
25 mai 2017 EXAMEN DU BACCALAURÉAT. SESSION 2017. Épreuve pratique d'informatique. Durée : 1h. Coefficient : 0.5. Sections : Maths Sciences.