Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
Дмитрий7777777
0 / 0 / 0
Регистрация: 26.05.2013
Сообщений: 118
1

Изменить скорость движения

23.09.2013, 10:40. Просмотров 1264. Ответов 2
Метки нет (Все метки)

Изменить скорость движения. Если окружность движется не быстро, увеличить скорость (x:=x+2), если слишком быстро – уменьшите процедурой Delay.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.09.2013, 10:40
Ответы с готовыми решениями:

Дано время движения автомобиля и пройденный путь. Найти его скорость
Здравствуйте! Помогите найти ошибку. Program skorost; Var s,v,t:^real; Begin new(s);...

Изменить направление движения.
Не имеется идей. Корабль движется в четерёх направлениях - (север, юг, запад , восток), для...

Как изменить скорость движения одного шара, чтобы спутники двигались с разными скоростями и сталкивались
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Найти скорость движения через 2 с после начала движения
Силу сопротивления воздуха при падении тела можно считать пропорциональной квадрату скорости....

[Арканоид] Как вычислить скорость по X и Y имея угол направления шара и скорость движения?
Пишу арканоид(C++, SDL). Нашол формулу для определения угла с каким надо отразить шар от ракетки, в...

2
chizz
985 / 507 / 102
Регистрация: 19.03.2013
Сообщений: 3,108
Записей в блоге: 19
Завершенные тесты: 1
23.09.2013, 10:47 2
Цитата Сообщение от Дмитрий7777777 Посмотреть сообщение
Если окружность движется не быстро
Сколько вешать в граммах? (с)
0
Puporev
Модератор
58114 / 44208 / 30540
Регистрация: 18.05.2008
Сообщений: 105,875
23.09.2013, 10:54 3
Лучший ответ Сообщение было отмечено Дмитрий7777777 как решение

Решение

Дмитрий7777777, Код свой покажите...

Добавлено через 2 минуты
Вот пример изменения скорости вращения, переделаете если что.
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
uses crt,graph;
var x0,y0,x1,y1,r,gd,gm,i,z:integer;
    c:char;
begin
gd:=detect;
initgraph(gd,gm,'');
x0:=getmaxX div 2;y0:=getmaxY div 2;
r:=100;
i:=1;
outtextXY(200,20,'Skorost -> bolshe <- menshe');
outtextXY(250,40,'Vyhod - Esc');
Setcolor(11);
i:=1;
z:=50;
repeat
x1:=x0+round(r*sin(i*pi/180));
y1:=y0-round(r*cos(i*pi/180));
setcolor(12);
circle(x1,y1,1);
delay(z);
setcolor(0);
circle(x1,y1,1);
i:=i+1;
if keypressed then
 begin
  c:=readkey;
  case c of
  #75:z:=80;
  #77:z:=20;
  #27:exit;
  end;
 end
else z:=50;
until c=#27;
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.09.2013, 10:54

Найти среднюю скорость движения тела, зная длительность двух интервалов времени и скорости движения тела в них
Заданы длительность двух интервалов времени и соответствующие скорости движения тела. найти среднюю...

Скорость движения авто
Как на visual stidio 2010 написать такую програмку, известны данные: скорость движения и время. ...

Найти скорость движения
Всем доброго дня!!! Помогите решить! Прямоугольный брусок размером 3,3 \times 3,3 \times 6,9...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.