111 Знайти площу трикутника за теоремою Герона. (Формула у прикріпленому файлі). Довжини сторін трикутника дійсні числа.
НА РУССКОМ:
Найти площадь треугольника по теореме Герона. (Формула в прикрепленном файле). Длины сторон треугольника действительные числа.
Объяснение:
a) C9 - ошибка
б) К7 =E4+$C2
в) В4 ошибка
г) Е9 ошибка
д) D8 ошибка
e) T23 =N20+$C18
ж) I2 ошибка
з) F5 ошибка
Только две ячейки будут иметь корректную формулу. Остальные покажут ошибку, потому что Excel, при копировании формул, меняет номера входящих в нее ячеек, и в указанном примере часть формул будут иметь несуществующие ячейки.
Например если в К8 в формуле используется ячейка Е5,
то в столбце J будет использоваться D5,
в столбце I будет C5,
в H будет B5
в G станет A5
а в формуле в столбце F должна будет использоваться ячейка с номером столбца меньше чем A, но такой нет, и Excel отобразит ошибку.
Значение такого угла можно найти по теореме косинусов:
В остроугольном треугольнике угол всегда будет меньше 90 градусов, поэтому его косинус всегда будет положительным. В прямоугольном треугольнике косинус будет равен нулю, а в тупоугольном он будет отрицательным. На этом можно построить решение, предварительно определив, какая из сторон является самой длинной. И, само собой разумеется, надо сразу после ввода проверить условие существования треугольника, т.е. чтобы сумма длин двух его любых сторон была больше третьей.
var
a,b,c,a1,b1,c1,cosC:real;
begin
Write('Введите длины сторон треугольника: ');
Read(a,b,c);
Write('Треугольник ');
if (a<(b+c)) and (b<(a+c)) and (c<(a+b)) then begin
if a>b then
if a>c then begin c1:=a; a1:=c; b1:=b end
else begin c1:=c; a1:=a; b1:=b end
else
if b>c then begin c1:=b; a1:=a; b1:=c end
else begin c1:=c; a1:=a; b1:=b end;
cosC:=(sqr(a1)+sqr(b1)-sqr(c1))/(2*a*b);
if cosC<0 then Writeln('тупоугольный')
else
if cosC=0 then Writeln('прямоугольный')
else Writeln('остроугольный')
end
else Writeln('построить невозможно')
end.
Тестовое решение:
Введите длины сторон треугольника: 6 4.1 4
Треугольник тупоугольный