IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задача на нахождение основания высоты треугольника.
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


Задание: Найти длину и основание высоты, опущенной из вершины А на сторону ВС.
Задача простая, но вот нигде не могу найти формулу нахождения основания высоты. Как я выяснил это координаты точки пересечения высоты и основания треугольника, то есть в данном случае, стороны ВС.
Надеюсь кто нибудь знает как её найти).
Вот текст программы без нахождения основания высоты:
 program math1;
uses crt;
var x1,x2,x3,y1,y2,y3,a,b,c,p,h: real;
begin
clrscr;
writeln('Vvedite A(x1)');
readln(x1);
writeln('Vvedite A(y1)');
readln(y1);
writeln('koordinati A(',x1,',',y1,')');
writeln('Vvedite B(x2)');
readln(x2);
writeln('Vvedite B(y2)');
readln(y2);
writeln('koordinati B(',x2,',',y2,')');
writeln('Vvedite C(x3)');
readln(x3);
writeln('Vvedite C(y3)');
readln(y3);
writeln('koordinati C(',x3,',',y3,')');
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x1-x3)+sqr(y1-y3));
c:=sqrt(sqr(x3-x2)+sqr(y3-y2));
p:=(a+b+c)/2;
h:=(2*sqrt(p*(p-a)*(p-b)*(p-c)))/a;
writeln('visota ABC=',h);
readkey;
end.


Сообщение отредактировано: lifter88 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 4)
сообщение
Сообщение #2


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(lifter88 @ 13.04.2009 16:37) *
Задание: Найти длину и основание высоты, опущенной из вершины А на сторону ВС.
Прекрасно. Что найти - сказано. А что дано - неизвестно.. Угадывать?


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


В программе задаются координаты точек треугольника.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(lifter88 @ 13.04.2009 16:37) *
нигде не могу найти формулу нахождения основания высоты. Как я выяснил это координаты точки пересечения высоты и основания треугольника
И долго ты выяснял, что такое основание высоты? Всего-то нужно было вспомнить материал седьмого (если не ошибаюсь) класса.. А формулы - ессно, они не на все случаи жизни. Кое-что надо выводить (благо это тоже легко сделать со знанием школьного курса).

Рассмотрим один из прямоугольных треугольников, на которые высота делит изначальный треугольник: BAD. У тебя есть один его катет (высота AD, равна h) и гипотенуза (сторона AB, равна c). По Пифагору находишь второй катет (который яыляется частью ВС). Обозначим его длину через d.

d = Sqrt(с2-h2)

Тогда координаты основания высоты (точка D) можно вычислить из пропорции:

Dx = (Cx - Bx)*d/a + Bx
Dy = (Cy - By)*d/a + By


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Цитата(Lapp @ 13.04.2009 17:57) *

Прекрасно. Что найти - сказано. А что дано - неизвестно.. Угадывать?

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

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 10.09.2025 0:26
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name