1 / 1 / 0
Регистрация: 04.09.2012
Сообщений: 94
1

Смена регистра введенного текста

04.09.2012, 18:53. Показов 1879. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста, учусь лишь на первом курсе. Задали написать программку на паскале которая: меняет регистр у введенного русского текста через кодировку. Дали пример, но я не все смогла разобрать и правильно записать. Помогите хотя бы понять что написал преподаватель.
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var i,b1:byte;
    s1:string;
    c1:char;
    c:byte;
begin
writeln('Введите текст');
readln(s1);
i:=ord(s1[0,]);
for i:=1 to i;
  do begin
  b1:=ord(<[i]);
  b1:=b1-32
  c1:=c1R(b1);
  s[i]=c1;
  writeln('Результат',s1);
  readln;
  end.
0
Лучшие ответы (1)
04.09.2012, 18:53
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
04.09.2012, 18:53
Ответы с готовыми решениями:

Смена регистра
Заменяет в тексте все строчные латинские буквы на прописные Нужно не испортить исходные данные и вывести их перед тем, как выведется...

Смена регистра латинских букв
Написать программу,которая будет заменять все маленькие буквы латинского алфавита на большие.

Смена регистра текста.!
Нужно слова на русском перевести в верхний или нижний регистр. что-то типа этого работает: LowerCase(st) или ...

4
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
04.09.2012, 19:02 2
Mirazhana, Паскаль какой?
0
1 / 1 / 0
Регистрация: 04.09.2012
Сообщений: 94
04.09.2012, 19:08  [ТС] 3
Turbo Pascal
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
04.09.2012, 19:11 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var s:string;
    n,i:byte;
begin
clrscr;
writeln('Введите текст на русском языке:');
readln(s);
n:=ord(s[0]);
for i:=1 to n do
if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)
else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)
else if s[i]='ё' then s[i]:='Ё'
else if s[i] in ['А'..'П'] then s[i]:=chr(ord(s[i])+32)
else if s[i] in ['Р'..'Я'] then s[i]:=chr(ord(s[i])+80)
else if s[i]='Ё'then s[i]:='ё';
write(s);
readln
end.
1
1 / 1 / 0
Регистрация: 04.09.2012
Сообщений: 94
04.09.2012, 19:15  [ТС] 5
Спасибо большое ^_^
0
04.09.2012, 19:15
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
04.09.2012, 19:15
Помогаю со студенческими работами здесь

Не работает смена регистра
Кодировка 1251. Код: setlocale(LC_CTYPE , 'ru_RU.CP1251'); $dol = strtolower($dol); Непонятно, почему регистр не...

смена регистра символов
Значит суть лежит в том, что регистр текста который введеный в мемо нужно изменять при нажатии на кнопку; и изинненый текст отображать на...

Смена регистра букв
Здравствуйте. Каким образом можно превращать буквы верхнего регистра в нижний, и наоборот (при этом, программа игнорирует цыфры). То есть,...

Смена регистра в словах
Помогите пожалуйста написать программу: Заданный текст превратить таким образом, чтобы каждое слово начиналось с большой буквы. Считать,...

Смена регистра символов в файле
ТО есть с чего хотя бы начать? Хотелось бы, что бы при входе текстового файла с готовым текстом, он менял его шрифт при выходе.


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Пользуясь нейросетью возвращаюсь к вопросу альтернативных приводов поступательного движения.
Hrethgir 14.02.2025
Описание тут https:/ / habr. com/ ru/ articles/ 778118/ . Вопрос ответ You Привет. Скажи, есть-ли вещества, которые могут менять жидкое состояние на желеобразное под воздействием ультразвука? . . .
Ошибка "Another git process seems to be running in this repository"
hw_wired 14.02.2025
При работе с git можно столкнуться с довольно раздражающей ошибкой "Another git process seems to be running in this repository". Эта ситуация возникает, когда система контроля версий пытается. . .
Ошибка "java.lang.NoCl­assDefFou­ndErro­r: javax/xml/bind/JAXBException"
hw_wired 14.02.2025
Как разработчики Java-приложений, мы сталкиваемся с разными ошибками, но одна из них - java. lang. NoClassDefFoundError: javax/ xml/ bind/ JAXBException - стала особенно актуальной после выхода Java 9. . . .
Отличия for-in от for-of в JavaScript
hw_wired 14.02.2025
Когда-то единственным способом перебора элементов массива или свойств объекта был классический цикл for с счетчиком. Да, он отлично справлялся с задачей, но код получался громоздким и не очень. . .
Отличия implementation, api и compile в Gradle
hw_wired 14.02.2025
Управление зависимостями - одна из ключевых задач при разработке современных приложений на Java и Kotlin. Система сборки Gradle предоставляет гибкие и мощные средства для работы с зависимостями,. . .
Что лучше: require или import/export в JavaScript
hw_wired 14.02.2025
Модульность в JavaScript прошла долгий путь эволюции, и сегодня у разработчиков есть два основных способа организации модулей: старый добрый require из системы CommonJS и современные import/ export из. . .
Ошибка "Uncaught SyntaxError: Cannot use import statement outside a module"
hw_wired 14.02.2025
Думаю, многие разработчики сталкивались с ошибкой "Uncaught SyntaxError: Cannot use import statement outside a module" при попытке использовать современный синтаксис импорта в JavaScript. Эта. . .
Ошибка Docker "Got permission denied while trying to connect to the Docker daemon socket at"
hw_wired 14.02.2025
Разработка с использованием Docker может иногда преподносить неожиданные сюрпризы, и одним из самых распространенных камней преткновения становится ошибка с отказом в доступе к демону Docker. . . .
Ошибка "No 'Access-Control-Allow-Origin' header is present on the requested resource"
hw_wired 14.02.2025
При разработке современных веб-приложений нередко сталкиваешься с ошибкой "No 'Access-Control-Allow-Origin' header is present on the requested resource". Эта проблема возникает из-за политики. . .
Как закрыть порт в Linux
hw_wired 14.02.2025
Управление сетевыми портами в Linux - непростая, но важная задача для обеспечения безопасности системы. Каждый открытый порт - это потенциальная уязвимость, через которую злоумышленики могут. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru