Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
АПЕЛЬСИНК
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 7
1

Построить треугольник, его высоты и биссектрисы, показать тем самым точки пересечения его высот и биссектрис

09.02.2012, 20:38. Просмотров 1460. Ответов 1
Метки нет (Все метки)

треугольник задан своими вершинами. Построить этот треугольник, его высоты и биссектрисы, показать тем самым точки пересечения его высот и биссектрис.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.02.2012, 20:38
Ответы с готовыми решениями:

Построить треугольник, его высоты и биссектрисы,
Нужно написать программу! Треугольник задан своими вершинами. Построить этот...

Если точки могут быть вершинами равнобедренного треугольника, вычислите длины его высот
Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами...

Построить треугольник по данным и закрасить его
с клавиатуры вводятся длины сторон треугольника a,b,c. Построить треугольник по...

Если точки могут быть вершинами равностороннего треугольника, вычислите его площадь и длину высоты
Пусть даны координаты трёх точек на плоскости. Если они могут быть вершинами...

Возможно ли построить треугольник по веденному значению его сторон
Написать программу которая определяет возможно ли построить треугольник по...

1
Puporev
Модератор
54990 / 42293 / 29206
Регистрация: 18.05.2008
Сообщений: 99,926
10.02.2012, 10:25 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Могу помочь с биссектрисами, на высоты то ли ума не хватает, то ли терпения, больно уж много там аналитики.
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
uses Graph;
type point=record
           x,y:real;
           end;
     mas=array[1..3] of point;
{определение кординат концов биссектрис}
procedure countall (p:mas;var p1:mas);
 
function D(x1,y1,x2,y2:real):real;
begin
D:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
var k:real;
    i,j:integer;
    l:array[1..3] of real;
begin
l[1]:=d(p[1].x,p[1].y,p[2].x,p[2].y);
l[2]:=d(p[2].x,p[2].y,p[3].x,p[3].y);
l[3]:=d(p[3].x,p[3].y,p[1].x,p[1].y);
k:=l[3]/l[1];
p1[1].x:=(p[3].x+(k*p[2].x))/(1+k);
p1[1].y:=(p[3].y+(k*p[2].y))/(1+k);
k:=l[2]/l[1];
p1[2].x:=(p[3].x+(k*p[1].x))/(1+k);
p1[2].y:=(p[3].y+(k*p[1].y))/(1+k);
k:=l[3]/l[2];
p1[3].x:=(p[1].x+(k*p[2].x))/(1+k);
p1[3].y:=(p[1].y+(k*p[2].y))/(1+k);
end;
 
var gm,gd,i,x0,y0:integer;
    px,py,px1,py1:integer;
    max,m:real;
    p,p1:mas;
    s:string;
 
begin
randomize;
for i:=1 to 3 do
 begin
  p[i].x:=-10+20*random;
  p[i].y:=-10+20*random;
 end;
{определим максимальную по модулю координату}
max:=abs(p[1].x);
for i:=1 to 3 do
 begin
  if abs(p[i].x)>max then max:=abs(p[i].x);
  if abs(p[i].y)>max then max:=abs(p[i].y);
 end;
gd:=detect;
initgraph(gd,gm,'');
{начало координат}
x0:=getmaxX div 2;
y0:=getmaxY div 2;
{определим масштаб}
m:=(y0-20)/max;
{графическое окно}
setfillstyle(1,7);
Bar(x0-y0,0,x0+y0,getmaxY);
setcolor(blue);{цвет осей}
line(x0-y0,y0,x0+y0,y0);
line(x0,0,x0,GetMaxY);
{засечки на осях}
for i:=1 to trunc(max)+1 do
 begin
  line(x0-3,y0-round(i*m),x0+3,y0-round(i*m));
  line(x0-3,y0+round(i*m),x0+3,y0+round(i*m));
  line(x0-round(i*m),y0-3,x0-round(i*m),y0+3);
  line(x0+round(i*m),y0-3,x0+round(i*m),y0+3);
  if i<=trunc(max)+1 then
   begin
    str(i,s);
    OutTextXY(x0-15,y0-round(i*m),s);
    OutTextXY(x0-20,y0+round(i*m),'-'+s);
    OutTextXY(x0+round(i*m),y0+5,s);
    OutTextXY(x0-round(i*m)-10,y0+5,'-'+s);
   end;
 end;
{подписи концов и центра осей}
setcolor(14);
OutTextXY(x0-10,y0+5,'0');
OutTextXY(x0+10,5,'Y');
OutTextXY(x0+y0-12,y0-10,'X');
{рисуем треугольник}
setcolor(red);
setlinestyle(0,0,1);
for i:=1 to 3 do
 begin
  px:=x0+round(p[i].x*m);
  py:=y0-round(p[i].y*m);
  px1:=x0+round(p[i mod 3+1].x*m);
  py1:=y0-round(p[i mod 3+1].y*m);
  line(px,py,px1,py1);
 end;
{рисуем биссектрисы}
CountAll(p,p1);
setcolor(10);
for i:=1 to 3 do
 begin
  px:=x0+round(p[i].x*m);
  py:=y0-round(p[i].y*m);
  px1:=x0+round(p1[i].x*m);
  py1:=y0-round(p1[i].y*m);
  line(px,py,px1,py1);
 end;
readln
end.
Добавлено через 5 минут
Если вздумаете делать высоты, это поможет.
http://www.kakprosto.ru/kak-106702-k...-v-treugolnike
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.02.2012, 10:25

Для каждой тройки отрезков построить треугольник и напечатать его площадь
даны отрезки a,b,c,d. Для каждой тройки этих отрезков можно построить...

Если можно построить треугольник по трем данным отрезкам, то вычислить его периметр и площадь
Даны длины трех отрезков a, b, c. Если можно построить треугольник по этим трем...

Треугольник задан координатами вершин. Построить его, а затем растянуть по оси OY в два раза
34. Треугольник задан координатами вершин. Построить его, а затем растянуть по...


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

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

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