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.
![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Анюта |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Женский Реальное имя: Анна Репутация: ![]() ![]() ![]() |
Здравствуйте! Спасибо вам большое за помощь, в решении предыдущих задач. Но у меня возникла новая проблема. Задача, сама по себе очень простая, вот ее суть: Известны две стороны треугольника а, 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я |
![]()
Сообщение
#2
|
![]() Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: ![]() ![]() ![]() |
В радианах надо вводить углы, а не в градусах.
|
Анюта |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Женский Реальное имя: Анна Репутация: ![]() ![]() ![]() |
Вот глупая! Спасибо!
![]() |
![]() ![]() |
![]() |
Текстовая версия | 21.04.2025 22:34 |