прогу, чтобы кодировала буквы, слова, предложения, и выдавала закодированные письмена ( Турбо паскаль )

[Afroditaa]

Привет, помогите плииз с задачкой!!!

Для курсовой нужно сделать прогу в паскале чтобы кодировала буквы, слова, предложения, и выдавала закодированные письмена)) и круто если я вбиваю код а она мне букву) если можно будет то еще и цифры тоже если нет то можно и без них.

Я девушка блондинка) в принципе и этим всё сказано!!
Заранее благодарна за помощь


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[Serge_Bliznykov]

и выдавала закодированные письмена

"кодированные письмена" - это реально круто!
А что Вы под этим понимаете?
Если Вы введёте слово MAMA и получите на выходе слово НВПД, это будет считаться "закодированными письменами" ?!

[Afroditaa]

Если Вы введёте слово MAMA и получите на выходе слово НВПД, это будет считаться "закодированными письменами" ?!

ДА

ПИ.СИ. Спасибо за то, что поправили название темы. Очень признательна. Учту на будущее

[Serge_Bliznykov]

набросал по быстренькому код на коленке.
проверяйте, разбирайтесь:

const
 AllChars : string = '0А1Б2В3Г4Д5Е6Ё7Ж8З9ИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'+
   'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';

var 
  s : string;
  i,k, cod : integer;
begin
  WriteLn('Введите строку для кодирования:');
  ReadLn(s);

  {закодируем строку}
  k:=1;
  for i:=1 to Length(s) do begin
    cod :=  Pos(s[i], AllChars);
    if cod>0 then begin
        cod := cod + k; {сдвинули букву на K символов по строке}
        while cod>Length(AllChars) do cod := cod - Length(AllChars);
        s[i] := AllChars[cod];
        inc(k); {увеличим величину сдвига на 1, чтобы одинаковые буквы в слове кодировались с разным смещением}
    end
    else begin 
      s[i] := ' '; {если символ не кодируемый - затрём его пробелом - для наглядности}
      k := 1; {сдвиг сбросим в единицу - 
                  благодаря этому каждое слово в строке кодируется автономно 
                   - независимо от других слов и символов}
    end;
  end;

  WriteLn('Кодированные письмена: ');
  WriteLn(s);

  {теперь декодируем строку}
  k:=1;
  for i:=1 to Length(s) do begin
    cod :=  Pos(s[i], AllChars);
    if cod>0 then begin
        cod := cod - k; {сдвинули букву на K символов по строке}
        while cod<=0 do cod := cod + Length(AllChars);
        s[i]:= AllChars[cod];
        inc(k); {увеличим величину сдвига на 1, чтобы одинаковые буквы в слове кодировались с разным смещением}
    end
    else 
      k := 1; {сдвиг сбросим в единицу }
  end;

  WriteLn('Декодированная из письмён строка:');
  WriteLn(s);

  Readln
end.

[Afroditaa]

Спасибо огромное!!! Ну очень при очень благодарна!!!