Используя промежуточную подпрограмму, определить, принадлежит ли точка (x, y, z) контуру треугольника АВС

@Andrey254ify · Регистрация: 05.06.2014

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

Тема: Программирование с использованием процедур и функций

Задача: Используя промежуточную подпрограмму, определить, принадлежит ли точка (x, y, z) контуру треугольника АВС (пространственные координаты точек А, В, С вводятся пользователем).

P.S. помогите плиз с программой, я в Паскале еще не очень понимаю, а программку уже нужно делать!!!!!

@APALoff · 05.06.2014, 14:22

Официальный язык форума русский и английский - переводите свою задачу.

@Andrey254ify · 05.06.2014, 14:43 **[ТС]**

І)По формуле f = arccos * ((x, y) / (sqrt (x, x) (y, y))) определить угол f между двумя векторами x = {x1, x2, x3, x4} и y = {y1, y2 , y3, y4}. Вычисление скалярного произведения реализовать во вспомогательной программе.
ІІ)Используя вспомогательную программу определить, принадлежит ли точка (x, y, z) контуру треугольника ABC
(пространственные координаты точек А, В, С вводятся пользователем).
Первую часть "сделал", а вторую не могу)

Pascal

uses crt;
const n=4;
type vec=array[1..n] of real;
const
 x:vec=(-2.3,4,5,1.6);
 y:vec=(1,2,3,4);
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 i:byte;
    sk,lx,ly,ks,ug:real;
begin
clrscr;
writeln('Вектор X:');
for i:=1 to n do
write(x[i]:6:2);
writeln;
writeln;
writeln('Вектор Y:');
for i:=1 to n do
write(y[i]:6:2);
writeln;
writeln;
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);
readln
end.

@Andrey254ify 0 / 0 / 1 Регистрация: 05.06.2014 Сообщений: 3
		1
	Используя промежуточную подпрограмму, определить, принадлежит ли точка (x, y, z) контуру треугольника АВС 05.06.2014, 14:04. Показов 1532. Ответов 2 Метки нет (Все метки) Тема: Программирование с использованием процедур и функций Задача: Используя промежуточную подпрограмму, определить, принадлежит ли точка (x, y, z) контуру треугольника АВС (пространственные координаты точек А, В, С вводятся пользователем). P.S. помогите плиз с программой, я в Паскале еще не очень понимаю, а программку уже нужно делать!!!!! 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	05.06.2014, 14:22	2
	Официальный язык форума русский и английский - переводите свою задачу. 0

	05.06.2014, 14:43

Используя промежуточную подпрограмму, определить, принадлежит ли точка (x, y, z) контуру треугольника АВС

Решение