Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.94/16: Рейтинг темы: голосов - 16, средняя оценка - 4.94
Asker19
0 / 0 / 0
Регистрация: 21.12.2012
Сообщений: 18
1

Найти угол между двумя прямыми в пространстве заданными каноническими уравнениями

07.01.2013, 00:01. Просмотров 3013. Ответов 1
Метки нет (Все метки)

Написать подпрограмму на паскале в стиле защитного программирования. Желательно составить полную спецификацию.
Найти угол между двумя прямыми в пространстве, заданными каноническими уравнениями.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.01.2013, 00:01
Ответы с готовыми решениями:

Вычилить угол в градусах между двумя прямыми, заданными уравнениями
Вычислить угол в градусах между двумя прямыми,заданными уравнениями a1x+b1y+c1z=0 и a2x+b2y+c2z=0 ...

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

Вычислить угол между двумя векторами
Читаем четыре целых числа - координаты двух ненулевых векторов. Выводим одно число - величина...

Сумма элементов между двумя заданными ячейками
Найти сумму элементов между двумя заданными ячейками. Решить тоже нужно в паскале, с помощью...

1
Puporev
Модератор
59361 / 44804 / 30921
Регистрация: 18.05.2008
Сообщений: 107,465
07.01.2013, 11:52 2
Лучший ответ Сообщение было отмечено Asker19 как решение

Решение

Алгоритм отсюда
http://www.cleverstudents.ru/angle_between_skew_lines.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
uses crt;
type line=record
          x1,y1,z1,ax,ay,az:real;
          end;
procedure vvod(var p:line;c:char);
begin
writeln('Введите параметры уравнения ',c);
write('x1=');readln(p.x1);
write('ax=');readln(p.ax);
write('y1=');readln(p.y1);
write('ay=');readln(p.ay);
write('z1=');readln(p.z1);
write('az=');readln(p.az);
writeln
end;
function D(p:line):real;
begin
D:=sqrt(sqr(p.ax)+sqr(p.ay)+sqr(p.az))
end;
function Sc(p1,p2:line):real;
begin
Sc:=abs(p1.ax*p2.ax+p1.ay+p2.ay+p1.az*p2.az);
end;
function Ug(p1,p2:line):real;
var cs:real;
begin
cs:=sc(p1,p2)/(D(p1)*D(p2));
Ug:=arctan(sqrt(1-sqr(cs))/cs)*180/pi
end;
var p1,p2:line;
begin
clrscr;
Vvod(p1,'A');
Vvod(p2,'B');
write('Угол между пряыми=',Ug(p1,p2):0:2,#248);
readln
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.01.2013, 11:52

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

найти угол между прямыми в пространстве
найти угол между прямыми, заданными уравнениями \frac{x-1}{1}=\frac{y+3}{11}=\frac{z}{4}, x =...

Найти угол между заданными прямыми
Даны две прямые y=a1x+b1 и y=a2x+b2. Определить, являются ли эти прямые параллельными или...

Найти угол между двумя прямыми
Нужно найти угол между двумя прямыми, при условии что заданы координаты точек прямых....

Найти угол между двумя прямыми
Доброго времени суток! Помогите, пожалуйста, с решением. Если было бы условие, что точка M середина...


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

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

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