IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> Скорость машинки
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 35
Пол: Мужской
Реальное имя: Вася

Репутация: -  0  +


Каким образом можно можно изменять скорость машинки с клавиатуры? Или по каким формулам это можно вычислить? А в частносити при отпускании клавиши газ вычисление затухания скорости?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Ну, вариантов - то много... Вот один из них: отслеживаешь, пока кнопка нажата, в это время скорость прибавляется. (Лучше, конечно, сделать через ускорение, но это уже ты сам переделай)... Как только кнопку отпустили - скорость начинает уменьшаться (или меняется знак ускорения). Не забудь контролировать нулевое значение скорости, когда педаль газа отпускаешь, и машина останавливается, назад она ехать не начинает smile.gif

Вот простейшая имитация:
uses crt;
const
plusV = 1.2; { <-- Приращение скорости }
minusV = 0.4;

var
V: real;
ch: char;
stop: boolean;

begin
stop := false;
V := 100; { <--- Начальная скорость }
repeat

while keypressed do begin
ch := readkey;
case ch of
#27: stop := true;
else V := V + plusV;
end;
writeln('V = ', V:10:5);
end;

if not stop then
while not keypressed do begin
V := V - minusV;
if V < 0 then V := 0;
writeln('V = ', V:10:5);
(*
delay(10); { <-- это для случая компиляции в FPC }
*)
delay(3000); { <-- Используется с Turbo Pascal, возможно придется изменять }
end;

until stop;

end.

Жми любую кнопку, скорость будет увеличиваться, отпускай - уменьшится... Esc для выхода...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 35
Пол: Мужской
Реальное имя: Вася

Репутация: -  0  +


Спасибо и за это.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 26.09.2017 9:08
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"