Меняю переменную и выпадает ошибка, как исправить?

Question

[Nick Sl]

При замене переменной грав. постоянной

Gmm:=6.672E-20

на правильную

6.67*exp(-11*ln(10))

, выпадает ошибка. Как исправить?

Program Gr01;

Uses GraphABC;

var x1, y1: Integer; key: boolean;
ax, ay, vx, vy, x, y, t, dt, pi, Gmm, M, r: real;
begin
  t:=0;   dt:=20;
  Gmm:=6.672E-20;   M:=5.97E24;
  x:=7000;  y:=0;   vx:=0;   vy:=10;
  Circle(320, 170, 32);
  x1:=Round(x/200); y1:=Round(y/200);
repeat 
 // setColor (0);
 Circle(320+x1, 170-y1, 2);
 r:=Sqrt(x*x+y*y);
 ax:=-Gmm*M*x/(r*r*r);
 ay:=-Gmm*M*y/(r*r*r);
 vx:=(vx+ax*dt);
 vy:=(vy+ay*dt);
 x:=x+vx*dt;
 y:=y+vy*dt;
 x1:=Round(x/200); y1:=Round(y/200);
 // setColor (2);
 Circle(320+x1,170-y1, 2);
 Sleep(5);t:=t+dt;
 until key;
 end.

Comments

[Hemul GM]

Какая ошибка-то?

[Nick Sl]

[Nick Sl]

если не исправлять, то отрабатывает нормально, но значение постоянное не верно

[mlyamasov]

В первом случае переменная равна 6.67e-20, а во втором 6.67e-11.

Answer 1

[kalapanga]

А почему Вам "правильную" постоянную в читабельном виде не пишется (6.67E-11)?
Что касается ошибки, то скорее всего размерности используемых величин не привели к одной системе. Если уж берём постоянную в системе СИ, то массы должны быть в килограммах, расстояния в метрах. Для начала проверьте так ли оно у Вас.