Кодирование информации на Delphi

[Azalia999]

Здравствуйте!
Нужна помощь!
Необходимо закодировать текстовую информацию в определенную последовательность цифр.
Программа заключается в том, чтобы при вводе слова на русском алфавите оно кодируются в определенную последовательность чисел. Каков будет алгоритм?

[Serge_Bliznykov]

Алгоритм такой:
цикл
- Взять очередное слово
- Закодировать слово в определённую последовательность чисел
повторять цикл, пока есть слова

а точнее я Вам скажу,
когда Вы мне расскажите, что означает "слова на русском алфавите оно кодируются в определенную последовательность чисел"...

[Azalia999]

т.е. нужно создать программу на кодирование текста на русском алфавите кодовыми словами длины 3. каждая буква должна кодироваться по определенному правилу. Например, а- 123, б-033, в-333...

[Aleksandr H.]

Там ведь есть ответ
http://programmersforum.ru/showthread.php?t=268112

[Serge_Bliznykov]

ясно.

1) а что делать с символами пунктуации, пробелами, английскими символами?
2) прописные/строчные буквы кодируются одинаково?

Закодируйте, пожалуйста, строчку
Баба Ваба, бава!

[Azalia999]

а каким образом закодировать буквы на русском алфавите? Чтобы кодировались буквы?

[Serge_Bliznykov]

Вы мое сообщение #5 (сразу на вашим предыдущим) видите?
В нём я написал предложения, где в конце стоит такой вот знак: ?
Это вопросительные предложения.
Я Вам задал вопросы по вашему заданию.
Вы не собираетесь на них отвечать?

а каким образом закодировать буквы на русском алфавите?

нужно составить таблицу русских букв и по ней кодировать русские буквы.

[Aleksandr H.]

один из вариантов кодирования "1 символ = 3 цифры"

uses crt;
vаr f:text;
s,s_coded,tmp: strіng;
і,j:byte;k:іnteger;
BEGIN
 ClrScr;
 s_coded:='';
 s:='Кодировка кирилицы & Lаtіns symbols';
 wrіteln('Input Lіne : ',s);
 for і:=1 to length(s) do
 begіn
   str(ord(s[і])-5,tmp);
   j:=length(tmp);
   for k:=j+1 to 3 do
    tmp:='0'+tmp;
   s_coded:=s_coded+tmp
 end;
 wrіteln('Coded Lіne : ',s_coded);
 s:='';
 і:=1;
 whіle і<=length(s_coded) do
  begіn
    tmp := copy(s_coded,і,3);
    vаl (tmp,j,k);
   s:=s+chr(j+5);
    і:=і+3
  end;
  wrіteln('DeCoded lіne : ',s);
  reаdln;
END.

[Azalia999]

Мне понятно что это вопросительные предложения!!!!!!!!!!!!!!!!!

Не надо кодировать знаки препинания и пробелы. Просто нужна программа которая будет кодировать русские буквы,слова -в числовую.
да прописные/строчные буквы кодируются одинаково.