Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача. Площадь треугольника
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
sh0ked
Найти площадь треугольника, две стороны которого равны 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
Цитата
Проблема в том что синус считается в радианах
Это вообще не проблема, кто мешает перевести градусы в радианы для того, чтобы функция Sin отработала нормально:
s:=(Sin(g*Pi/180)*a*b)/2;
?
sh0ked
IUnknown, делал так.
Оказывается считал не правильно я сам.
Спасибо
how to take prednisone 10mg for
Achat Cialis Fiable
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.