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

@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.

Новые блоги и статьи Все статьи Все блоги /
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .

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

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

Опции темы