BAC INFO 2015

Poster un nouveau sujet   Répondre au sujet

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 : 414
Points : 13873
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

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 : 414
Points : 13873
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

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é 38 fois

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

Messages : 414
Points : 13873
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

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é 38 fois

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

Messages : 414
Points : 13873
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

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é 37 fois

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

Messages : 414
Points : 13873
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

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é 36 fois

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

Messages : 414
Points : 13873
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

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é 44 fois

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

Messages : 414
Points : 13873
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

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é 37 fois

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

Messages : 414
Points : 13873
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

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é 33 fois

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

Messages : 414
Points : 13873
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

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 pouvez répondre aux sujets dans ce forum