Вопрос по информатике:
Написать процедуру кодирования строки по шифру Цезаря (сдвиг каждого символа по алфавиту с указанным ключом). Проверить ее работу для введенной строки с ключом, равным 3 и обратно с ключом, равным -3.
Пожаловаться
- 19.05.2015 10:04
- Информатика
- remove_red_eye 6859
- thumb_up 31
Ответы и объяснения 1
Const n=26; ab='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
procedure Caesar(s:string;k:integer; var t:string);
var i,p,j:integer;
begin
t:='';
for i:=1 to length(s) do
begin
p:=pos(s[i],ab);
if p>0 then begin
j:=(p+k-1) mod n+1;
if j<=0 then j:=n+j;
t:=t+ab[j];
end
else t:=t+s[i];
end;
end;
var t:string;
begin
Caesar('ANZ',3,t);
writeln(t);
Caesar(t,-3,t);
writeln(t);
end.
Пример:
DQC
ANZ
procedure Caesar(s:string;k:integer; var t:string);
var i,p,j:integer;
begin
t:='';
for i:=1 to length(s) do
begin
p:=pos(s[i],ab);
if p>0 then begin
j:=(p+k-1) mod n+1;
if j<=0 then j:=n+j;
t:=t+ab[j];
end
else t:=t+s[i];
end;
end;
var t:string;
begin
Caesar('ANZ',3,t);
writeln(t);
Caesar(t,-3,t);
writeln(t);
end.
Пример:
DQC
ANZ
Пожаловаться
- 20.05.2015 16:39
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы