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 : 418
Points : 14190
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 : 418
Points : 14190
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é 41 fois

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

Messages : 418
Points : 14190
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é 40 fois

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

Messages : 418
Points : 14190
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é 40 fois

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

Messages : 418
Points : 14190
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é 38 fois

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

Messages : 418
Points : 14190
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é 47 fois

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

Messages : 418
Points : 14190
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é 39 fois

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

Messages : 418
Points : 14190
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é 35 fois

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

Messages : 418
Points : 14190
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