Версия для печати темы

Автор: Анюта 18.02.2008 10:17

Здравствуйте! Спасибо вам большое за помощь, в решении предыдущих задач. Но у меня возникла новая проблема. Задача, сама по себе очень простая, вот ее суть: Известны две стороны треугольника а, b и угол между ними, найти его площадь.. Проблема состоит в том, что площадь получается отрицательной величиной, и как показала отладка происходит это при вычислении синуса угла, даже в том случае, когда по идеи синус должен быть положительным(например при значении 60). Вот код задачи:

uses crt;
var
a,b,ygol,s,k:real;
begin
clrscr;
write('Vvedite storony a ');read(a);
write('Vvedite storony b ');read(b);
write('Vvedite ygol ');read(ygol);
s:=0.5*a*b*sin(ygol);
writeln('S= ',s:6:2);
readkey;
end.

Автор: Ozzя 18.02.2008 11:18

В радианах надо вводить углы, а не в градусах.

Автор: Анюта 18.02.2008 13:10

Вот глупая! Спасибо!