Кодирование текстовой информации в числовую. Функция, связанная с заглавными и строчными буквами

20.12.2014, 18:30. Показов 760. Ответов 0

Метки нет (Все метки)

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

Здравствуйте!
Мне необходимо закодировать текстовую информацию в числовую.
Но есть один нюанс, когда пользователь вводить определенный текст на английском языке заглавные и строчные буквы должны быть равны в присвоении чисел, то есть, если А='111', то и а='111'. Для этого написана функцию:

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
26
27
28
29
30
function UpCase866(const aStr : String) : String;
var
  S : String;
  i : Integer;
begin
  S := aStr;
  for i := 1 to Length(S) do
    case S[i] of
      'а'..'п': S[i] := Chr(Ord(S[i]) - 32);
      'р'..'я': S[i] := Chr(Ord(S[i]) - 80);
      'ё'     : S[i] := 'Ё';
      else
        S[i] := UpCase(S[i]);
    end;
  UpCase866 := S;
end;
 
.....
 
S := UpCase866(S);
  
  SRes := '';
  for i := 1 to Length(S) do
  begin
    j := Pos(S[i], vtext);
    if j = 0 then {Незарегистрированные знаки кодируем знаком '_'}
      SRes := SRes + '_'
    else {Зарегистрированные знаки кодируем согласно содержанию vcode.}
      SRes := SRes + vcode[j];
  end;

Всё работает нормально. Просто меня удивляет, как она работает, ведь в функции указаны русские буквы.

Pascal
1
2
3
      'а'..'п': S[i] := Chr(Ord(S[i]) - 32);
      'р'..'я': S[i] := Chr(Ord(S[i]) - 80);
      'ё'     : S[i] := 'Ё';

Просто мне нужно еще и русский алфавит закодировать, так что эта функция была написана и для русского алфавита. Мой вопрос заключается в том, что можно ли таким образом оставить функцию, раз она работает. Или же это неправильное написание?

Добавлено через 17 минут
Или же каким образом провести конвертацию английского алфавита к верхнему регистру.. Я пробовала, что-то ошибку выдает.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

20.12.2014, 18:30

Ответы с готовыми решениями:

Кодирование текстовой информации в числовую
Здравствуйте. Необходимо закодировать текстовую информацию в определенную последовательность цифр. Программа заключается в том,...

Задача связанная с строчными буквами(или как-то так)
Добрый день,помогите решить сие творение,заранее спасибо Дана строка из строчных русских букв,Вывести на экран в алфавитном порядке все...

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

20.12.2014, 18:30

Помогаю со студенческими работами здесь

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

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

Переписать программу в другой файл, записав служебные слова заглавными буквами, а остальные строчными
1.Текстовый файл содержит программу на некотором языке программирования. Необходимо переписать эту программу в другой файл, записав все...

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

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

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

Наверх