как вывести на графику где в коде у меня ошибка
program ps;
uses Crt, GraphABC;
const
G=6.67e-11;
var x0,y0,xx,yy,u,x1,y1: integer;
ux,uy,alpha,dt,r,ax,ay,m,vx,vy,t,x,y,dx,dy:real;
N, i : Integer;
xi,yi:integer;
begin
SetWindowSize(600,600);
ClrScr;
x:=100.0; r:=0.0;
y:=290.0; x0:=WindowWidth div 2;
vx:=0.1; x0:=WindowHeight div 2;
vy:=1.5 ;
ax:=0.0; x1:=350; y1:=300;
ay:=0.0 ;
alpha:=45;//траектории в градусах
i := 1;
N:=100;
t := 0;
begin
alpha := Pi * alpha / 180;
r:=sqrt(sqr(x- X0) + sqr(y - Y0));
ax:= G * m * (x0-x)/sqr(r);
ay:=G * m * (y0-y)/sqr(r);
vx := vx + t * ax;
vy := vy + t * ax;
dt:=15;
while true do
begin
dx := x + t * vx;
dy := y + t * vy;
u:=round(dy);
for u:=-90 to 90 do
begin
xx:=x1+Round(ax*sin(Pi*u/180));
yy:=y1-Round(ay*cos(Pi*u/180));
SetBrushColor(clYellow);
circle(300,300,10);
SetBrushColor(clRed);
circle(xx,yy,10);
t := t + dt;
sleep(2);
if i mod 20 = 0 then
end;
end;
end;
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.