Как нарисовать стрелку

@Guildenstern · Регистрация: 13.05.2018

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

Здравствуйте. У меня имеются две точки с координатами, заранее они неизвестны, т.к. координаты вносятся по нажатию мыши. Задача состоит в том, что необходимо нарисовать стрелку с "галочкой" от одних координат до других. Планировал использовать процедуры Line и Pie, т.к. по входным данным они вполне подходят, однако для построения непосредственно стрелки необходимы вычисления. С ними-то у меня и возникла проблема. Заранее благодарю за ответ.

@Puporev · 13.05.2018, 19:44

Например так.
Определить угол между направлением луча и осью Х в диапазоне 0-360 градусов потив часовой стрелки(как в полярных координатах)э
Для этого есть такая функция.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function Ugol(x1,y1,x2,y2:integer):real;
begin
if (x2>x1)and(y2<=y1) then Ugol:=arctan((y1-y2)/(x2-x1)){I четверть}
else if (x2>x1)and(y2>y1) then Ugol:=arctan((y1-y2)/(x2-x1))+2*pi{IV четверть}
else if x2<x1 then  Ugol:=arctan((y1-y2)/(x2-x1))+pi{II-III четверти}
else if x2=x1 then
 begin
  if y2<y1 then  Ugol:=pi/2{вертикально вверх}
  else if y2>y1 then Ugol:=3*pi/2{вертикально вниз}
  else Ugol:=0;
 end;
end;

Потом определить координаты концов "усов" стрелки и нарисовать из.

Pascal
1
2
3
4
5
6
7
u:=ugol(x1,y1,x2,y2);
x3:=x2-round(20*cos(u+pi/10));
y3:=y2+round(20*sin(u+pi/10));
line(x2,y2,x3,y3);
x4:=x2-round(20*cos(u-pi/10));
y4:=y2+round(20*sin(u-pi/10));
line(x2,y2,x4,y4);

Добавлено через 1 минуту
20-радиус "усов", можно изменять, например взависимости от длины линии, какую-то часть ее.

@Guildenstern · 14.05.2018, 14:41 **[ТС]**

Вроде работает, благодарю)

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

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

	Как нарисовать стрелку 13.05.2018, 19:04. Показов 9660. Ответов 2 Метки нет (Все метки) Здравствуйте. У меня имеются две точки с координатами, заранее они неизвестны, т.к. координаты вносятся по нажатию мыши. Задача состоит в том, что необходимо нарисовать стрелку с "галочкой" от одних координат до других. Планировал использовать процедуры Line и Pie, т.к. по входным данным они вполне подходят, однако для построения непосредственно стрелки необходимы вычисления. С ними-то у меня и возникла проблема. Заранее благодарю за ответ. 0

@Guildenstern 0 / 0 / 0 Регистрация: 13.05.2018 Сообщений: 2
	14.05.2018, 14:41 [ТС]
	Вроде работает, благодарю) 0

Как нарисовать стрелку

Решение