БЕСПЛАТНОЕ РЕШЕНИЕ ЗАДАЧ

Управление выполнением программы

При программировании в Паскале надо научиться управлять работой программы выполняя выход или повторение выполнения программы с помощью нажатия на нужную клавишу. Приведенный здесь пример с подробными комментариями позволяет это делать.

uses crt;
 var
 cod_ASCII:byte;
 {byte - переменная целого типа от 0 до 255, занимает 8 бит}
begin
 clrscr;
 repeat
 writeln ('Нажмите клавишу, по которой хотите осуществить выход');
 cod_ASCII:=ord(readkey);
{readkey - функция символьного типа - принимает значение
 введенного символа;
 ord - функция возвращающая порядковый номер своего аргумента}
 writeln ('Символ ', chr(cod_ASCII),' код ASCII:', cod_ASCII);
{chr - функция, которая по коду возвращает символ, то есть становится
 равной символу, код которого является её аргументом}
 writeln('Выход - повторите эту клавишу, продолжение - другая ');
 until readkey=chr(cod_ASCII);
 {Выход по заданной клаише, например Esc: код клавишы Esc - 13;
 для выхода по Esc закомментируйте строчку перед данным комментарием,
 раскомментируйте (снимите фигурные скобки) следующую строчку}
 {until readkey=#13;}
end.

Оставить комментарий

Вы должны быть авторизованы , чтобы оставить или оценить комментарий.

Онлайн всего: 1
Гостей: 1
Пользователей: 0

STUDLAB Сообщить про опечатку на сайте