<u>План решения</u> 1. Из прямоугольного треугольника, образованного известной стороной b, известной высотой h и стороной с, можно найти угол α по определению синуса: sin(α) = h/b → α = arcsin(h/b);
2. Далее решаем треугольник по известным двум сторонам и углу между ними. Это решение известно из школьного курса. Из теоремы косинусов: a² = b²+c²-2bc·cos(α) и потом извлекаем квадратный корень из полученного значения. Из теоремы синусов найдем sin(β) = b·sin(α)/a → β=arcsin(b·sin(α)/a) Третий угол найти совсем просто: γ=180°-(α+β).
3. Осталось найти значения прочих параметров Периметр Р = a+b+c Площадь S = 1/2×c×h
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var b,c,h:real; Write('Ввести b,c,h: '); Read(b,c,h); var alpha:=arcsin(h/b); var a:=sqrt(b*b+c*c-2*b*c*cos(alpha)); var beta:=arcsin(b*sin(alpha)/a); var alphaD:=RadToDeg(alpha); var betaD:=RadToDeg(beta); var gammaD:=180-(alphaD+betaD); var P:=a+b+c; var S:=h*c/2; Writeln('a=',a:0:3); Writeln('A=',alphaD:0:1,', B=',betaD:0:1,', C=',gammaD:0:1); Writeln('Р=',P:0:3,', S=',S:0:5) end.
1. if (a < (b+c)) or (b < (a+c)) or (c < (a+b)) then может. 2. d := b*b - 4*a*c; if (d < 0) then нет решение x1 := (-b + sqrt(d)) / 2 / a; x2 := (-b - sqrt(d)) / 2 / a;
Var a,b:integer; <span>begin </span> <span>writeln('Введите два числа через пробел'); </span> <span>read(a,b); </span> <span>if (a div 10>b div 10) and (a mod 10<b mod 10) then writeln('Да') </span> <span>else writeln('Нет'); </span> <span>end.</span>