Определить угол a между векторами x и y по формуле

@Andryshan · Регистрация: 14.12.2014

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

Заданы два вектора х = (x1, x2, x3, x4), y = (y1, y2, y3, y4). Определить угол a между векторами x и y по формуле:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \alpha =\arccos \frac{(x,\,y)}{\sqrt{(x,\,x)(y,\,y)}}<br />$

Вычисление скалярного произведения оформить в виде процедуры.
В поиске только нашел задачу, где решается по исходным данным, а надо по вводным

@Puporev · 07.04.2015, 16:03

Если Вы ро это
https://www.cyberforum.ru/post2294539.html
то переделал.

Pascal
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
48
49
50
51
52
53
54
55
56
57
const n=4;
type vec=array[1..n] of real;
procedure vvod(var v:vec;c:char);
var i:byte;
begin
writeln('Введите координаты вектора ',c);
for i:=1 to n do
 begin
  write(c,'[',i,']=');
  readln(v[i]);
 end;
end;
procedure vyvod(v:vec;c:char);
var i:byte;
begin
writeln('Вектор ',c);
for i:=1 to n do
write(v[i]:6:2);
writeln;
end;
procedure Scal(x,y:vec;var s:real);
var i:byte;
begin
s:=0;
for i:=1 to n do
s:=s+x[i]*y[i];
end;
var x,y:vec;
    i:byte;
    sk,lx,ly,ks,ug:real;
begin
vvod(x,'X');
vvod(y,'Y');
vyvod(x,'X');
vyvod(y,'Y');
write('Скалярное произведение=');
Scal(x,y,sk);
writeln(sk:0:2);
write('Длина вектора X=');
lx:=0;
for i:=1 to n do
lx:=lx+sqr(x[i]);
lx:=sqrt(lx);
writeln(lx:0:2);
write('Длина вектора Y=');
ly:=0;
for i:=1 to n do
ly:=ly+sqr(y[i]);
ly:=sqrt(ly);
writeln(ly:0:2);
ks:=sk/(lx*ly);
writeln('Косинус(a)=',ks:0:3);
if ks=0 then ug:=90
else if ks>0 then ug:=arctan(sqrt(1-sqr(ks))/ks)*180/pi
else ug:=180+arctan(sqrt(1-sqr(ks))/ks)*180/pi;
writeln('Угол между векторами=',ug:0:2);
end.

Новые блоги и статьи Все статьи Все блоги /
Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .	Создание нейросети с PyTorch AI_Generated 19.06.2025 Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .	JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .	Краткий курс по С# aaLeXAA 18.06.2025 Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .	50 самых полезных примеров кода Python для частых задач py-thonny 17.06.2025 Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .
C# и продвинутые приемы работы с БД stackOverflow 17.06.2025 Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .	Angular: Вопросы и ответы на собеседовании Reangularity 15.06.2025 Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .	Архитектура Onion в ASP.NET Core MVC stackOverflow 15.06.2025 Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .	Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .

@Andryshan 0 / 0 / 0 Регистрация: 14.12.2014 Сообщений: 38

	Определить угол a между векторами x и y по формуле 07.04.2015, 12:59. Показов 3392. Ответов 1 Метки нет (Все метки) Заданы два вектора х = (x1, x2, x3, x4), y = (y1, y2, y3, y4). Определить угол a между векторами x и y по формуле: $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \alpha =\arccos \frac{(x,\,y)}{\sqrt{(x,\,x)(y,\,y)}}<br />$ Вычисление скалярного произведения оформить в виде процедуры. В поиске только нашел задачу, где решается по исходным данным, а надо по вводным 0

Опции темы

Определить угол a между векторами x и y по формуле

Решение