Question

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

Answer 1

const alphabet="яабвгдеёжзийклмнопрстуфхцчшщъыьэюя";
var FileName:string

procedure ReadFile(FileName:string);
var f:text;
s:string;
i,k:integer;
begin
    assign(f,FileName);
    reset(f);
    while not eof (f) do begin { пока не конец файла }
        readln (f, s);
        for i:= 1 to length(s) do begin
          k:=pos(s[i], alphabet);
            if k=1 then k=length(alphabet); {это приколы изза я}
            if k>1 then s[i]:=alphabet[k-1];
      end;
        writeln(s);
    end;
    close(f);
end;

Begin
    read(FileName);
    ReadFile;
    readln;
End.

Answer 2

Хорошо, давайте напишем программу на Pascal для расшифровки зашифрованного текста. Предположим, что ваш зашифрованный текст находится в файле "encrypted.txt", а расшифрованный текст будет записан в файл "decrypted.txt". Пожалуйста, убедитесь, что файлы существуют перед запуском программы.

program DecryptText;

const
  InputFileName = 'encrypted.txt';
  OutputFileName = 'decrypted.txt';

var
  InputFile, OutputFile: text;
  Ch: char;

begin
  // Открытие файла для чтения
  Assign(InputFile, InputFileName);
  Reset(InputFile);

// Открытие файла для записи
  Assign(OutputFile, OutputFileName);
  Rewrite(OutputFile);

// Чтение и расшифровка текста
  while not EOF(InputFile) do
  begin
    // Чтение символа из зашифрованного файла
    Read(InputFile, Ch);

// Проверка на конец файла
    if not EOF(InputFile) then
    begin
      // Расшифровка символа
      if Ch = 'а' then
        Ch := 'я'
      else if Ch = 'ё' then
        Ch := 'е'
      else if Ch = 'А' then
        Ch := 'Я'
      else if Ch = 'Ё' then
        Ch := 'Е'
      else if (Ch >= 'б') and (Ch <= 'я') then
        Ch := Chr(Ord(Ch) - 1)
      else if (Ch >= 'Б') and (Ch <= 'Я') then
        Ch := Chr(Ord(Ch) - 1);

// Запись расшифрованного символа в файл
      Write(OutputFile, Ch);
    end;
  end;

// Закрытие файлов
  Close(InputFile);
  Close(OutputFile);

writeln('Текст успешно расшифрован и записан в файл ', OutputFileName);
end.

Это простая программа на Pascal, которая открывает файл с зашифрованным текстом, расшифровывает его и записывает результат в новый файл. Пожалуйста, убедитесь, что файлы "encrypted.txt" и "decrypted.txt" существуют в том же каталоге, где и программа.