[PDF] [PDF] BAC Pratique Informatique 2016 Correction proposée par - Kitebnet

21 mai 2016 · BAC Pratique Informatique 2016 Correction proposée par Mr KHARRAT Ala Eddine Section : Sciences de l'Informatique Program Fac_Prim;



Previous PDF Next PDF





[PDF] BAC Pratique Informatique 2016 Correction proposée par - Kitebnet

21 mai 2016 · BAC Pratique Informatique 2016 Correction proposée par Mr KHARRAT Ala Eddine Section : Sciences de l'Informatique Program Fac_Prim;



[PDF] 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 (Maths 



[PDF] Proposition de correction bac Pratique le 19 Mai 2016 - Fichier-PDFfr

16 mai 2018 · Programme pascal program NomServeur; uses wincrt; type tab= array [1 10] of string; var n,n2,i : integer; t1,t2 : tab;



[PDF] CORRIGE E2 TR JUIN 2016 2 - Eduscol

Baccalauréat Professionnel Systèmes Électroniques Numériques CORRIGÉ Session 2016 Épreuve E2 de France pour la pratique de l'escalade artificielle



[PDF] Corrigé de lépreuve de GESTION Session de contrôle - Juin 2016

1) Déterminez le taux de la TFP pratiqué par la société « CONFORT POUR TOUS » Taux = 200 /10 000 = 0,02 soit 2 (accepter le taux suite à la justification par 



[PDF] Corrigé de lépreuve théorique de la matière - BacWebtn

RESUME Ceci est une proposition d'un corrigé avec des Sciences expérimentales, Maths et Sciences techniques Corrigé Ch contient "Bac 2017/ 2018"



[PDF] Asie 2016 Enseignement spécifique - Maths-francefr

Asie 2016 Enseignement On constate qu'en pratique, la masse de bactéries dans la cuve ne dépassera jamais 50 kg EXERCICE 3 : corrigé Partie A 



[PDF] PRÉVENTION SANTÉ ENVIRONNEMENT CORRIGÉ Session 2016

CORRIGE Page 1 sur 5 BACCALAURÉAT PROFESSIONNEL PRÉVENTION SANTÉ CORRIGÉ Session 2016 Améliorer les pratiques alimentaires et les



[PDF] Annales officielles SUJETS • CORRIGÉS - PGE PGO

SUJETS • CORRIGÉS BAC +2 admission en 1re année d'ESC BAC +3/4 admission en L'épreuve juridique « Passerelle » est de nature pratique propositions de correction présentées dans les annales du concours Passerelle ESC: c'est



[PDF] (Dossier corrigé)

Baccalauréat Professionnel Secteur Tertiaire Session : 2016 (monopole) et les ententes sur les prix parfois pratiqués sur un marché avec peu de vendeurs

[PDF] passer de bac pro a general

[PDF] passer de pro a general

[PDF] projet d'accompagnement bac pro assp exemple

[PDF] sequence animation bac pro assp

[PDF] e32 projet d'animation

[PDF] cours animation assp

[PDF] fiche projet d'animation bac pro assp

[PDF] exemple dossier e32 bac pro assp

[PDF] nutrition alimentation bac pro assp nathan technique

[PDF] stage seconde pro commerce

[PDF] période de formation en milieu professionnel bac pro

[PDF] période de stage en lycée professionnel

[PDF] durée stage bac pro commerce

[PDF] ne pas trouver de stage bac pro

[PDF] date de stage bac pro 2017

BAC Pratique Informatique 2016

Correction proposée par Mr KHARRAT Ala Eddine

Section : Sciences de l'Informatique

Program Fac_Prim;

Uses wincrt;

VAR

N:integer;

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

Procedure Saisie(VAR N:integer);

BEGIN

Repeat

Write('Entrer N : ');

Readln(N);

Until (N in [2..5]);

END; (***************** Premier *****************)

Function Premier(N:integer):boolean;

VAR i,S:integer; BEGIN S:=0; for i:=2 to (N DIV 2) do

If (N MOD i = 0) Then

S:=S+i;

Premier:= S=0;

END; (***************** Factoriel *****************)

Function Fact(N:integer):integer;

VAR i,F:integer; BEGIN F:=1; for i:=2 to N do

F:=F*i;

Fact:= F;

END; (***************** Premier_Factoriel *****************)

Function Premier_Factoriel(N:integer):boolean;

VAR i:integer;

B:boolean;

BEGIN i:=0;

Repeat

i:=i+1;

B:= (Fact(i)+1 = N) OR (Fact(i)-1 = N);

Until (B) OR (Fact(i)-1>N);

Premier_Factoriel:= (B) AND (Premier(N));

END; (***************** Premier_Primoriel *****************)

Function Premier_Primoriel(N:integer):boolean;

VAR i:integer;

P:longint;

BEGIN P:=1; i:=1;

Repeat

i:=i+1;

If Premier(i) Then

P:=P*i;

Until (P+1 = N) OR (P-1 = N) OR (P-1>N);

Premier_Primoriel:= ((P+1 = N) OR (P-1 = N)) AND (Premier(N)); END;

Devoirs et examens sur : www.Kiteb.net

BAC Pratique Informatique 2016

Correction proposée par Mr KHARRAT Ala Eddine

Section : Sciences de l'Informatique

(***************** Afficher_PF *****************)

Procedure Afficher_PF(N:integer);

VAR i,nb:integer; BEGIN nb:=0; i:=1; writeln('Les ',N,' premiers nombres "Premiers Factoriels" sont : ');

Repeat

i:=i+1;

If Premier_Factoriel(i) Then

BEGIN nb:=nb+1; writeln(nb,') ',i); END;

Until (nb = N);

END; (***************** Afficher_PP *****************)

Procedure Afficher_PP(N:integer);

VAR i,nb:integer; BEGIN nb:=0; i:=1; writeln('Les ',N,' premiers nombres "Premiers Primoriels" sont : ');

Repeat

i:=i+1;

If Premier_Primoriel(i) Then

BEGIN nb:=nb+1; writeln(nb,') ',i); END;

Until (nb = N);

END; (***************** Programme Principale *****************) BEGIN

Saisie(N);

Afficher_PF(N);

Afficher_PP(N);

END.

Devoirs et examens sur : www.Kiteb.net

quotesdbs_dbs8.pdfusesText_14