Траектория на Паскале или на С++ - Turbo Pascal

Формулировка задачи:

(Фотография текста заменена текстом) Материальная точка движется вдоль плоскости OXY согласно закону Построить траекторию точки.
x(t) y(t)
1 sin(2t) cos(3t)
2 sin(3t) cos(4t)
3 sin(4t) cos(5t)
4 sin(5t) cos(6t)
5 sin(6t) cos(7t)
6 sin(7t) cos(8t)
7 sin(8t) cos(9t)
8 sin(9t) cos(10t)
9 sin(10t) cos(11t)
10 sin(11t) cos(12t)


textual

Код к задаче: «Траектория на Паскале или на С++ - Turbo Pascal»

uses graph;
var r,t:real;
    x0,y0,x,y:integer;
begin
initgraph(x,y,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
t:=0;
setcolor(12);
while t<=2*pi do
 begin
  r:=sqrt(sqr(sin(3*t))+sqr(cos(4*t)));
  x:=x0+round(100*r*cos(t));
  y:=y0-round(100*r*sin(t));
  if t=0 then moveto(x,y)
  {putpixel(x,y,12);}
  else lineto(x,y);
  t:=t+0.01;
 end;
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.900 из 5

Источник