Декодирование сообщения Опции

[Нике]

Пожалуйста, пожалуйста, помогите с решением...очень нужно, очень срочно..

Дан следующий алфавит и соответствующие буквам коды: пробел=000, а1=100, а2=1100, а3=10100, а4=11100,
а5=100100, а6=110100, а7=101100,а8=111100.
Нужно написать программу и блок-схему, декодирующую сообщение, т.е. мы вводим код - программа выдает буквы.
00 - признак конца символа
00000 - пробел.

Вообще, нужно декодировать сообщение со следующими кодами, но мне кажется, это несколько усложняет задачу??
пробел=000, а1=100, а2=1000, а3=1100, а4=10000, а5=10100, а6=11000, а7=11100, а8=101000.
Так сообщение обладает меньшей избыточностью, но как в таком случае распознавать пробелы непонятно...

Блин, да мне хоть в каком виде....

Сообщение отредактировано: Нике - 15.11.2006 16:00

[klem4]

Уфффф я вот тут тоже насочинял))))))))

uses crt;

function Crypt(const s: String): String;
var
  i: Integer;
  X, result: String;
begin

  i := 1;

  result := '';

  while (i <= Length(s) - 1) do begin

    if s[i] = ' ' then begin
      X := ' ';
      inc(i);
    end else begin
      X := Copy(s, i, 2);
      inc(i, 2);
    end;

    if X = ' ' then result := result + '000'
     else
    if X = 'a1' then result := result + '100'
     else
    if X = 'a2' then result := result + '1000'
     else
    if X = 'a3' then result := result + '1100'
     else
    if X = 'a4' then result := result + '10000'
     else
    if X = 'a5' then result := result + '10100'
     else
    if X = 'a6' then result := result + '11000'
     else
    if X = 'a7' then result := result + '11100'
     else
    if X = 'a8' then result := result + '101000';
  end;

  Crypt := result;
end;

function Decrypt(const s: String): String;
var
  X, result: String;
  T, i: integer;
begin

  result := '';

  i := 1;

  while (i <= Length(s)) do begin

    X := Copy(s, i, 3);

    if X = '000' then begin result := result + ' '; inc(i, 3); end else begin

      if X = '100' then begin

        T := Pos('1', Copy(s, i + 1, 255)); // кол-во пробелов до бл единицы

        if T = 0 then
         T := Length(s) - i
        else
         T := T - 1;

        T := T - 3 * (T div 3);

        case T of
          2: begin
            result := result + 'a1';
            inc(i, 3);
          end;
          0: begin
            result := result + 'a2';
            inc(i, 4);
          end;
          1: begin
            result := result + 'a4';
            inc(i, 5);
          end;
        end;

      end
       else

    if X = '110' then begin

      T := Pos('1', Copy(s, i + 2, 255));

      if T = 0 then
       T := Length(s) - i - 1
      else
       T := T - 1;

      T := T - 3 * (T div 3);

      case T of
        2: begin
          result := result + 'a3';
          inc(i, 4);
        end;
        0: begin
          result := result + 'a6';
          inc(i, 5);
        end;
      end;
    end
     else

    if X = '101' then begin

      T := Pos('1', Copy(s, i + 3, 255));

      if T = 0 then
       T := Length(s) - i - 2
      else
       T := T - 1;

      T := T - 3 * (T div 3);

      case T of
        2: begin
          result := result + 'a5';
          inc(i, 5);
        end;
        0: begin
          result := result + 'a8';
          inc(i, 6);
        end;
      end;
    end
     else begin
       result := result + 'a7';
       inc(i, 5);
     end;

    end;

  end;

  Decrypt := result;
end;

begin
  clrscr;
  writeln(Decrypt(Crypt('a6a2a7a3 a8a5a5a8      a8a1a2   a4a6a1')));
  readln;
end.

Много похожих частей кода, так что думаю можно сократить будет. Ну и в Crypt можно 2 массива вместо if-ов сделать.