Одновременное нажатие двух клавиш - Pascal ABC
Формулировка задачи:
Прошу помочь с одной задачей, а именно с возможностью 'достать' клавишу из буфера обмена, то есть узнать была ли она нажата(через 'if keypressed then readkey' не получается, т.к. он работает один раз за круг, сколько бы таких команд в цикле не было) . Заранее благодарен.
Решение задачи: «Одновременное нажатие двух клавиш»
textual
Листинг программы
uses crt; begin while true do if KeyPressed then begin writeln(Readkey()); writeln(ReadKey()); break; end; end.
Объяснение кода листинга программы
- Используется модуль CRT (Console Resource Tester) для работы с консолью.
- Запускается бесконечный цикл while true do.
- Проверяется условие KeyPressed, если оно истинно, то выполняется блок кода.
- Выводится значение Readkey() в консоль.
- Выводится значение ReadKey() в консоль.
- Выполняется действие break, прерывая цикл.
- Код завершается.