Написать программу, распознающую по длинам сторон среди всех треугольников прямоугольный. если таковых нет, то вычислить величину угла с. (паскаль) с объяснением, если можно. заранее .

287

377

Посмотреть ответы 2

Ответы на вопрос:

настя123456789108

Информатика

4,6(15 оценок)

//искать угол будем по теореме косинусов program n1; var x,y,z: real; function arccos(x : real) : real; {это понадобится для теор. кос.} begin arccos : = 2 * arctan(sqrt((1 - x) / (1 + ; end; procedure ygl( a,b,c: real); {процедура для удобства} var ga: real; begin ga: =arccos((sqr(a) + sqr(b) - sqr(c))/(2 * a* b)) * 180 / pi; {сама теор. кос.} writeln('угол с= ',ga: 5: 2); end; begin write('введите сторону а: '); readln(x); write('введите сторону b: '); readln(y); write('введите сторону c: '); readln(z); if(x> =y+z)or(y> =x+z)or(z> =x+y)then writeln('это не треугольник') else if x*x+y*y=z*z then {теорема пифагора} writeln('это прямоугольный треугольник') else if (x*x+y*y> z*z)and(x*x+z*z> y*y)and(z*z+y*y> x*x) then begin writeln('это остроугольный треугольник'); ygl(x,y,z); {вызываем процедуру} end else begin writeln('это тупоугольный треугольник'); ygl(x,y,z); end; end.