Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.89/18: Рейтинг темы: голосов - 18, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 03.03.2014
Сообщений: 13
1

Дан файл, содержащий зашифрованный русский текст, Каждая буква заменяет на следующий за ней , буква" я" заменяется на "а"

03.03.2014, 23:24. Показов 3412. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан файл, содержащий зашифрованный русский текст, Каждая буква заменяет на следующий за ней , буква" я" заменяется на "а". Получить в новом файле расшифровку данного текста
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
03.03.2014, 23:24
Ответы с готовыми решениями:

Дан файл, содержащий зашифрованный русский текст. Каждая буква заменяется на следующую за ней (буква я заменяется на а)
Написать программу на языке программирования Delphi, используя тип текстовые файлы. исходные...

Дан файл содержащий зашифрованный текст. Каждая буква заменяется на следующую за ней (буква я заменяется на а). Получить в новом файле расшифровку
дан файл содержащий зашифрованный русский текст. Каждая буква заменяется на следующую за ней (буква...

Каждая буква заменяется на следующую за ней (буква я заменяется на а). Получить в новом файле расшифровку данного текста.
помощи прошу) Дан файл, содержащий зашифрованный текст на русском языке. Каждая буква...

Написать программу которая реализует шифр Цезаря, т.е. каждая буква заменяется на следущую за ней по алфавиту, а последняя буква заменяется первой
Написать программу которая реализует шифр Цезаря, т.е. каждая буква заменяется на следущую за ней...

1
1647 / 1076 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
04.03.2014, 10:40 2
Лучший ответ Сообщение было отмечено vlad201 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function Code(St : String) : String;
Var
  i : Integer;
  S : String;
Begin
  S:=St;
  For i:=1 to Length(S) do
    If S[i] in ['а'..'я','А'..'Я'] then
      If S[i]='я' then S[i]:='а' else S[i]:=chr(Ord(S[i])+1);
  Code:=S;
End;
 
Function deCode(St : String) : String;
Var
  i : Integer;
  S : String;
Begin
  S:=St;
  For i:=1 to Length(S) do
    If S[i] in ['а'..'я','А'..'Я'] then
      If S[i]='а' then S[i]:='я' else S[i]:=chr(Ord(S[i])-1);
  deCode:=S;
End;
0
04.03.2014, 10:40
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
04.03.2014, 10:40
Помогаю со студенческими работами здесь

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

Расшифровка файла: каждая русская буква заменяется на букву того же регистра, следующей за ней
Задание : Создать текстовый файл, который содержит зашифрованный текст, введенный с клавиатуры. При...

Дан файл содержащий зашифрованный русский текст. Получить в новом файле расшифровку данного текста
дан файл содержащий зашифрованный русский текст. Каждая буква заменяется на следующую за ней (буква...

Дан файл, содержащий текст, и некоторая буква
Даны файл, содержащий текст, и некоторая буква. Подсчитать, сколько слов начинается с указанной...

Расшифровать текст (алгоритм шифрования: каждая буква заменяется на следующую, "а" заменяется на "я")
Дана текстовая лента. Каждое слово в ней зашифровано — каждая буква заменяется на следующую, а...

Дан файл, содержащий текст на русском языке и некоторая буква
Дан файл, содержащий текст на русском языке и некоторая буква. Найти слово, содержащее наибольшее...

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


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Какой язык программировани­я лучший для разработки нейронных сетей
InfoMaster 20.01.2025
В современном мире технологий искусственные нейронные сети становятся неотъемлемой частью множества инновационных решений, от распознавания речи до автоматического управления транспортными. . .
Как подключить JavaScript файл в другом JavaScript файле
InfoMaster 20.01.2025
В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .
Как откатить изменения в исходниках, не внесенные в Git
InfoMaster 20.01.2025
При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .
В чем разница между px, in, mm, pt, dip, dp, sp
InfoMaster 20.01.2025
В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .
Как изменить адрес удалённого репозитория (origin) в Git
InfoMaster 20.01.2025
В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .
Как переместить последние коммиты в новую ветку (branch) в Git
InfoMaster 20.01.2025
При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .
Как вернуть результат из асинхронной функции в JavaScript
InfoMaster 20.01.2025
Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .
Какой локальный веб-сервер выбрать
InfoMaster 19.01.2025
В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .
Почему планшеты и iPad уже не так популярны, как раньше
InfoMaster 19.01.2025
Эра революционных инноваций История планшетов началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые прототипы,. . .
Как самому прошить BIOS ноутбука
InfoMaster 19.01.2025
BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .
Какой Linux выбрать для домашнего компьютера
InfoMaster 19.01.2025
Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .
Как объединить два словаря одним выражением в Python
InfoMaster 19.01.2025
В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru