Даны стороны треугольника: a,b,c. Вычислить косинусы углов по теореме косинусов: sqr(c)=sqr(a)+sqr(b)-2ab*cos(alfa).
Решение:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
Program begin_10; uses crt; var a,b,c,cosa,cosb,cosc:real; begin clrscr; write('введите сторону a=');readln(a); write('введите сторону b=');readln(b); write('введите сторону c=');readln(c); cosc:=(sqr(c)-sqr(a)-sqr(b))/(-2*a*b); cosa:=(sqr(a)-sqr(c)-sqr(b))/(-2*c*b); cosb:=(sqr(b)-sqr(c)-sqr(a))/(-2*c*a); writeln('cosa=',cosa:4:4); writeln('cosb=',cosb:4:4); write('cosc=',cosc:4:4); readln; |
Похожие записи: