clé de décodageRésolu

Question

Bonjour,
Quelqu'un peut-il m'aider car
je n'arrive pas &#224; &#233;crire la fonction ou la proc&#233;dure me permettant de d&#233;coder une phrase. La cl&#233; est la suivante : le nombre d'espace cons&#233;cutifs diminu&#233; d'une unit&#233; indique la position du caract&#232;re &#224; prendre en compte.
Par exemple : 'merci^^d'avance^^^pour^tout' renvoie le do.
Tina

WhiteHippo · Accepted Answer

Bonsoir

Et comment agit le d&#233;codage lorsqu'il y a plus d'espaces que de lettres dans le mot suivant ??

Cordialement.

cs_tinab · Answer

je dois pas tenir compte de ce cas car c'est juste un exercice que je dois faire en plus je peux pas utiliser la routine copy.
Un vrai casse t&#234;te.
Merci pour toute r&#233;ponse.
Tina

WhiteHippo · Answer

Une solution simpliste serait :

function decodage ( s : string ) : string ;
  var
    i, CompteurLettres, CompteurEspaces : integer ;
  begin
    Result := '' ;
    if ( s='' ) then Exit ;


    CompteurEspaces := 0 ;
    CompteurLettres := 0 ;


    for i := 1 to length(s) do
    begin
      if ( s[i]=' ' ) then
      begin
        if ( CompteurLettres<>0 ) then
        begin
          CompteurLettres := 0 ;
          CompteurEspaces := 0 ;
        end ;
        Inc( CompteurEspaces ) ;
      end else
      begin
        inc ( CompteurLettres ) ;
        if ( CompteurLettres = CompteurEspaces - 1 ) then
        begin
          Result := Result + s[i] ;
          CompteurEspaces := 0 ;
        end ;
      end ;
    end ;
  end ;

Attention !! Cette version ne g&#232;re pas les d&#233;bordements, c'est &#224; dire plus d'espaces que de lettres pr&#233;sentes dans le mot suivant. Si ce cas se produit on r&#233;initialise les compteurs.

Cordialement.

Clé de décodage

3 réponses

Votre réponse