Прграммирование в паскаль. оператоp case. Задать случайным образом код символа - большой...

Question

Прграммирование в паскаль. оператоp case.
Задать случайным образом код символа - большой русской буквы. Напечатать соответсвующую ей маленькую букву. (Комментарий: ряд маленьких русских букв в таблице ASII прерывается а...п, р...я. Разность кодов больших и маленьких букв до "n"= 32, после 'р'=80.)

Comments

СПАСИБО БОЛЬШОЕ )

---

КАК ДОБАВИТЬ БАЛЛЫ?

---

Никак. Только снова задать вопрос.

---

Самое смешное, что если решать не для PC-866, то работать будет неверно!

---

Я В ИНФОРМАТИКЕ 0

---

Т.е надо на Турбо/Борланд или Фри Паскаль

---

NOVIX ТЫ ГЕНИЙ

---

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

---

спасибо

---

Не за что. Если вдруг что, то строки 'А'..'П' : writeln('Маленькая буква: ', chr(randomNumber+32)); 'Р'..'Я' : writeln('Маленькая буква: ', chr(randomNumber+80));Заменишь строкой:'А'..'Я' : writeln('Маленькая буква: ', chr(randomNumber+32));И всё заработает на cp1251.

Answer 1

Var
    randomNumber : integer;
begin
    Randomize();
    randomNumber := random(32)+192; // Получаем случайную большую букву
    writeln('Большая буква: ', chr(randomNumber));
    case chr(randomNumber) of
        'А'..'П' : writeln('Маленькая буква: ', chr(randomNumber+32));
        'Р'..'Я' : writeln('Маленькая буква: ', chr(randomNumber+80));
    end;
end.