Графика, отрисовка, клавиатура, Как совместить непрерывность отрисовки с управлением с клавиатуры? Опции

[Чужак]

Есть программа, делающа непрерывную отрисовку
с помощью repeat. Если используется структура

....
repeat
....
until Keypressed;

на экраине идет непрерывная отрисовка,
до нажатия любой клавиши.
Но если поменять на

....
repeat
....
until Readkey='q';

Программа выходит по нажатию
клавиши q, но работает только
при нежатии любой другой клавиши(нажал и не отпускаешь).
Как совместить непрерывность отрисовки с управлением с клавиатуры?

[volvo]

как выводить на экран значение r?

Очень просто: появляется функция

function IntToStr(i: Longint): String;
var s: string;
begin
  Str(i, s);
  IntToStr := s;
end;

в конце процедуры Upravlenie делается:

setfillstyle(solidfill, getbkcolor);
bar(...); { тут дашь координаты, чтобы затереть старое значение }
outtextxy(..., IntToStr®); { <--- выводишь в том же месте новое значение }

Вот и все...

[Гость]

еще 1 способ

var

key : char

begin

if keypressed = true then

begin

key := readkey ;

case ord(key) of
.........

end;

end;