<br>decode([],[]).<br>decode(Str,[X|Xs]):- cod(X,Xc), append(Xc,Rest,Str), decode(Rest,Xs).<br><br>cod('А', "01").<br>cod('Б', "1000").<br>cod('В', "011").<br>ну и т д.<br>

#include "stdafx.h"<br>#include <string><br>#include <stdio.h><br>#include <fstream><br><br>using namespace std;<br>ofstream of;<br><br>string letters[][2]=<br>{<br>      "A","01","Б","1000","В","011","Г","110","Д","100","Е","0","Ж","0001","З","1100",<br>      "И","00","Й","0111","К","101","Л","0100","М","11","Н","10","О","111","П","0110",<br>      "Р","010","С","000","Т","1","У","001","Ф","0010","Х","0000","Ц","1010","Ч","1110",<br>      "Ш","1111","Щ","1101","Ь","1001","Ы","1011","Э","00100","Ю","0011","Я","0101",<br>      "1","01111","2","00111","3","00011","4","00001","5","00000","6","10000","7","11000",<br>      "8","11100","9","11110","0","111111"," ","01000" <br>};<br><br>void<br>find(string s,string decoded)<br>{<br>      for(int i=0;i<42;i++) // checking every letter<br>      {<br>            for(int j=0;j<letters[i][1].length();j++)<br>            {<br>                  if(s[j]!=letters[i][1][j])break;<br>            }<br>            if(j==letters[i][1].length()) // if all bytes matching<br>            {<br>                  decoded+=letters[i][0];      // found one letter<br>                  string str=s.substr(j,-1);    // cut it<br>                  if(str=="")<br>                  {<br>                        of<<decoded.c_str()<<"\n"; // finish<br>                        continue;<br>                  }<br>                  else<br>                        find(str,decoded); // next letter<br>            }<br>      }<br>}<br><br>int <br>main(int argc, char* argv[])<br>{<br>      string s("10101000000010001100010111011010101010000011001001");<br>      of.open("res.txt");<br><br>      find(s,"");<br>      return 0;<br>}

const ss:ansistring='А - 01, Б - 1000, В - 011, Г - 110, Д - 100, Е - 0, Ж - 0001, З -1100, И - 00, Й - 0111, К - 101, Л - 0100,'+

' М - 11, Н - 10, О - 111, П - 0110, Р - 010, С - 000, Т - 1, У - 001, Ф - 0010, Х - 0000, Ц - 1010, Ч - 1110, Ш - 1111,'+

' Щ - 1101, Ь - 1001, Ы - 1011, Э - 00100, Ю - 0011, Я - 0101, 1 - 01111, 2 - 00111, 3 - 00011, 4 - 00001, 5 - 00000, 6 - 10000, 7 - 11000, 8 - 11100, 9 - 11110, 0 - 111111, * - 01000,';

//ss -  эта наша таблица кодировки

 

const //t='1010100000001000 11000 101110110 10101010000011001001';

           t='10101000000010001100010111011010101010000011001001';

 

// t - строчка для разбора

var s,q:array[1..50]of ansistring; // буквы и и их коды соответственно

    k,l,h:integer;  // k - число кодовых символов

    f:ansistring;   // времменая строка

    r:string;        //результат

    z:Longint;

 

///// самая главная функция

///// декодирует строчку t начиная с позиции i (учитывает пробелы)

procedure decode(i:integer);

 var x:integer;

     zzz:boolean;

 begin

 if i=length(t)+1 then // Все? Строчка закончилать?

  begin          

  inc (z);

  if z and 63=0 then

   writeln(z,' ',r);

  exit;

  end;

 

 zzz:=false;

 for x:=1 to k do                      //Поиск следующего кода

  if copy(t,i,length(q[x]))=q[x] then

   begin

   r:=r+s[x];

   decode(i+length(q[x]));

   r:=copy(r,1,length(r)-1);

   zzz:=true;

   end;

 

 if (not zzz)and(t[i]=' ') then decode(i+1);    //обработка случая с пробелом в строке t

 end;

 

 

begin

//начало

k:=0;

f:=ss;

 

// парсинг строки ss; заполнение массивов q и s

repeat

l:=pos(',',f);

if l=0 then

 break;

inc(k);

h:=pos(' ',f);

s[k]:=copy(f,1,h-1);

delete(f,1,h+2);

l:=pos(',',f);

q[k]:=copy(f,1,l-1);

delete(f,1,l+1);

until length(f)=0;

 

//Просто посмотрим, правильно ли сработал разбор строки ss

for l:=1 to k do

 writeln(s[l],'      ',q[l]);

 

r:='';  // результата еще нет

z:=0; // найдено 0 решений

decode(1); // начинаем поиск с первого символа

 

end.