Forum pour les élèves lycéens
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment :
Xiaomi Mi Smart Camera 2K Standard Edition (design ...
Voir le deal
11.39 €

BAC INFO 2015

Aller en bas

BAC INFO 2015 Empty BAC INFO 2015

Message par haiethem Ven 22 Mai - 9:34

Voici quelques propositions des solutions :
haiethem
haiethem

Messages : 485
Points : 26853
Réputation : 3
Date d'inscription : 08/11/2010
Age : 47

http://www.gdiri.info

Revenir en haut Aller en bas

BAC INFO 2015 Empty Re: BAC INFO 2015

Message par haiethem 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
haiethem

Messages : 485
Points : 26853
Réputation : 3
Date d'inscription : 08/11/2010
Age : 47

http://www.gdiri.info

Revenir en haut Aller en bas

BAC INFO 2015 Empty Sujets

Message par haiethem Ven 22 Mai - 10:06

Voici quelques sujets :
Sujet 1 Séance 1
haiethem
haiethem

Messages : 485
Points : 26853
Réputation : 3
Date d'inscription : 08/11/2010
Age : 47

http://www.gdiri.info

Revenir en haut Aller en bas

BAC INFO 2015 Empty Sujets

Message par haiethem Ven 22 Mai - 10:06

Sujet 3 Séance 1
haiethem
haiethem

Messages : 485
Points : 26853
Réputation : 3
Date d'inscription : 08/11/2010
Age : 47

http://www.gdiri.info

Revenir en haut Aller en bas

BAC INFO 2015 Empty Sujets

Message par haiethem Ven 22 Mai - 10:07

Sujet 4 Séance 1
haiethem
haiethem

Messages : 485
Points : 26853
Réputation : 3
Date d'inscription : 08/11/2010
Age : 47

http://www.gdiri.info

Revenir en haut Aller en bas

BAC INFO 2015 Empty Sujets

Message par haiethem Ven 22 Mai - 10:07

Sujet 1 Séance 2
haiethem
haiethem

Messages : 485
Points : 26853
Réputation : 3
Date d'inscription : 08/11/2010
Age : 47

http://www.gdiri.info

Revenir en haut Aller en bas

BAC INFO 2015 Empty Sujets

Message par haiethem Ven 22 Mai - 10:08

Sujet 3 Séance 2
haiethem
haiethem

Messages : 485
Points : 26853
Réputation : 3
Date d'inscription : 08/11/2010
Age : 47

http://www.gdiri.info

Revenir en haut Aller en bas

BAC INFO 2015 Empty Sujets

Message par haiethem Ven 22 Mai - 10:08

Sujet 2 Séance 3
haiethem
haiethem

Messages : 485
Points : 26853
Réputation : 3
Date d'inscription : 08/11/2010
Age : 47

http://www.gdiri.info

Revenir en haut Aller en bas

BAC INFO 2015 Empty Sujets

Message par haiethem Ven 22 Mai - 10:09

Sujet 4 Séance 3
haiethem
haiethem

Messages : 485
Points : 26853
Réputation : 3
Date d'inscription : 08/11/2010
Age : 47

http://www.gdiri.info

Revenir en haut Aller en bas

BAC INFO 2015 Empty Re: BAC INFO 2015

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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