Изобразить движение треугольника (или круга) вокруг Земли - Pascal ABC

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

Помогите изобразить движение треугольника(или круга) вокруг Земли тут:
uses GraphABC;
var I,X,Y,D, pic: integer;
 
 begin
 ClearWindow;
 
 pic:=LoadPicture('zagotovka.jpg');
  DrawPicture(pic,0,0);
  DestroyPicture(pic);
 
end.


textual

Код к задаче: «Изобразить движение треугольника (или круга) вокруг Земли - Pascal ABC»

uses GraphABC,Crt;
var w,h,xc,yc,a,b,x,y: integer;
    u:real;
    pic:Picture;  //лучше класс Picture, чем описатель
 begin
 hidecursor;
 w:=600;
 h:=round(w*0.655);
 setwindowsize(w,h);
 centerwindow;
 pic:=Picture.Create('zagotovka.jpg');
 xc:=windowwidth div 2;
 yc:=windowheight div 2;
 a:=280;
 b:=80;
 u:=0;
 lockdrawing;
 repeat;
 pic.Draw(0,0,w,h);
 x:=xc+round(a*cos(u));
 y:=yc+round(b*sin(u));
 if y>yc-(b div 2)-30 then
  begin
   setbrushcolor(clYellow);
   circle(x,y,10);
  end;
 delay(100);
 u:=u+0.1;
 redraw;
 until keypressed;
 pic.Destroy;
end.
Эта работа вам не подошла?

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


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

7   голосов, оценка 4.571 из 5

Источник