Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.05.2016, 13:37   #11
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Цитата:
Сообщение от Larisa_P Посмотреть сообщение
Код:
....
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then s[i]:=upcase(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]:='Ё';{русская ё}
....
А что за версия паскаля которая не обрабатывает с помощью Upcase кирилицу (ну кроме ё)?

Цитата:
определением согласной буквы......
Код:
not(определение гласной буквы)
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 26.05.2016, 16:19   #12
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
А что за версия паскаля которая не обрабатывает с помощью Upcase кирилицу (ну кроме ё)?
Так турбо паскаль же и только ['a'..'z']
Цитата:
not(определение гласной буквы)
Нет. Есть еще ь, ъ и й вроде ни куда не относится
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 26.05.2016 в 17:54.
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Заменить в файле все первые буквы в словах на заглавные буквы Luchfan12 Помощь студентам 6 15.10.2014 13:10
Преобразовать все строчные латинские буквы в прописные, а цифры заменить символом *. (Delphi) Dark Raven Помощь студентам 1 19.01.2012 14:53
заменить в каждой строке все трехзначные слова. Procedure (Pascal) Клетка Паскаль, Turbo Pascal, PascalABC.NET 0 18.05.2011 22:45
заглавные буквы, прописные ЦЕРЦЕЯ Microsoft Office Excel 1 21.01.2010 14:43
В заданной строке символов заменить все первые буквы слов на заглавные NV-salt Общие вопросы C/C++ 4 05.04.2009 18:41