Вывести на экран только буквы - Pascal
Формулировка задачи:
Интересует, как вывести на экран только буквы, при любых нажатии клавиш? Ещё, как вывести только буквы русского алфавита?
Выводи все символы:
for A:=255 downto 0 do
writeln('code simbol = ',A,'simbol = ',chr(A));
Может нужно как-то отсортировать?
Решение задачи: «Вывести на экран только буквы»
textual
Листинг программы
uses crt; var i:byte; begin clrscr; for i:=65 to 241 do if (i <=90)or((i >=97)and(i <=122))or((i >=128 )and(i <=175))or (i >=224) then write(chr(i)); readln end.
Объяснение кода листинга программы
- В начале кода используется директива
uses crt;
, которая позволяет использовать функции и структуры из встроенной библиотеки CRT (Console Read/Write Functions). - Переменная
i
инициализируется значениемbyte
, что соответствует типу данныхchar
в языке Pascal. - Функция
clrscr
из библиотеки CRT очищает экран перед выполнением программы. - Затем следует цикл
for
, который начинается с переменнойi
равной 65 и продолжается до 240 (так как 241 меньше 65). - Внутри цикла проверяется условие: если значение переменной
i
находится в диапазоне от 65 до 90, или от 97 до 122, или от 128 до 175, или от 224 до 240, то значение переменнойi
выводится на экран с помощью функцииwrite
и функцииchr
, которые преобразуют числовое значение в соответствующий символ. - После выполнения всех условий цикл завершается, и программа заканчивается вызовом функции
readln
, которая считывает ввод пользователя и выводит его на экран.