Движение от точки к точке

@Mumka_Rus · Регистрация: 16.07.2013

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток. Паскаль знаю не очень хорошо, поэтому задался вопросом: как реализовать движение чего-либо (допустим круга) не по прямой, диагонали и т.д. и т.п., а от X1,Y1 до X2,Y2. Ну т.е. на вход идут координаты начала маршрута и конца, а на выходе мы имеем круг, который движется по прямой по этой проложенной линии. И не важно, горизонтальная она, или под углом 234.531 к оси OX. Круг все равно движется более менее плавно, без движения типа "10 пикселей вправо, затем выровнять Y до маршрута. Опять 10 пикселей вправо и т.д.". Надеюсь просьбу изложил понятно. Это никакое не задание, это просто для саморазвития. Ну и успокоения любопытства, конечно)

@taras atavin · 16.07.2013, 20:06

Идея в том, что координаты связаны уравнением прямой, одна берётся со счётчика цикла, а вторая вычисляется по уравнению и только после этого рисуется круг. При модуль угла наклона не должен превосходит 45 градусов, иначе шаг в пикселах по другой оси будет больше 1. Но есть вариант, когда абсцисса имеет тип real и вычисляется на основе скорости и времени, а округляются непосредственно фактические операнды операции рисования. Тогда строчка для вычисления y не содержит round и не нужна альтернатива. Но перейти от одного варианта к другому просто.

Добавлено через 4 минуты

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program circle;
Uses crt,GraphABC;
Var x1,y1,x2,y2, x, y, t2, t, dt, vx, vy :real;
 
Begin
 readln(x1, x2, y1, y2, t2, dt);
 vx:=(x2-x1)/t2;
 vy:=(y2-y1)/t2;
 t:=t1;
 repeat
  ClearWindow; 
   x:=x1+vx*t;
   y:=y1+vy*t;
   Circle(round(x),round(y),10); 
   t:=t+dt;
 until t>t2;
end.

17.07.2013, 20:42

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses graphabc;
var x1,y1,x2,y2,s:real;   
begin
s:=0.01;
readln(x1);
readln(y1);
readln(x2);
readln(y2);
while (x1<x2) and (y1<y2) do
begin
x1:=x1+x2*s;
y1:=y1+y2*s;
circle(round(x1),round(y1),10);
end;
end.

Новые блоги и статьи Все статьи Все блоги /
Запрет пометки на удаление и отмены проведения Maks 16.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "ПутевойЛист" разработанного в КА2. Задача: запретить помечать на удаление и отменять проведения путевого листа при условии, если он сдан. . .	Как надо было делать правильно - вообще не слушать ИИ, его дело - текст. Hrethgir 15.07.2026 А вообще надо было делать не так, чтобы не исправлять ошибку https:/ / www. cyberforum. ru/ blogs/ 223907/ 10996. html , правильно было : удалил кнопку, а потом добавил её. Всё это стресс конечно. Почему?. . .	Знаете, от чего появляется стресс? kumehtar 15.07.2026 Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот. Ларри Уингет	Нас бьют, а мы крепчаем? Какая чушь! kumehtar 15.07.2026 Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .

@Mumka_Rus 2 / 2 / 0 Регистрация: 16.07.2013 Сообщений: 19

	Движение от точки к точке 16.07.2013, 18:44. Показов 10859. Ответов 21 Метки нет (Все метки) Всем доброго времени суток. Паскаль знаю не очень хорошо, поэтому задался вопросом: как реализовать движение чего-либо (допустим круга) не по прямой, диагонали и т.д. и т.п., а от X1,Y1 до X2,Y2. Ну т.е. на вход идут координаты начала маршрута и конца, а на выходе мы имеем круг, который движется по прямой по этой проложенной линии. И не важно, горизонтальная она, или под углом 234.531 к оси OX. Круг все равно движется более менее плавно, без движения типа "10 пикселей вправо, затем выровнять Y до маршрута. Опять 10 пикселей вправо и т.д.". Надеюсь просьбу изложил понятно. Это никакое не задание, это просто для саморазвития. Ну и успокоения любопытства, конечно) 0