0 / 0 / 0
Регистрация: 04.05.2016
Сообщений: 10
1

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

11.05.2016, 09:05. Показов 2376. Ответов 1
Метки нет (Все метки)

Помогите! Нужно нарисовать любой прямоугольный треугольник за заданными координатами вершин острых углов и градусной мерой одного из углов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2016, 09:05
Ответы с готовыми решениями:

Процедура позволяет рисовать треугольник по координатам вершин трёх точек. Нарисовать прямоугольный треугольник, и равнобедренный
помогите пожалуйста решить, срочно нужно на экзамен...жду вашей помощи) 1)Процедура позволяет...

Нарисовать треугольник по координатам вершин
здравствуйте помогите пожалуйста нужно нарисовать треугольник по координатам вершин х1 х2 х3 у1 у2...

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

По заданным координатам нарисовать треугольник
Задача звучит так. "Написать программу, которая запрашивает координаты вершин треугольника, рисует...

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
11.05.2016, 16:44 2
Лучший ответ Сообщение было отмечено james everstone как решение

Решение

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
uses graphABC;
var x1,y1,x2,y2,x3,y3:integer; 
    u,r1,r2,d,e,f,h,x,y:real;
begin
setwindowsize(400,400);
centerwindow;
repeat
writeln('Введите кординаты двух точек от 100 до 300');
readln(x1,y1,x2,y2);
until(x1>=100)and(x1<=300)and(y1>=100)and(y1<=300)
and(x2>=100)and(x2<=300)and(y2>=100)and(y2<=300)
and((x1<>x2)or(y1<>y2));
repeat
write('Введите острый угол от 1 до 89 градусов');
readln(u);
until(u>1)and(u<89);
u:=u*pi/180;
//опрделим длины катетов 
r1:=cos(u)*sqrt(sqr(x1-x2)+sqr(y1-y2));
r2:=cos(pi/2-u)*sqrt(sqr(x1-x2)+sqr(y1-y2));
//найднм точки пересечения окружностей
//радиусами r1, r2 с центрами в точках a, b
//алгоритм брал здесь
//http://algolist.manual.ru/maths/geom/intersect/circlecircle2d.php
d:=sqrt(sqr(x1-x2)+sqr(y1-y2));//расстояние между центрами
e:=(sqr(r2)-sqr(r1)+sqr(d))/(2*d);
f:=d-e;
h:=sqrt(sqr(r2)-sqr(e));
x:=x1+(x2-x1)/(d/f);
y:=y1+(y2-y1)/(d/f);
//берем тлько одну точку пересечения
x3:=round(x+(y-y2)*h/e);
y3:=round(y-(x-x2)*h/e);
setpencolor(clRed);
setpenwidth(3); 
clearwindow;
moveto(x1,y1);
lineto(x2,y2);
lineto(x3,y3);                
lineto(x1,y1);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2016, 16:44
Помогаю со студенческими работами здесь

Нарисовать треугольник в консоли по заданным координатам
Добрый день. Помогите пожалуйста с таким вопросом . Нужно нарисовать треугольник в консоли ...

Дан треугольник по заданным координатам своих вершин.Определить радиус окружности возле треугольника
Дан треугольник по заданным координатам своих вершин.Определить радиус окружности возле...

Построить прямоугольный треугольник по гипотенузе c и биссектрисе прямого угла.
Не получается построить: прямоугольный треугольник по гипотенузе c и биссектрисе прямого угла.

Найти длину отрезков и величину углов в треугольнике по координатам вершин.
1. Даны вершины треугольника с координатами (2, 2), (7, -2) и (3, 1). Найти уравнения высоты и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru