-
X Y
Radius
ZeroSpeed
Alpha
ZeroX:= X; ZeroY:= Y;
TimeMoment:= 0
X:= ZeroX + TimeMoment * ZeroSpeed * Cos(Alpha)
Y:= ZeroY + TimeMoment * ZeroSpeed * Sin(Alpha) 9.8 * Sqr(TimeMoment) / 2
Speed:= Sqrt(Sqr(TimeMoment * ZeroSpeed * Cos(Alpha)) +
Sqr(TimeMoment * ZeroSpeed * Sin(Alpha) 9.8 * TimeMoment))
Smin
S.
Smin <= Radius S <= Radius,
Teta
Alpha:= Pi Teta
ZeroSpeed:= Speed
TimeMoment:= 0
ZeroX:= X; ZeroY:= Y;
X Y
Radius
ZeroSpeed
Alpha
ZeroX:= X; ZeroY:= Y;
TimeMoment:= 0
X:= ZeroX + TimeMoment * ZeroSpeed * Cos(Alpha)
Y:= ZeroY + TimeMoment * ZeroSpeed * Sin(Alpha) 9.8 * Sqr(TimeMoment) / 2
Speed:= Sqrt(Sqr(TimeMoment * ZeroSpeed * Cos(Alpha)) +
Sqr(TimeMoment * ZeroSpeed * Sin(Alpha) 9.8 * TimeMoment))
Smin
S.
Smin <= Radius S <= Radius,
Teta
Alpha:= Pi Teta
ZeroSpeed:= Speed
TimeMoment:= 0
ZeroX:= X; ZeroY:= Y;
-
, : , , . , Object Pascal.
= < X; Y; ; >,
X, Y 
R ;
R 
;
{0,1,2... 2 147 483 648} .
. X Y, Double, Integer.
|
|
|
= < X0; Y0; Xp; Yp; ; ; >,
X0, Y0 R t0=0;
Xp; Yp R ;
R t0=0;
R t0=0;
R .
record, Double.
= {i| i = 0..n },
i X,Y;
n .
.
