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

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.0 (15)

2010-08-18 • Просмотров [ 2001 ]

Управление работой программы.