IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача. Площадь треугольника
sh0ked
сообщение 4.04.2012 21:09
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


Найти площадь треугольника, две стороны которого равны 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.


Проблема в том что синус считается в радианах, как сделать на выходе нормальный, обычный результат?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
IUnknown
сообщение 4.04.2012 22:33
Сообщение #2


a.k.a. volvo877
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской

Репутация: -  627  +


Цитата
Проблема в том что синус считается в радианах
Это вообще не проблема, кто мешает перевести градусы в радианы для того, чтобы функция Sin отработала нормально:
s:=(Sin(g*Pi/180)*a*b)/2;
?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
sh0ked
сообщение 4.04.2012 22:44
Сообщение #3





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


IUnknown, делал так.
Оказывается считал не правильно я сам.
Спасибо
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 29.03.2024 0:51
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"