Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Отчёт.
Вариант №8.
Задача №23. Треугольник задан длинами сторон. Найти:
|
а) Длины высот; |
б) Длины медиан; |
|
в) Длины биссектрис; |
г) Радиусы вписанной и описанной окружностей. |
Program Z_23;
uses crt;
var a, b, c, m_A, m_B, m_C, b_A, b_B, b_C, h_A, h_B, h_C, R_, r: real;
begin
clrscr;
Writeln ('Введите длины сторон треугольника: ');
Write ('Введите длину стороны a: ');
readln (a);
Write ('Введите длину стороны b: ');
readln (b);
Write ('Введите длину стороны c: ');
readln (c);
{Дан треугольник ABC: BC=a, AC=b, AB=c}
m_A:=(1/2*(sqrt((2*(b*b))+(2*(c*c))-(a*a))));
m_B:=(1/2*(sqrt((2*(b*b))+(2*(a*a))-(c*c))));
m_C:=(1/2*(sqrt((2*(a*a))+(2*(c*c))-(b*b))));
b_A:=((2/(b+c))*(sqrt(b*c*((a+b+c)/2)*(((a+b+c)/2)-a))));
b_B:=((2/(c+a))*(sqrt(c*a*((a+b+c)/2)*(((a+b+c)/2)-b))));
b_C:=((2/(b+a))*(sqrt(b*a*((a+b+c)/2)*(((a+b+c)/2)-c))));
h_A:=((2*(sqrt(((a+b+c)/2)*(((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c))))/a);
h_B:=((2*(sqrt(((a+b+c)/2)*(((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c))))/b);
h_C:=((2*(sqrt(((a+b+c)/2)*(((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c))))/c);
r:=(Sqrt(((((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c))/((a+b+c)/2)));
R_:=((a*b*c)/(4*(sqrt(((a+b+c)/2)*(((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c)))));
Writeln ('Медиана m_A= ', m_A:2:2);
Writeln ('Медиана m_B= ', m_B:2:2);
Writeln ('Медиана m_C= ', m_C:2:2);
Writeln ('Биссектриса b_A= ', b_A:2:2);
Writeln ('Биссектриса b_B= ', b_B:2:2);
Writeln ('Биссектриса b_C= ', b_C:2:2);
Writeln ('Высота h_A= ', h_A:2:2);
Writeln ('Высота h_B= ', h_B:2:2);
Writeln ('Высота h_C= ', h_C:2:2);
Writeln ('r-радиус вписанной окружности= ', r:2:2);
Writeln ('R-радиус описанной окружности= ', R_:2:2);
Writeln('Нажмите Enter для выхода');
readln;
End.
Блочная схема программы:
|
№ |
Идентификатор переменной |
Переменная предназначена для хранения значений: |
|
1 |
a |
Параметра |
|
2 |
b |
Параметра |
|
3 |
c |
Параметра |
|
4 |
m_A |
полученных в результате вычислений |
|
5 |
m_B |
|
|
6 |
m_C |
|
|
7 |
b_A |
|
|
8 |
b_B |
|
|
9 |
b_C |
|
|
10 |
h_A |
|
|
11 |
h_B |
|
|
12 |
h_C |
|
|
13 |
R |
|
|
14 |
r |
Контрольный пример:
a=2
b=3
c=4
«Медиана m_A= 3,39», «Медиана m_B=1,58», «Медиана m_C=2,78»
«Высота h_A=3,32», «Высота h_B=2,45», «Высота h_C=1,47»
« Биссектриса b_A=2,90», «Биссектриса b_B=1,94», «Биссектриса b_C=1,45», «r-радиус вписанной окружности=0,65», «r-радиус вписанной окружности=2,07»
Протокол работы программы при a=2, b=3, c=4:
1.Печать сообщения: «Введите длины сторон треугольника: »
обработка строки: «2 3 4»: a=2, b=3, c=4.
3. Вычисление:
m_A:=(1/2*(sqrt((2*(b*b))+(2*(c*c))-(a*a))))= ...
m_B:=(1/2*(sqrt((2*(b*b))+(2*(a*a))-(c*c)))) = ...
m_C:=(1/2*(sqrt((2*(a*a))+(2*(c*c))-(b*b)))) = ...
b_A:=((2/(b+c))*(sqrt(b*c*((a+b+c)/2)*(((a+b+c)/2)-a)))) = ...
b_B:=((2/(c+a))*(sqrt(c*a*((a+b+c)/2)*(((a+b+c)/2)-b)))) = ...
b_C:=((2/(b+a))*(sqrt(b*a*((a+b+c)/2)*(((a+b+c)/2)-c)))) = ...
h_A:=((2*(sqrt(((a+b+c)/2)*(((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c))))/a) = ...
h_B:=((2*(sqrt(((a+b+c)/2)*(((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c))))/b) = ...
h_C:=((2*(sqrt(((a+b+c)/2)*(((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c))))/c) = ...
r:=(Sqrt(((((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c))/((a+b+c)/2))) = ...
R_:=((a*b*c)/(4*(sqrt(((a+b+c)/2)*(((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c))))) = ...
4. Печать сообщения:
«Медиана m_A= 3,39»,
«Медиана m_B=1,58»
«Медиана m_C=2,78»
«Высота h_A=3,32»
«Высота h_B=2,45»
«Высота h_C=1,47»
«Биссектриса b_A=2,90»
«Биссектриса b_B=1,94»
«Биссектриса b_C=1,45»
«r-радиус вписанной окружности=0,65»
«r-радиус вписанной окружности=2,07»
5. Остановка.
Печать сообщения:
«Нажмите Enter для выхода»
6. Конец программы.
h_A:=((2*(sqrt(((a+b+c)/2)*(((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c))))/a)
h_B:=((2*(sqrt(((a+b+c)/2)*(((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c))))/b)
h_C:=((2*(sqrt(((a+b+c)/2)*(((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c))))/c)
Конец
ормулировка бессмысленная
Вывод:
Медиана m_A=
Медиана m_B=
Медиана m_C=
b_A:=((2/(b+c))*(sqrt(b*c*((a+b+c)/2)*(((a+b+c)/2)-a))))
b_B:=((2/(c+a))*(sqrt(c*a*((a+b+c)/2)*(((a+b+c)/2)-b))))
b_C:=((2/(b+a))*(sqrt(b*a*((a+b+c)/2)*(((a+b+c)/2)-c))))
Ввод: a, b, c, m_A, m_B, m_C, b_A, b_B, b_C, h_A, h_B, h_C, R_, r
Начало
m_A:=(1/2*(sqrt((2*(b*b))+(2*(c*c))-(a*a))))
m_B:=(1/2*(sqrt((2*(b*b))+(2*(a*a))-(c*c))))
m_C:=(1/2*(sqrt((2*(a*a))+(2*(c*c))-(b*b))))
r:=(Sqrt(((((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c))/((a+b+c)/2)))
R_:=((a*b*c)/(4*(sqrt(((a+b+c)/2)*(((a+b+c)/2)-a)*(((a+b+c)/2)-b)*(((a+b+c)/2)-c)))))
Вывод:
Биссектриса b_A=
Биссектриса b_B=
Биссектриса b_C=
Формулировка бессмысленная
Формулировка бессмысленная
Формат действительного числа задан не корректно. Разберитесь, для чего используется выделенная мною константа в формате
Вывод:
Высота h_A=
Высота h_B=
Высота h_C=
Вывод: 'r-радиус вписанной окружности=
'r-радиус вписанной окружности=