BAC INFO 2015

Voir le sujet précédent Voir le sujet suivant Aller en bas

BAC INFO 2015

Message par haiethem le Ven 22 Mai - 9:34

Voici quelques propositions des solutions :

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 426
Points : 15098
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Re: BAC INFO 2015

Message par haiethem le Ven 22 Mai - 9:46

Program seance1sujet1;
uses wincrt;


const e=5;p=17; q=19;


type tab=array[1..255] of integer;


var T:tab;msg:string;
i:byte;


function verifier(x:string):boolean;
var i:integer;
begin
i:=0;
repeat
i:=i+1;
until (not(upcase(x[i]) in ['A'..'Z']))or (i=length(x));
verifier := upcase(x[i]) in ['A'..'Z'];
end;


function puiss(x,n:integer):longint;
var i:integer;p:longint;
begin
p:=1;
for i:=1 to n do p:=p*x;
puiss:=p;
end;


procedure saisir (var msg : string);
begin
repeat
Write('Message = '); readln(msg);
until verifier(msg);
end;


procedure remplir (var t:tab;msg : string );
begin
For i:=1 to length(msg) do
T[i]:= Ord(Upcase(msg[i]))-64;
end;
procedure crypter(var t:tab;msg : string);
begin
For i := 1 to length(msg) do
begin
T[i]:=Puiss(T[i],e) mod (p*q);
end;


end;


procedure afficher (t:tab;msg:string);
begin
for i:=1 to length(msg) do
write(t[i]:5);
end;


begin
saisir(msg);
remplir(t,msg);
crypter(t,msg);
afficher(t,msg);
end.

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 426
Points : 15098
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Sujets

Message par haiethem le Ven 22 Mai - 10:06

Voici quelques sujets :
Sujet 1 Séance 1
Fichiers joints
bac-pratique-21052015-sc-8h-s1.pdf Fichier PDF(122 Ko) Téléchargé 44 fois

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 426
Points : 15098
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Sujets

Message par haiethem le Ven 22 Mai - 10:06

Sujet 3 Séance 1
Fichiers joints
bac-pratique-21052015-sc-8h-s3.pdf Fichier PDF(130 Ko) Téléchargé 43 fois

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 426
Points : 15098
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Sujets

Message par haiethem le Ven 22 Mai - 10:07

Sujet 4 Séance 1
Fichiers joints
bac-pratique-21052015-sc-8h-s4.pdf Fichier PDF(133 Ko) Téléchargé 43 fois

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 426
Points : 15098
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Sujets

Message par haiethem le Ven 22 Mai - 10:07

Sujet 1 Séance 2
Fichiers joints
bac-pratique-21052015-sc-9h30-s1.pdf Fichier PDF(120 Ko) Téléchargé 41 fois

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 426
Points : 15098
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Sujets

Message par haiethem le Ven 22 Mai - 10:08

Sujet 3 Séance 2
Fichiers joints
bac-pratique-21052015-sc-9h30-s3.pdf Fichier PDF(109 Ko) Téléchargé 51 fois

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 426
Points : 15098
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Sujets

Message par haiethem le Ven 22 Mai - 10:08

Sujet 2 Séance 3
Fichiers joints
bac-pratique-21052015-sc-11h-s2.pdf Fichier PDF(109 Ko) Téléchargé 42 fois

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 426
Points : 15098
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Sujets

Message par haiethem le Ven 22 Mai - 10:09

Sujet 4 Séance 3
Fichiers joints
bac-pratique-21052015-sc-11h-s4.pdf Fichier PDF(102 Ko) Téléchargé 39 fois

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 426
Points : 15098
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Re: BAC INFO 2015

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum