hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , vous devez
 inscrire sur notre forum a partir d'ici
   NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
 
forum d'aide informatique : internet, réseau, programmation informatique ...
Codage, chiffrement d'un texte
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Previous topic :: Next topic   hd
Author Message
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Fri 19 Feb - 22:07 (2010)    Post subject: Codage, chiffrement d'un texte Reply with quote

Problème (CODAGE D'UN TEXTE)

Une manière de coder un texte consiste en l'opération suivante. On se fixe un entier n donné. On considère que le texte à coder est une chaîne de caractères. En commençant à partir du premier caractère, on divise le
texte en blocs de longueur n2 (nxn) caractères consécutifs. Si la longueur du texte n'est pas un multiple de n2, on lui ajoute autant d'espaces qu'il en faut pour que sa longueur devienne un multiple de n2. Chaque bloc est divisé à son tour en n sous-blocs de longueur n caractères. En disposant ces sous-blocs l'un en dessous de l'autre, on obtient alors n colonnes. Chaque colonne, lue du haut vers le bas, va donner une chaîne de n caractères. En rassemblant dans l'ordre toutes ces chaînes, on obtient une nouvelle chaîne qui sera le texte codé.


Exemple :
Pour n = 3 et le texte à coder ="Je vais à Tunis pour l'OTI"
La longueur de ce texte est égale à 26. On lui ajoute 1 espace pour que sa longueur devienne multiple de 9. La chaîne devient "Je vais à Tunis pour l'OTI" Sa longueur devient donc 27.

En appliquant les étapes ci-dessus évoquées, on obtient :


J

e




T

u


u

r


v

a

i


n

i

s


l

'

O

s


à



p

o


T

I



La chaîne codée sera :
Jvsea ià n TipusoulTr'I O "


Écrire un programme qui saisit un entier naturel n tel que 2<9 et le texte à coder (une chaîne de caractères). Il fait sortir ensuite le texte codé.





Last edited by KARIMOS on Sun 25 Apr - 20:27 (2010); edited 1 time in total
 
Revenir en haut
Publicité






Posted: Fri 19 Feb - 22:07 (2010)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
anisagrebi


Offline

Joined: 29 Mar 2009
Posts: 1
Masculin
Point(s): 8
Moyenne de points: 0

Posted: Thu 22 Apr - 12:31 (2010)    Post subject: Codage, chiffrement d'un texte Reply with quote

   veuillez heberger  les fichiers dans un autre site

 
Revenir en haut
azerty


Offline

Joined: 19 Jan 2010
Posts: 5
Point(s): 6
Moyenne de points: 0

Posted: Sun 25 Apr - 20:02 (2010)    Post subject: Codage, chiffrement d'un texte Reply with quote

svp vérifier le lien 

 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Sun 25 Apr - 20:26 (2010)    Post subject: Codage, chiffrement d'un texte Reply with quote

voila solution

program codes;

uses wincrt;

Var  ch : string;

    nc : integer;

function coder(m : integer; ch_org:string):string;

var    i,j,k,l,d    : integer;

      p,db,nb_bloc : integer;

      ch_out      : string;

begin

l:=length(ch_org);

d:=sqr(m)-(l mod sqr(m));

if d<>0 then

                  begin

                          For i:=1 to d do ch_org:=ch_org+' ';

                  end;

ch_out:=ch_org;

nb_bloc:=length(ch_org) div sqr(m);

p:=1;

For i:=1 to nb_bloc do

                        begin

                          db:=(i-1)*sqr(m) + 1;

                          for j:=0 to m-1 do

                              begin

                                      for k :=0 to m-1 do

                                        begin

                                          ch_out[p]:=ch_org[db+j+k*m];

                                          p:=p+1;

                                        end;

                              end;

                          end;

coder:=ch_out;

end;

procedure saisie(var m :integer; var txt_coder:string);

begin

  repeat

          write('Donner un entier entre 1 et          5 : '); readln(m);

  until m in [1..5];

  write('Saisir le texte ŕ coder : ');readln(txt_coder);

  writeln;

end;

begin

  saisie(nc,ch);

  writeln('le texte codé sera : ',coder(nc,ch));

end.


 
Revenir en haut
r.nsiri
recent membre
recent membre

Offline

Joined: 09 Jan 2009
Posts: 231
Masculin
Point(s): 273
Moyenne de points: 0

Posted: Thu 29 Apr - 22:12 (2010)    Post subject: Codage, chiffrement d'un texte Reply with quote

Okay Okay Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
darine


Offline

Joined: 26 Nov 2008
Posts: 15
Féminin
Point(s): 45
Moyenne de points: 0

Posted: Thu 29 Apr - 22:47 (2010)    Post subject: Codage, chiffrement d'un texte Reply with quote

merci bien pour le partage

 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Cookies | Charte | Conditions générales d'utilisation