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

[Нике]

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

Дан следующий алфавит и соответствующие буквам коды: пробел=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

[FreeMan]

Чтото типа этого должно сработать. провереть не могу

procedure decr(s:string):string;
var 
x:string;
i,w,f:word;
begin
w:=0;
f:=4096;
for i:=1 to lenght(s) do begin
	if (s[i]=0) and (f<>4096) then
		inc(w);
	if (s[i]=1) then w:=0;
	f:=(f shl 1)+ord(s[i])-3*16;
	if w=2 then begin
		w:=0;
		f:=f shr 2;
		x:=x+'a'+chr(f+16*3);
		f:=4096;
	end;
end;
decr:=x;
end;

Сообщение отредактировано: FreeMan - 20.11.2006 10:30

[Lapp]

Чтото типа этого должно сработать. провереть не могу

Почему не можешь?.. Нет данных? Лови:
строка
100100011000001000010100000110000001000100000000001110011000101000
должна декодироваться в
a1a2a3 a4a5 a6 a2a4 a7a6a5 a8