Создан заказ №4274427
18 октября 2019
Исправить задачу(язык программирования Паскаль, среда Лазарус)
Как заказчик описал требования к работе:
Суть шифра Гронсфельда: Ключ шифра – пятизначное число. Буквы текста разбиваются на группы по пять (цифры и специальные символы не шифруются). Первая буква каждой группы шифруется по способу Цезаря с ключом, роль которого играет первая цифра пятизначного числа, вторая – с ключом, равным второй цифре
пятизначного числа и т.д. Написать программу, которая по данному ключу дешифрует текст, зашифрованный по способу Гронсфельда.
Есть решение в котором шифрует. Надо исправить чтобы дешифровало
Program Gronsfeld;
const nn=32; {число букв в алфавите}
type cifra=0..9;
var key:array [0..4] of cifra;
x, {данный ключ - пятизначное число} i: integer;
c: char;
function shifr (c:char; k:cifra):char; {зашифровка данной буквы ключом k}
var i:integer;
begin i:=ord(c)+k;
if i>=nn+ord('А') then shifr:=chr(i-nn)
else shifr:=chr(i) end; {шифр} begin {гронсфельд}
write('Введите ключ - пятизначное число: ');
readln(x);
for i:=4 downto 0 do
begin key[i]:=x mod 10;
x:=x div 10 end;
i:=0; while not eof do begin read(c);
if c in ['А'..'Я'] then
begin
write(shifr(c, key[i mod 5])); i:=i+1
end
else
write(c);
if eoln then break;
end;
readln;
readln; end.dln; end.
И составить математическую модель задачи
подробнее
Заказчик
заплатил
заплатил
20 ₽
Заказчик не использовал рассрочку
Гарантия сервиса
Автор24
Автор24
20 дней
Заказчик принял работу без использования гарантии
19 октября 2019
Заказ завершен, заказчик получил финальный файл с работой
5
Исправить задачу(язык программирования Паскаль, среда Лазарус).jpg
2020-12-25 16:09
Последний отзыв студента о бирже Автор24
Общая оценка
4.6
Положительно
Выполнил(а) работу на отлично! Не дорого и в кротчайшие сроки. Рекомендую этого автора. Молодец!))))
Хочешь такую же работу?
300 ₽
