Вопрос по информатике:
Даны натуральные числа a,b,c. Проверьте существует ли треугольник величины углов, которого в градусах при
положительном результате установит вид треугольника: остроугольный, тупоугольный, прямоугольный?
это в программе pascal
- 07.01.2017 01:33
- Информатика
- remove_red_eye 1409
- thumb_up 20
Ответы и объяснения 2
Var a,b,c,angA,angB,angC,cs: real;
s: string;
begin
write('длины сторон через пробел: ');
readln(a,b,c);
if (a+b>c) and(a+c>b) and (c+b>a) then
begin
cs:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b);
angC:=360*ArcCos(cs)/(2*pi);
writeln('угол С = ',angC:4:2);
cs:=(sqr(a)+sqr(c)-sqr(b))/(2*a*c);
angB:=360*ArcCos(cs)/(2*pi);
writeln('угол B = ',angB:4:2);
angA:=180-angB-angC;
writeln('угол A = ',angA:4:2);
if (angA<90) and (angB<90) and (angC<90) then
s:='треугольник остроугольный';
if (angA>90) or (angB>90) or (angC>90) then
s:='треугольник тупоугольный';
if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or
(sqr(b)+sqr(c)=sqr(a)) then
s:='треугольник прямоугольный';
writeln(s);
end
else writeln('треугольник составить нельзя');
end.
- 09.01.2017 06:39
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.