написать программу декодирования

[darkpaul]

Помогите написать программу пожалуйста!

Декодирование префиксным кодом. Имеется префиксный код, состоящий из m двоичных кодовых слов различной длины, которым закодировано m символов некоторого алфавита А. Вводится последовательность двоичных символов произвольной длины и программа осуществляет попытку её декодирования в указанные символы с выдачей результата декодирования или сообщения об ошибке.

Желательно на паскале

[Abstraction]

Какая помощь Вам нужна?

[darkpaul]

написать программу =)

[Abstraction]

Просите - и получите...

#define BuildNode(L,R) const char* ReadNode##L##R (void){ \
  char bit; \
  if(scanf("%c", &bit) != 1) {Last = #L; return NULL;} \
  if(bit == '1') return ReadNode##L(); \
  if(bit == '0') return ReadNode##R(); \
  Last=#L; return NULL; \
}
#define BuildLeaf(L) const char* ReadNode##L (void) {return #L;}
const char* Last;

BuildLeaf(A)
BuildLeaf(B)
BuildLeaf(C)
BuildLeaf(D)
BuildLeaf(E)
BuildLeaf(F)
BuildLeaf(G)
BuildLeaf(H)

BuildNode(A,D)
BuildNode(B,G)
BuildNode(BG,F)
BuildNode(C,H)
BuildNode(AD,BGF)
BuildNode(E,CH)
BuildNode(ADBGF,ECH)

#define ReadWord ReadNodeADBGFECH
#define Correct "ADBGF"

int main(void){
  const char* str;
  while((str = ReadWord()) != NULL) printf("%s", str);
  if(strcmp(Last, Correct) != 0) printf("\nUnexpected symbol or premature end of data!\n");
  return 0;
}

[darkpaul]

Спасибо =)

А можно на Паскале? 0=)