Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Febos
0 / 0 / 0
Регистрация: 11.04.2015
Сообщений: 51
1

Определить одного радиус-вектора к другому

11.08.2016, 16:42. Просмотров 139. Ответов 8
Метки нет (Все метки)

Помогите определить угол одного радиус-вектора к другому.
Задача:
Начало вектора А (7,8);
Конец вектора А (7,50);
Начало вектора В будет В(7,8); т.е. равны началу вектора А
Конец вектора В (15,-22);
Результат (угол) должен получиться в градусах, диапазон 0-360.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.08.2016, 16:42
Ответы с готовыми решениями:

Присвоить значение одного массива другому
unit Unit4; interface uses Windows, Messages, SysUtils, Variants,...

Присвоить значение одного массива другому
кто может помочь присвоить значение одного массива другому, массив типа чарт

Присваивание значения одного компонента другому
Здравствуйте! Как я могу присвоить компоненту TBEdit (в него можно записать...

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

Нарисовать линии от одного блока к другому
Нужно нарисовать иерархию в delphi. Сами блоки сделала из edit'ов. Как...

8
cfbogd
botsik
259 / 259 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
11.08.2016, 17:25 2
Febos, математика 9 класс тебе в помощь!
0
Febos
0 / 0 / 0
Регистрация: 11.04.2015
Сообщений: 51
11.08.2016, 17:35  [ТС] 3
Цитата Сообщение от cfbogd Посмотреть сообщение
Febos, математика 9 класс тебе в помощь!
Ну если так все просто, можно было бы и написать вариант решения.
0
cfbogd
botsik
259 / 259 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
11.08.2016, 17:43 4
Febos, хорошо, я постараюсь помочь тебе
0
Puporev
Модератор
54582 / 42088 / 29061
Регистрация: 18.05.2008
Сообщений: 99,260
11.08.2016, 17:46 5
Febos, Я ответил тебе в предыдущей теме.
1
cfbogd
botsik
259 / 259 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
11.08.2016, 18:22 6
Кликните здесь для просмотра всего текста
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  ch :array [1..8] of integer = (7,8,7,50,7,8,15,-22);
  vec:array [1..4] of integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
var a,b,angl,ab:integer;
    ab1,ab2,cos:real;
begin
vec[1]:=ch[1]-ch[2]; //координаты а
vec[2]:=ch[3]-ch[4];
 
vec[3]:=ch[5]-ch[6]; //координаты b
vec[4]:=ch[7]-ch[8];
 
ab:=(vec[1]*vec[2])+(vec[3]*vec[4]);
ab1:=sqrt((sqr(vec[1]))+((sqr(vec[2]))));
ab2:=sqrt((sqr(vec[3]))+((sqr(vec[4]))));
cos:=ab/(ab1*ab2);
label1.Caption:=floattostr(cos);
end;
 
end.

Это все что я успел сделать, нужно только перевести косинус в градусы и все!
0
Puporev
Модератор
54582 / 42088 / 29061
Регистрация: 18.05.2008
Сообщений: 99,260
11.08.2016, 18:31 7
cfbogd Посмотри что ему нужно было, не угол между векторами.
http://www.cyberforum.ru/delphi-beginners/thread1792364-new-post.html
0
cfbogd
botsik
259 / 259 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
11.08.2016, 19:15 8
Puporev, а ну понятно

Добавлено через 1 минуту
Цитата Сообщение от cfbogd Посмотреть сообщение
vec[1]:=ch[1]-ch[2]; //координаты а vec[2]:=ch[3]-ch[4]; vec[3]:=ch[5]-ch[6]; //координаты b vec[4]:=ch[7]-ch[8];

Не по теме:

стыдно за свою невнимательность


верно будет так:
Delphi
1
2
3
4
5
vec[1]:=ch[3]-ch[1]; //координаты а
vec[2]:=ch[4]-ch[2];
 
vec[3]:=ch[7]-ch[5]; //координаты b
vec[4]:=ch[8]-ch[6];
Добавлено через 7 минут
Puporev, просто ТС нужно внятнее объяснять суть вопроса.
0
Puporev
Модератор
54582 / 42088 / 29061
Регистрация: 18.05.2008
Сообщений: 99,260
11.08.2016, 19:18 9
Та тема была в разделе Математика, он нам двоим мозги пудрил, что я его почти послал, потом поостыл и сделал как ему нужно было. А написать четко что ему нужно он так и смог. Видимо пооблемы и с математикой и с русским.
0
11.08.2016, 19:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.08.2016, 19:18

Скопировать текст из одного файла и добавить к другому файлу
Надо из одного файла скопировать текст и вставить уже в существующий и...

подскажите пожалуйста как сделать заполнение одного мемо количеством строк равных другому мемо?
Подскажите пожалуйста есть 2 memo в одному допустим 20 строк а в другом 5 как...

Пусть элементами группы являются радиус, диаметр, длина окружности. составить программу которая по номеру одного из элементов и его значению вычисля л
Пусть элементами группы являются радиус, диаметр, длина окружности. составить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru