Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » вычислить грвдус угла

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

raskharazm

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
доброго дня!
попробовал написать  функцию для вачисления треугольника по стороне и двум прилежащим углам
 вот так напссл
 
var
  A,B,C,x,y,z: double;
 
 
begin
 A:=strtofloat(edit1.text);
 B:=strtofloat(edit2.text);
 C:=strtofloat(edit3.text);
 x:=(sqr(b)+sqr(c)-sqr(a))/2/b/c;
y:=(sqr(a)+sqr(c)-sqr(b))/2/a/c;
  z:=(sqr(a)+sqr(b)-sqr(c))/2/a/b;
  edit4.text:=floattostr(x);
  edit5.text:=floattostr(y);
  edit6.text:=floattostr(z);  
ну как вычислить грвдус угла?
http://imageshack.com/a/img924/998/u54Ili.jpg

Всего записей: 9 | Зарегистр. 03-05-2016 | Отправлено: 23:34 06-05-2016
Mavrikii

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
raskharazm
уважаемый, если вы будете создавать кучу тем по одному и тому же вопросу - вас просто забанят. Что мешало добавить эту информацию сюда - вычисление треугольника?
 
к тому же можно писать аккуратно, без большого количества глупых ошибок - это уже говорит о вашем отношение к теме и отбивает желание вообще хоть как то отвечать.

Всего записей: 15037 | Зарегистр. 20-09-2014 | Отправлено: 23:35 06-05-2016 | Исправлено: Mavrikii, 23:36 06-05-2016
raskharazm

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
спасибо за предупреждение!
повторять не буду!

Всего записей: 9 | Зарегистр. 03-05-2016 | Отправлено: 23:39 06-05-2016
NeoAnomaly

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
raskharazm, смотрю на ваш код и собственно, что вы на данном этапе написать хотели? Начните с теории, разберитесь с формулами. Когда сможете считать на бумажке переложить это на дельфи, или куда вам необходимо, можно будет практически "дословно".

Всего записей: 418 | Зарегистр. 23-03-2010 | Отправлено: 19:43 07-05-2016 | Исправлено: NeoAnomaly, 19:44 07-05-2016
raskharazm

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
получается ответ но не знаю как его менять на градус!

Всего записей: 9 | Зарегистр. 03-05-2016 | Отправлено: 00:33 09-05-2016
KDPoid



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
raskharazm, учите матчасть.
http://planetcalc.ru/534/
 
Теперь посмотрите на свой код.
arccos где ?

Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 08:42 09-05-2016
NeoAnomaly

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
raskharazm, где получается ответ? Что всё таки надо считать, углы по сторонам или по стороне и прилежащим углам?

Всего записей: 418 | Зарегистр. 23-03-2010 | Отправлено: 14:22 09-05-2016
raskharazm

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
вот так я написвл программу но ругается! ( identifier not found "arccos"/ arcsin)
 
 
 
var
  A,B,C,alfa,beta,gamma,s,r: real;
 
 
begin
 A:=strtofloat(edit1.text);
 B:=strtofloat(edit2.text);
 C:=strtofloat(edit3.text);
 r:=(a+b+c)/2;
 s:=sqrt(r*(r-a)*(r-b)*(r-c));
 alfa:=arccos((sqr(b)+sqr(c)-sqr(a))/2/b/c);
 beta:=arcsin(b/a*sin(alfa));
 gamma:=pi-(alfa+beta);
  alfa:=alfa*180/pi;
  beta:=beta*180/pi;
  gamma:=gamma*180/pi;
  edit4.text:=floattostr(alfa);
  edit5.text:=floattostr(beta);
  edit6.text:=floattostr(gamma);
  label7.caption:='S='+ floattostrF(S,ffFixed,5,2);
  label8.caption:='R='+ floattostrF(2*r,ffFixed,5,2);
end;            

Всего записей: 9 | Зарегистр. 03-05-2016 | Отправлено: 23:21 10-05-2016
dimitriy7



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
raskharazm

Цитата:
вот так я написвл программу но ругается!

Правильно, нету в Паскале арккосинуса.
Сделай его сам: вставь в начало исходника строчку

Код:
 
function arccos(x:double):double; begin arccos:=arctan(sqrt(1-sqr(x))/x); end;
 
.
 

Цитата:
по стороне и двум прилежащим углам  

А вычисляешь по трём сторонам. Ничего не напутал?

Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 00:09 11-05-2016
raskharazm

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
спасибо большое проблема решена

Всего записей: 9 | Зарегистр. 03-05-2016 | Отправлено: 00:42 11-05-2016
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » вычислить грвдус угла


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru