Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.01.2014, 18:16   #1
microlab
Пользователь
 
Регистрация: 06.11.2008
Сообщений: 51
По умолчанию Шифр цезаря

Добрый день необходима программа с использованием шифра цезаря.
Шифр Цезаря — это вид шифра подстановки, в котором каждый символ в открытом тексте заменяется символом находящимся на некотором постоянном числе позиций левее или правее него в алфавите. Например, в шифре со сдвигом 4 А была бы заменена на Г, Б станет Д, и так далее.

От программы требуется
1) ввод начального текста на русском языке
2) задание сдвига от 1 до 33
3) можно только сдвиг в одном направлении в право
4) шифрование и вывод на экран исходного текста и вновь получившегося.
microlab вне форума Ответить с цитированием
Старый 19.01.2014, 18:33   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
var s:string;i:integer;
begin
 readln(s);
  for i:=1 to Length(s) do begin s[i]:=chr(ord(s[i])+3); write(s[i]);end; writeln;
  for i:=1 to Length(s) do begin s[i]:=chr(ord(s[i])-3); write(s[i]);end;writeln;
 readln;
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.01.2014, 18:41   #3
microlab
Пользователь
 
Регистрация: 06.11.2008
Сообщений: 51
По умолчанию Спасибо

Спасибо. сейчас красоту наведу а механизм понял
microlab вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
шифр цезаря Lilen Паскаль, Turbo Pascal, PascalABC.NET 5 24.10.2015 05:07
шифр Цезаря Defa4ka Помощь студентам 5 23.10.2011 13:48
Шифр цезаря (не работает) Айдар Помощь студентам 3 21.06.2010 11:15
Шифр Цезаря Goracio Помощь студентам 1 19.04.2010 14:53
Шифр Цезаря Jasper92 Помощь студентам 3 02.12.2009 18:47