Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на площадь треугольника
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Анюта
Здравствуйте! Спасибо вам большое за помощь, в решении предыдущих задач. Но у меня возникла новая проблема. Задача, сама по себе очень простая, вот ее суть: Известны две стороны треугольника а, 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я
В радианах надо вводить углы, а не в градусах.
Анюта
Вот глупая! Спасибо! give_rose.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.