Как ограничить количество нажатий клавиши в секунду?

@LaGGeR_Paranoja · Регистрация: 04.11.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте. У меня вот такая вот программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Program igra;
uses crt,GraphABC;
var i,d,t,g,gg: integer;  a:char;
begin
LockDrawing;
i:=20; d:=580; t:=10; g:=1;
while ((i>0) and (i<980) and (d>0) and (d<610)) do
begin
gg:=random(10);
setwindowsize(1366,768);
ClearWindow;
FloodFill(100,600,clSilver);
SetBrushColor(clyellow);
Rectangle(0,620,1001,640);
Rectangle(0,530,130,515);
Rectangle(130,530,145,355);
Rectangle(130,355,145,339);
Rectangle(145,355,700,339);
Rectangle(700,339,715,355);
Rectangle(700,355,715,530);
Rectangle(715,530,845,515);
circle(i+0,d+0,gg+22);
SetBrushColor(clred);
Rectangle(0,100,1005,105);
circle(179,380,g+25);
circle(239,380,g+25);
circle(299,380,g+25);
circle(359,380,g+25);
circle(419,380,g+25);
circle(479,380,g+25);
circle(539,380,g+25);
circle(599,380,g+25);
circle(659,380,g+25);
if keypressed then
 begin 
 a:=readkey;
 if a=chr(1) then i:=i-t;
 if a=chr(4) then i:=i+t; 
 if a=chr(23) then d:=d-t;
 if a=chr(24) then d:=d+t;
 if a=chr(32) then t:=t+2;
 end;
Redraw;
end;
end.

Заниматься программированием на паскале начал всего-то пару дней назад, так что банально очень многого не знаю.
Так вот, создаю вот такую незамысловатую игру, где можно управлять "шаром", который должен успеть прокатится некоторый отрезок пространства, дабы шары с потолка не упали на него(Игра пока не доделана, к сожалению). Но вот в процессе возник казус, шар заносит если клавишу зажать, неудобно управлять. Каким образом этого можно избежать? К примеру, ограничив количество нажатий за отрезок времени, или как то по другому.

Так же есть еще пара вопросов таких как:
1) Как сделать так что бы шар ударялся об стены, а не проходил через них?
2) Или я вот не очень хорошо понимаю как работает команда "setwindowsize".

Помогите, пожалуйста, если не сложно. Желательно в ближайшие 2 дня.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .