Символы и Строки Pascal ABC

@HaXoq4uBbIu' :) · Регистрация: 11.01.2011

Author24 — интернет-сервис помощи студентам

Не знаком мне этот вид задачи.... Помогите...
Дана строка-предложение на русском языке. Зашифровать ее, b{onkm циклическую замену каждой буквы на следующую за ней в алфавите и сохраняя при этом регистр букв ("А" перейдет в "Б", "а" — в "б", "Б" — в "В", "я" — в "а" и т.д.). Букву "ё" в алфавите не учитывать ("е" должна переходить в "ж"). Знаки препинания и пробелы не изменять.

@Jazon_deenAlt · 13.01.2011, 13:08

HaXoq4uBbIu' , вот что вам поможет:

Функция Ord возвращает целочисленное значение для любого перечислимого типа Arg.

Это используется преимущественно, чтобы преобразовать символы или перечисления в их числовые эквиваленты.

Функция Chr конвертирует целое число IntValue или в AnsiChar или в WideChar
Набор символов ansi включает управляющие символы типа Chr(27), означающего escape.

Char(65) дает 'A'

Обратите внимание, что ^A эквивалентно Char(1).

например:

Pascal

1	chr(ord(s)+1)

выдаст смещенный вперед символ, дальше я думаю вам будет несложно)

@HaXoq4uBbIu' :) · 13.01.2011, 13:12 **[ТС]**

Благодарю! Освобожусь сделаю не освобожусь не сделаю я уже отчет делаю думал усовия последних задач закину решат ! а тут просто наводка помощь ну за это спс....!

@Jazon_deenAlt · 13.01.2011, 13:15

HaXoq4uBbIu' : ), конечно наводка) вы же находчивый, вы выкрутитесь) а много таких кто ненаходчивый им больше полный листинг нужен)

@HaXoq4uBbIu' :) 1 / 1 / 1 Регистрация: 11.01.2011 Сообщений: 44
		1
	Символы и Строки Pascal ABC 13.01.2011, 12:56. Показов 1496. Ответов 3 Метки нет (Все метки) Не знаком мне этот вид задачи.... Помогите... Дана строка-предложение на русском языке. Зашифровать ее, b{onkm циклическую замену каждой буквы на следующую за ней в алфавите и сохраняя при этом регистр букв ("А" перейдет в "Б", "а" — в "б", "Б" — в "В", "я" — в "а" и т.д.). Букву "ё" в алфавите не учитывать ("е" должна переходить в "ж"). Знаки препинания и пробелы не изменять. 0

@HaXoq4uBbIu' :) 1 / 1 / 1 Регистрация: 11.01.2011 Сообщений: 44
	13.01.2011, 13:12 [ТС]	3
	Благодарю! Освобожусь сделаю не освобожусь не сделаю я уже отчет делаю думал усовия последних задач закину решат ! а тут просто наводка помощь ну за это спс....! 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	13.01.2011, 13:15	4
	HaXoq4uBbIu' : ), конечно наводка) вы же находчивый, вы выкрутитесь) а много таких кто ненаходчивый им больше полный листинг нужен) 0