Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
Жанбота
2 / 2 / 1
Регистрация: 25.10.2011
Сообщений: 50
1

Зашифровать строку, выполнив циклическую замену каждой буквы на букву того же регистра

03.11.2011, 11:36. Просмотров 1526. Ответов 1
Метки нет (Все метки)

Дана строка-предложение на русском языке и число k (0 < k < 10). Зашифровать строку, выполнив циклическую замену каждой буквы на букву того же регистра, расположенную в алфавите на k-й позиции после шифруемой буквы (например, для k = 2 "А" перейдет в "В", "а" — в "в", "Б" — в "Г", "я" — в "б" и т.д.). Букву "ё" в алфавите не учитывать, знаки препинания и пробелы не изменять.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.11.2011, 11:36
Ответы с готовыми решениями:

Зашифровать строку, выполнив циклическую замену каждой буквы на букву того же регистра
Дана строка-предложение на русском языке и число K (0 &lt; K &lt; 10). Зашифровать...

Строка: Зашифровать строку, выполнив циклическую замену каждой буквы на следующую за ней в алфавите и сохранив при этом регистр букв
Дана строка-предложение на русском языке. Зашифровать ее, выполнив циклическую...

Зашифровать файл, выполнив циклическую замену каждой русской буквы, стоящей на K-й позиции строки
Дана строка S, состоящая из 10 цифр, и файл с русским тек-стом. Зашифровать...

Зашифровать строку, выполняя циклическую замену каждой буквы
Дана строка-предложение на русском языке. Зашифровать ее, выполняя циклическую...

Зашифровать строку, выполнив циклическую замену каждой буквы
Дана строка-предложение на русском языке и число k (0&lt; k&lt;10). Зашифровать...

1
КонецСвета
Почетный модератор
7931 / 3902 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
03.11.2011, 20:52 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Может, немного грубовато, но как могу
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
var s: string;
    i, k: integer;
begin
write ('s=');
readln (s);
write ('k=');
readln (k);
for i:=1 to length(s) do
if (ord(s[i])>191) and (ord(s[i])<=255)
then
begin
     if ord(s[i])+k<=223
     then s[i]:=chr(ord(s[i])+k)
     else
     if ord(s[i])<=223
     then s[i]:=chr(ord(s[i])-32+k)
     else
     if ord(s[i])+k<255
     then s[i]:=chr(ord(s[i])+k)
     else
     s[i]:=chr(ord(s[i])-32+k)
end;
writeln ('s=',s);
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.11.2011, 20:52

Дано предложение на русском языке. Зашифровать ее, выполнив циклическую замену каждой буквы на следующую
очень нужна помощь с паскалем Добавлено через 1 минуту Дана...

Напечатать строку, предварительно после каждой буквы q добавить букву u
type stroka = packed array of char; var s:stroka; Известно, что в...

После каждой буквы q добавить букву u
Известно, что в начале строки S находится не более 40 латинских букв, за...


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

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

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