Графика. Двужущаяся точка., Точка совершает колебания Опции

[Accer]

Помогите с графикой! Нужно изобразить точку, совершающую независимые гармонические колебания с частотой w1 по горизонтали и с частотой w2 по вертикали. (амплитуда тех и других колебаний равна а). Считать, что в момент времени t точка имеет координаты x=a cos w1(t-t1) y=a cos w2(t-t2); t1 и t2 даны. Предусмотреть возможность управления с клавиатуры значениями w1 и w2.

[Чужак]

Чужак, не фантазируй, про плоскости никто ничего не говорил. Точка колеблется вдоль горизонтальной оси (скажем, Х) и вертикальной оси (скажем, Y). Иначе говоря:
x=a cos w1(t-t1)
y=a cos w2(t-t2)
- как сказано в условии.

Я это и имел в виду. Слово "плоскость" не вполне уместна...

Если ты оформишь их как функции:

function Xs(x:real):integer;
begin
  Xs:=(x-x1)/(x2-x1)*GetMaxX
end;

(и аналогично для Ys; здесь х1 - левая граница экрана, а х2 - правая, например х1=-а и х2=а)

Нужны ли сдесь функции?

А можно увидеть пример с простым движением точки туда обратно

Можно, увидишь...
Я тут делаю программу, которая условно называется
"визуализатор синусоид". (В программе использован фрагмент кода volvo,
помещенный на форуме-линия вращалась в круге).

program VisualSinusoid;
 Uses Crt, Graph;
 Const r = 80;
 Label 1;
 Var gd, gm: Integer; t,X,Y: Real;
Begin
  InitGraph(gd,gm,'');  t:=0;
1: X:=280;
   SetColor(15);
  Circle(120,240,r);   
  SetColor(2);
  Line(120, 240, Round(120+r*cos(t)), Round(240+r*sin(t)));
  Line(Round(120+r*cos(t)), Round(240+r*sin(t)),
  280, Round(240+r*sin(t)) );
  X:=X+1; Y:=240+r*sin(t);
  PutPixel(Round(X), Round(Y), 11);
  Delay(300);
  SetColor(0);
  Line(120, 240, Round(120+r*cos(t)), Round(240+r*sin(t)));
  Line(Round(120+r*cos(t)), Round(240+r*sin(t)),
  280, Round(240+r*sin(t)));
  t:=t+0.05;
 if X>600 then begin ClearDevice; goto 1; end
 until KeyPressed;
  CloseGraph
End.