Как в Паскале реализовать работу сразу двух процессов. Тоесть, например,
одновременно программа выводит идущие часы на екран и ожидает нажатие
кнопки, если кнопка была нажата то программа выполняет какое-то действие,
и снова ожидает нажатие кнопки.
repeat
...
тут сдвигать стрелку часов;
...
until keypressed;
{...}
Repeat
{...}
Clock;
{...}
Until KeyPressed;
{...}
repeat
show_clock;
if keypressed then begin
ch := readkey;
case ch of
... { разбирай, какая клавиша нажата }
end;
end;
until ch = #27; { escape - выход }
ch := readkey;, то тут ты и читаешь (первый и единственный раз) код той клавиши, которая была нажата... Так что в коде все нормально Ничего дважды нажимать не придется...