Меню сайта

Задача №17

Даны стороны треугольника: a,b,c. Вычислить косинусы углов по теореме -косинусов: —sqr(c)=sqr(a)+sqr(b)-2ab*cos(alfa).


Program begin_17-

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-

end.

Категория: Линейные программы | Дата: 02.12.12

Меню раздела
Блок