0

Есть строка на вход в паскале. Нужно сделать так, чтобы на вывод программа выводила ту же строку, но меняла заглавные буквы на строчные, если они там были. Например, на ввод: "Окно Дверь" программа должна вывести: "окно дверь".

var S: string;
begin
  write('Введите текст: ');
  read(S);
  write(S);
end.
3
  • Можно к коду буквы прибавлять 0x20 и буква станет нижнего регистра... 10 ноя 2017 в 16:15
  • Не могли бы Вы это показать, как именно это нужно прописывать?
    – A.Hall
    10 ноя 2017 в 16:24
  • Я не пишу на Паскале, но способ точно работает 10 ноя 2017 в 16:24

1 ответ 1

1

В FreePascal есть функция AnsiLowerCase которая конвертирует строку в нижний регистр с использованием системной локали. Определена в модуле SysUtils

uses SysUtils;

var S: string;
begin
  write('Введите текст: ');
  read(S);
  S := AnsiLowerCase(S);
  write(S);
end.
5
  • А если модули не работают в компиляторе? Можно ли реализовать задачу без них?
    – A.Hall
    10 ноя 2017 в 17:32
  • Спасибо большое. Решил вопрос с помощью LowerCase
    – A.Hall
    10 ноя 2017 в 18:52
  • @A.Hall LowerCase переводит в нижний регистр только латиницу 11 ноя 2017 в 15:05
  • Возможно это какой-нибудь абс паскаль - там все не как у людей.
    – Alekcvp
    12 ноя 2017 в 10:07
  • @Alekcvp Человек поставил тег FreePascal 12 ноя 2017 в 14:29

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.