Задача про кодирование текста (не получается реализовать из-за буквы ё в ascii)

[jihot]

Друзья, Прошу помощи!

Вроде простая задача :

Один из самых простых способов закодировать текст заключается в следующем.
Выбирается целое число – сдвиг кодирования. Закодированная буква получается из исходной
буквы путем циклического сдвига в алфавите на заданное число позиций.
Если сдвиг кодирования отрицательный, то циклический сдвиг осуществляется влево, если положительный,
то вправо, если сдвиг равен нулю, то кодирования не происходит.
Например, если сдвиг кодирования равен -1, то строка АБРАКАДАБРА будет закодирована как ЯАПЯЙЯГЯАПЯ.
Напишите программу, которая кодирует текст указанным способом.

Входные данные
В первой строке входных данных записано целое число из диапазона –64 000..64 000 – сдвиг кодирования.
В последующих строках записан непустой текст, предназначенный для кодирования.

Выходные данные
Закодированный текст. В закодированном тексте должны быть изменены только буквы латиницы и кириллицы, а пробелы, знаки пунктуации и прочие символы должны остаться
без изменений. Символы Ё, Й, Ъ, Ь считаются буквами кириллицы. Регистры соответствующих символов закодированного и исходного текста должны совпадать.

Пример:
1
To be or not to be?
АБРАКАДАБРА

Результат:
Up cf pq opu up cf?
БВСБЛБЕБВСБ

Первое что сразу пришло в мысль, посимвольно считывать и сдвигать код символа через ord(), ну дальше вы поймете наверно код..он работает, но самая главная проблема с буквой Ё, т.к она не входит в промежуток А..Я (имеет другой код символа).

В итоге программа не обрабатывала Ё, но отдельно для неё сделал кейс, теперь Ё обрабатывается верно , НО :
если у меня будет буква Е, при сдвиге на +1 выведет букву Ж, т.к ну не знает он буквы Ё

Если понятна проблема, помогите, пожалуйста!
В теории если не ошибусь, при сдвиге на 100 все буквы тоже будут считаться не верно т.к буква ё не учитывается .

program Lab8;

{$APPTYPE CONSOLE}

procedure check(c: char; code: integer; var new_c: char);
begin
  case C of
    'A'..'Z': 
      begin
        code := code mod 26;
        if ord(c) + code < 65 then new_c := chr(ord(c) + code + 26) else
        if ord(c) + code > 90 then new_c := chr(ord(c) + code - 26) else new_c := chr(ord(c) + code); end;
    
    'a'..'z': 
      begin
        code := code mod 26;
        if ord(c) + code < 97 then new_c := chr(ord(c) + code + 26) else
        if ord(c) + code > 122 then new_c := chr(ord(c) + code - 26) else new_c := chr(ord(c) + code); end;
    
    'А'..'Я':
      begin
        code := code mod 32;
        if ord(c) + code < 192 then new_c := chr(ord(c) + code + 32) else
        if ord(c) + code > 223 then new_c := chr(ord(c) + code - 32) else new_c := chr(ord(c) + code); end;
    'а'..'я':
      begin
        code := code mod 32;
        if ord(c) + code < 224 then new_c := chr(ord(c) + code + 32) else
        if ord(c) + code > 255 then new_c := chr(ord(c) + code - 32) else new_c := chr(ord(c) + code); 
      end;
    'Ё':
      begin
       code := code mod 32;
       if code > 0 then begin if ord('Е')+code<192 then new_c:=chr(ord('Е')+code+31) else if ord('Е')+code>223 then new_c:=chr(ord('Е')+code-33) else new_c:=chr(ord('Е')+code); end else
       if code < 0 then begin if ord('Ж')+code<192 then new_c:=chr(ord('Ж')+code+31) else if ord('Ж')+code>223 then new_c:=chr(ord('Ж')+code-33) else new_c:=chr(ord('Ж')+code); end else
       if code = 0 then new_c:=chr(ord(c));
      end; 
    'ё':
      begin
       code := code mod 32;
       if code > 0 then begin if ord('е')+code<224 then new_c:=chr(ord('е')+code+31) else if ord('е')+code>255 then new_c:=chr(ord('е')+code-33) else new_c:=chr(ord('е')+code); end else
       if code < 0 then begin if ord('ж')+code<224 then new_c:=chr(ord('ж')+code+31) else if ord('ж')+code>255 then new_c:=chr(ord('ж')+code-33) else new_c:=chr(ord('ж')+code); end else
       if code = 0 then new_c:=chr(ord(c));
      end;      
  else new_c := c;
  end;
end;

procedure input(var f_in: text; code: integer; c: char);
var
  new_c: char;
begin
  readln(f_in, code);
  while not eof(f_in) do
  begin
    read(f_in, c);
    check(c, code, new_c);
    write(new_c);
  end;
end;

var
  f_in: text;
  code: integer;
  c: char;

begin
  Assign(f_in, 'input.txt');
  reset(f_in);
  input(f_in, code, c);
  Close(f_in);
end.

[Serge_Bliznykov]

я бы по другому сделал:

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

begin

   if Pos(c, Rus1)>0 then begin
      new_kod := (Pos(c, Rus1) + Code)  mod Length(Rus1);
      new_c := Rus1[new_kod];
  end 
  else
     if Pos(c, Rus2)>0 then begin
      new_kod := (Pos(c, Rus2) + Code)  mod Length(Rus2);
      new_c := Rus2[new_kod];
    end
    else 
      if c in ['A'..'Z'] then ....
      else
        if c in ['a'..'z'] then ....
        else {не кодируемый символ}
          new_c := c;

идея понятна?

[Аватар]

И такой вариант можно

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

function Koder(Text: String; Step: Smallint): String;
var i,j,k: Integer;
begin
  SetLength(Result,Length(Text));
  for i:=1 to Length(Text) do begin
    j:=Pos(Text[i],Liter);
    if j=0 then Result[i]:=Text[i]
    else begin
      k:=Sign(Step)*(Abs(Step) mod Length(Liter));
      Inc(j,k);
      if j<1 then Inc(j,Length(Liter))
      else if j>Length(Liter) then Dec(j,Length(Liter));
      Result[i]:=Liter[j];
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s: String;
begin
  s:=Liter;
  Memo1.Lines.Add(s);
  s:=Koder(s,300);
  Memo1.Lines.Add(s);
  s:=Koder(s,-300);
  Memo1.Lines.Add(s);
end;

[Serge_Bliznykov]

Сообщение от Аватар

И такой вариант можно

нет. такой вариант не подойдёт.
В исходном примере видно, что алфавиты в задаче рассматриваются отдельно.

Например, если сдвиг кодирования равен -1, то строка АБРАКАДАБРА будет закодирована как ЯАПЯЙЯГЯАПЯ

ваш код:

АБРАДАБРА
zАПzГzАПz

[Аватар]

Ну тогда отдельные константы для латиницы и кириллицы и параметр Step сделать Integer, не обратил внимания на 64000. И функцию чуть изменить

[Serge_Bliznykov]

Сообщение от Аватар

Ну тогда отдельные константы для латиницы и кириллицы и параметр Step сделать Integer, не обратил внимания на 64000. И функцию чуть изменить

да, согласен. так можно.

[jihot]

Serge_Bliznykov, Аватар, Спасибо Вам большое!
Код Аватара показался немного сложным, с первого взгляда) хотя если так как писал чуть ниже то наверное верно

Serge не первый раз уже выручает, благодарю. Просто подставил в свой код и всё работает, разве что при отрицательном значении ругалось на Выход за пределы массива, если не ошибусь то получалось Rus1[0] (для code = -1 ), но вроде поправил верно :

if new_kod<=0 then inc(new_kod, Length(rus1));

[Serge_Bliznykov]

Пожалуйста.

Сообщение от jihot

разве что при отрицательном значении ругалось на Выход за пределы массива, если не ошибусь то получалось Rus1[0] (для code = -1 ), но вроде поправил верно :

if new_kod<=0 then inc(new_kod, Length(rus1));

Вы всё правильно сделали.
Извините, это мой косяк был, я в коде забыл учесть, что сдвиг может быть не только с плюсом, но и с минусом!

[Marshal_A]

попробуй вместо ё чаровский код подставить

[Serge_Bliznykov]

Сообщение от Marshal_A

попробуй вместо ё чаровский код подставить

Во-первых, задача уже решена TC.

во-вторых, ваш совет мимо кассы, он не поможет. Изначально, TC именно так и пытался решить эту проблему. Нужно, чтобы при смещении буква заменялась на буквы алфавита. Например, при смещении = 1, буква ё заменялась на букву ж. В случае использования коды буквы ё это будет добится сложно. Кроме того, ваш совет не решает проблему, что другие буквы должны смещаться на букву ё, например, когда смещение = 2, буква Д должна становиться буквой Ё и т.д.