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

  1. Помогите изобразить движение треугольника(или круга) вокруг Земли тут:


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.

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

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



Похожие ответы
  1. Приветствую вас.Надо сделать что бы шарик двигался при нажатии клавиши вверх вниз влево вправо. Это у меня получилось но шарик постоянно мигает(ну я не знаю как по другому назвать это). И как сделать что бы программа выключалась при нажатии Escape? Как это убрать? Вот мой код:

  1. Доброго времени суток.Встретился с такой проблемой,написание графической программы.Ниразу с такой не сталкивался.Можете помочь написать??

  1. Частица (от заданной начальной точки) совершает хаотическое движение, двигаясь в случайном направлении на случайное расстояние (в пределах экрана). Получить на экране траекторию движения частицы до прерывания с клавиатуры.

  1. Необходимо написать программу для движения ромба по кругу

  1. Здраствуйте!Я нарисовала рисунок,но не могу сделать из него анимацию.Нужно чтобы рыба и по возможности облака двигались(как можно больше движении).не получается раскрасить плавники Не могли бы вы мне помочь,пожалуйста. Вот сама программа:

  1. движение тела по окружности, пожалуйста, очень нужно

  1. Напишите пожалуйста графический рисунок, необходимо, чтобы фигура двигалась. Фигура компьютерная мышка Работу нужно сдать 25.03.16

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

  1. Нужно написать программу, изображающую два графика с указанием точек пересечения y=|x^2-5*x+6|и y=2*x Help please

  1. Нужно написать программу, изображающую два графика с указанием точек пересечения y=-x^2-5x+6 и y=|x-1| Помогите пожалуйста