движение треугольника по синусоиде паскаль

[bossraven]

Необходимо что бы треугольник в центре экрана двигался с верху в низ по синусоиде
Вот примерный код. Понимаю что ахинея и бред, но какова вероятность довести до ума?
проблема собственно как предоставить треугольник для движения

uses crt,graph;
var r,a,y0,x,y:integer;
begin
clrscr;
write('Radius=');readln(r);
write('Amplituda=');readln(a);
x:=0;
initgraph(x,y,'');
y0:=getmaxY div 2;
x:=r;
y:=y0;
while x<getmaxX do
   BEGIN
      x:=VGA; y:=VGAHi; InitGraph (x,y,'..\bgi');
       If  GraphResult=grOk
         then  begin
                  Line (12,21,52,21); { Горизонтальный отрезок }
                  Line (12,21,32,1);  { Левый катет            }
                  Line (32,1,52,21);  { Правый катет           }
                  ReadLn
               end;
   begin
   y:=y0-round(sin(x*pi/180)*a);
   setcolor(12);
   circle(x,y,r);
   delay(50);
   setcolor(0);
   circle(x,y,r);
   x:=x+2;
   end;
   END;
setcolor(12);
outtextXY(getmaxX div 2-50,getmaxY-30,'Press Enter...');
readln
end.

[Serge_Bliznykov]

1) код написан просто ужасно..
неужели трудно хотя бы выделить InitGraph и нажать F1, потом открыть готовый пример кода и скопировать его?!

2) иницилизация графики производится ОДИН раз.

3) для рисования треугольника рекомендую воспользоваться DrawPoly
опять таки, пример из встроенного хелпа TurboPascal:

DrawPoly
{Sample code for the Drawpoly function.}

uses Graph;

const
  Triangle: array[1..4] of PointType = ((X: 50; Y: 100), (X: 100; Y:100),
    (X: 150; Y: 150), (X:  50; Y: 100));
var Gd, Gm: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
  DrawPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle);{ 4 }
  Readln;
  CloseGraph;
end.

4) окружность Вы зачем выводите?!
Вам нужно считать координаты X,Y согласно заданной функции (в вашем случае - синусоиде) и выводить треугольник по полученным координатам. Кстати, X, Y лучше сделать вещественного типа, а при выводе делать trunc(round(X))

попробуйте для начала просто нарисовать график сунусоиды точками...

сделаете - продолжим...


p.s.

в центре экрана двигался с верху в низ по синусоиде

если Вам не сложно, нарисуйте (можно в любом граф.редакторе) схемку, как это должно выглядеть..
сверху вниз по синусоиде...

[bossraven]

Спасибо.
Постараюсь сделать.
Если не сделаю на неделе-можно закрыть или удалить.

[Serge_Bliznykov]

Да не за что.
Успехов!

и, я Вам реально говорю -
1) нарисуйте схемку, как должно осуществляться движение
2) сделайте поточечный вывод синусоиды (фактически эти точечки отобразят движение треугольника)
и я помогу Вам "передвигать" треугольник по этому пути..