Вывести на экран только буквы - 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.

Объяснение кода листинга программы

  1. В начале кода используется директива uses crt;, которая позволяет использовать функции и структуры из встроенной библиотеки CRT (Console Read/Write Functions).
  2. Переменная i инициализируется значением byte, что соответствует типу данных char в языке Pascal.
  3. Функция clrscr из библиотеки CRT очищает экран перед выполнением программы.
  4. Затем следует цикл for, который начинается с переменной i равной 65 и продолжается до 240 (так как 241 меньше 65).
  5. Внутри цикла проверяется условие: если значение переменной i находится в диапазоне от 65 до 90, или от 97 до 122, или от 128 до 175, или от 224 до 240, то значение переменной i выводится на экран с помощью функции write и функции chr, которые преобразуют числовое значение в соответствующий символ.
  6. После выполнения всех условий цикл завершается, и программа заканчивается вызовом функции readln, которая считывает ввод пользователя и выводит его на экран.

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы