Сформировать точку, движущуюся по отрезку в обоих направлениях

Tapok1995

Сформировать точку, движущуюся по отрезку в обоих направлениях. Координаты начала и конца отрезка задаются с клавиатуры.
3 ответа

Tapok1995

движущуюся по отрезку в обоих направлениях
Это как? Конкретнее, пожалуйста; условие не точное.


Tapok1995

Я тут пробовал решить. Задал ввод координат. Потом по этим координатат задал систему координат. Потом нарисовал прямую. Потом все бросил ...


Tapok1995

Включаем дедукцию господа, вбок по отрезку точка двигаться не может т.к. съедет с отрезка (да и нафига нужен тогда отрезок) следовательно, раз указана одна точка, значит двигаться должна поочерёдно, туда сюда, из начала в конец и обратно. Координаты для этого и нужны. И естественно хреново, что юзер не указал это в условии.
CLS
INPUT "Vvedite X1: ", x1
INPUT "Vvedite Y1: ", y1
INPUT "Vvedite X2: ", x2
INPUT "Vvedite Y2: ", y2
 
Dln = SQR((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
IF Dln = 0 THEN END
Act = 1: Viz = 0: Stp = 1 / Dln
SCREEN 7, , Act, Viz
 
DO: t = TIMER: WHILE t > TIMER: WEND
   CLS 1
   p = p + Stp
   IF p > 1 THEN p = 2 - p: Stp = -Stp
   IF p < 0 THEN p = -p: Stp = -Stp
     LINE (x1, y1)-(x2, y2), 8
     PSET (x1 * p + x2 * (1 - p), y1 * p + y2 * (1 - p)), 15
   SWAP Act, Viz    '  Флип
   SCREEN , , Act
   SCREEN , , Act, Viz
   WAIT &H3DA, 8
LOOP WHILE INKEY$ = ""