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

Автор: sh0ked 4.04.2012 21:09

Найти площадь треугольника, две стороны которого равны a и b, а угол между этими сторонами равен g.

Program Ploshad;
var a,b,g,s:real;
Begin
writeln ('Программа по вычислению площади треугольника');
writeln ('Введите первую сторону треугольника');
readln (a);
writeln ('Введите вторую сторону треугольника');
readln (b);
writeln ('Введите угол между этими сторонами');
readln (g);
s:=(Sin(g)*a*b)/2;
writeln ('S= ',s);
end.

Проблема в том что синус считается в радианах, как сделать на выходе нормальный, обычный результат?

Автор: IUnknown 4.04.2012 22:33

Это вообще не проблема, кто мешает перевести градусы в радианы для того, чтобы функция Sin отработала нормально:

s:=(Sin(g*Pi/180)*a*b)/2;

?

Автор: sh0ked 4.04.2012 22:44

IUnknown, делал так.
Оказывается считал не правильно я сам.
Спасибо