Попробуйте запустить программу, которая долго делает свое дело, не обращая на вас внимания. Например, такую:
BEGIN repeat WriteLn(‘А нам все равно!’) until 2>3 END.
Вы сидите перед компьютером и ждете, когда он закончит печатать свой текст. А он никогда не закончит. Вы принимаетесь стучать по клавишам, надеясь, что это прервет бессмысленный цикл. Бесполезно.
Только когда вы, удерживая нажатой клавише Ctrl, щелкнете по клавише Break, программа прервет свою работу.
Пока программы работают, они не реагируют на клавиатуру, если вы об этом специально не позаботились. А чтобы позаботиться, вы должны включить в них специальные функции ReadKeyи KeyPressedиз модуля CRT. О смысле функций вообще мы поговорим в 13.2, а сейчас разберем на примерах эти две.
Дополним нашу упрямую программу парой строк:
USES CRT;