Алгоритмы и программы. Афанасьева Т. В - 186 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

186
begin
Writeln('Please press a key');
C := READkey;
Writeln(' You pressed ', C, ', whose ASCII value is ', Ord(C), '.');
end.
12) KeyPressed – возвращает значение TRUE, если на клавиатуре
нажата клавиша и FALSE – в противном случае.
Примечание: символ (или символы) остаются в буфере клавиатуры.
Данная процедура не распознает клавиш перевода регистра, таких как
Shift, Alt, NumLock и т.д.
Пример использования KeyPressed
uses Crt;
begin
repeat
Write('Xx'); { выводит надпись Хх пока не будет }
until KeyPressed; { нажата какая–либо клавиша }
end.
13) Sound – является
процедурой, включающей внутренний
динамик.
Описание: Sound(герц: word); где параметр «герц» задает частоту
генерируемого сигнала в герцах. Звук будет звучать до тех пор, пока не
будет выключен посредством обращения к процедуре NoSound;
14) NoSound – выключает внутренний динамик.
Пример использования Sound, Delay, NoSound.
uses Crt;
begin
Sound(220); { включить звук }
Delay(300); { ждать 300 ms }
NoSound; { выключить звук }
end.
Задания для самостоятельного выполнения
1. Разработать функцию, реализующую запрос одной из двух альтернатив
«ДА – НЕТ» и возвращающую номер выбранной альтернативы. («ДА» – 1,
«НЕТ» – 2»).Запрос организовать в форме вертикального меню в центре
экрана с выбором с помощью навигационной клавиатуры.
2. Разработать функцию, входными данными для которой является массив
из N строк. Функция должна вывести на экран строки в
виде вертикального
меню (координаты верхнего левого угла меню фиксированы). Выбор

Страницы