Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
maks_94
0 / 0 / 0
Регистрация: 26.05.2015
Сообщений: 2
#1

Зашифровать текст путем увеличения кода символа на 1 - Pascal ABC

26.05.2015, 01:41. Просмотров 212. Ответов 2
Метки нет (Все метки)

помогите написать программу , которая сначала будет кодировать введено с клавиатуры текстовое сообщение путем увеличения кода символа на 1 , выводить на экран кодовое сообщение а затем дешифровать сообщение .
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2015, 01:41
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Зашифровать текст путем увеличения кода символа на 1 (Pascal ABC):

Преобразовать данный текст по следующему правилу: если нет символа «*», то оставить текст без изменений, иначе вставить перед и после каждого символа - Pascal
Преобразовать данный текст по следующему правилу: если нет символа «*», то оставить текст без изменений, иначе вставить перед и после...

Получить одномерный целых чисел В путем увеличения элементов массива А в 10 раз - Pascal ABC
дан одномерный массив целых чисел А. Получения одномерный целых чисел В путем увеличения элементов массива А в 10 раз подробный код...

Получения одномерный целых чисел В путем увеличения элементов массива А в 10 раз - Pascal ABC
дан одномерный массив целых чисел А. Получения одномерный целых чисел В путем увеличения элементов массива А в 10 раз

Зашифровать строку, изменив код каждого символа на число N - Pascal ABC
Дана строка(Любое предложение). Зашифровать её, изменив код каждого символа на число N

Зашифровать текст - Pascal ABC
Написать программу который зашифрует текст в данном файле и потом расшифрует его обратно

Зашифровать текст - Pascal ABC
У меня есть программа но я никак не могу сделать так чтобы читало файл и зашифрованный текст кидался в другой файл,и потом расшифровать...

2
Puporev
Модератор
52824 / 40635 / 13884
Регистрация: 18.05.2008
Сообщений: 94,253
26.05.2015, 07:15 #2
На каком языке, какими символами вводится сообщение и на что заменяется последний символ алфавита?
Ну а если как у Вас написано, то так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var s:string;
    i:byte;
begin
writeln('Исходная строка');
readln(s);
for i:=1 to length(s) do
s[i]:=chr(ord(s[i])+1);
writeln('Зашифрованная строка');
writeln(s);
for i:=1 to length(s) do
s[i]:=chr(ord(s[i])-1);
writeln('Расшифрованная строка');
writeln(s);
end.
0
maks_94
0 / 0 / 0
Регистрация: 26.05.2015
Сообщений: 2
26.05.2015, 22:40  [ТС] #3
Спасибо большое!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2015, 22:40
Привет! Вот еще темы с ответами:

нужно зашифровать текст. - Pascal
помогите решить пожалуйста.зашифровать текст: каждое слово записать в обратном порядке,в полученном слове поменять местами две соседние...

Требуется зашифровать текст - Pascal
В виде массива символов дан текст (ввод с клавиатуры). Случайным обра- зом заполните второй массив из 26 элементов символами, отличными...

Зашифровать текст, а затем выполнить дешифровку - Pascal ABC
Надо зашифровать текст, который состоит из 121 буквы, его нужно записать в квадратную матрицу размера 11х11 по строкам, а затем прочитать...

Зашифровать текст, используя перемешанный алфавит. - Pascal
Зашифровать заданный текст (не более 255 символов ) используя один перемешанный алфавит, полученный случайной перестановкой всех букв...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.