Категории заданий

Программа шифрования файла (Pascal)

Роман Корсаков Исполнитель: Роман Корсаков 
Оценка: +1
Отзыв: 
Стоимость: 150
Категория: Другое
Время выполнения: 44 мин
Поиск кандидата: 0 сек


Подробное описание:

Требуется программа, которая шифрует сообщение во входном файле с помощью шифра Цезаря (с заданным сдвигом влево по алфавиту) и записывает полученное в выходной файл. При этом есть небольшое усложнение: каждый нечётный символ сдвигать на k1, а чётный - на k2, то есть сдвиги должны быть разные. --- Есть такая программа: var n, i: integer; s: string; f1, f2: text; begin writeln ('Введите предложение'); readln (s); writeln ('Чему равен сдвиг?'); readln (n); write('Шифр Цезаря -> '); for i := 1 to length(s) do begin if s[i] in ['а'..'я'] then if (ord(s[i]) + n) < ord('я') then s[i] := chr(ord(s[i]) + n) else s[i] := chr(ord('а') + (ord(s[i]) + n - ord('а'))mod 32) else if s[i] in ['А'..'Я'] then if (ord(s[i]) + n) < ord('Я') then s[i] := chr(ord(s[i]) + n) else s[i] := chr(ord('А') + (ord(s[i]) + n - ord('А'))mod 32); write(s[i]) end end. НО! Она не работает с файлами и одинаково сдвигает ВСЁ сообщение. Надо доделать.

Рассказать друзьям

Подпишитесь на полезные статьи

Примеры заданий и практические советы по аутсорсингу задач

   



На дайджест уже подписалось 429706 читателей!

Присоединяйтесь к нам в соцсетях!