Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Движение по окружности

Автор: Sergey89 27.10.2004, 18:19

Подскажите функцию движения точки по окружности :qstn

Автор: Garabar 27.10.2004, 18:35

в школе на математику надо хотябы иногда заходить

x=r*cos(t);
y=r*sin(t);
r-радиус;

Автор: Sergey89 27.10.2004, 18:42

Garabar, спасиба ;-)

Добавлено @ 18:43
А t как я понял- время?

Автор: Garabar 27.10.2004, 18:45

Цитата

А t как я понял- время?

Ага)) Наверна всетаки в школу иногда заглядывал))))

Автор: Sergey89 27.10.2004, 19:42

Почему возникают ошибки в построение

Код

procedure graph(pos: integer);
var
  r, x, y: integer;
begin
  r:= Round(Form1.Image1.Width/2);
  x:= Round(r*cos(pos));
  y:= Round(r*sin(pos));
  Form1.Image1.Canvas.FillRect(Form1.Image1.Canvas.ClipRect);
  Form1.Image1.Canvas.Pen.Color:= clBlack;
  Form1.Image1.Canvas.MoveTo(50, 50);
  Form1.Image1.Canvas.LineTo(y, x);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  graph(StrToInt(Edit1.Text));
end;

Автор: Полудненко Олег 27.10.2004, 20:31

Sergey89 наверное к х и у надо прибавлять ещё координаты центра окружности...

Автор: Sergey89 27.10.2004, 20:42

Кажется я понял, pos он принимал, как радианы

Добавлено @ 20:48

Цитата

Sergey89 наверное к х и у надо прибавлять ещё координаты центра окружности...

Спасиба тебе твой совет тоже помог ;)

Автор: SoWa 22.1.2005, 19:41

Про радианы:
DegToRad
&
RadToDeg

Автор: Ripper 22.1.2005, 21:58

x^2+y^2=R^2 ?
Это же тоже вроде график окружности? Тока центр в начале кооринат будет
хотя с косинусами синусами легче