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

@Дмитрий7777777 · Регистрация: 26.05.2013

Изменить скорость движения. Если окружность движется не быстро, увеличить скорость (x:=x+2), если слишком быстро – уменьшите процедурой Delay.

@chizz · 23.09.2013, 10:47

Сообщение от Дмитрий7777777

Если окружность движется не быстро

Сколько вешать в граммах? (с)

@Puporev · 23.09.2013, 10:54

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

Добавлено через 2 минуты
Вот пример изменения скорости вращения, переделаете если что.

Pascal

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.

@Дмитрий7777777 0 / 0 / 0 Регистрация: 26.05.2013 Сообщений: 118
		1
	Изменить скорость движения 23.09.2013, 10:40. Просмотров 1546. Ответов 2 Метки нет (Все метки) Изменить скорость движения. Если окружность движется не быстро, увеличить скорость (x:=x+2), если слишком быстро – уменьшите процедурой Delay. 0

@chizz 988 / 511 / 102 Регистрация: 19.03.2013 Сообщений: 3,113 Записей в блоге: 19
	23.09.2013, 10:47	2
	Сообщение от Дмитрий7777777 Если окружность движется не быстро Сколько вешать в граммах? (с) 0

Опции темы

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

Решение