Xwab

Moxon

Как эти 2 формулы записать на pascal
добавлено спустя 39 секунд:
напишите пожалуйста. Для TurboPascal

12 Ноя 2012, 21:06

Fever

вот как меня бесит, когда заказчик не имея представления о работе говорит: "да тут на 2 минуты"

к теме отношения не имеет, нахлынуло.

там 0 степень, что ли?

12 Ноя 2012, 21:21

Lexan

Fever, походу это градусы, которые нужно перевести в радианы

12 Ноя 2012, 21:23

Виктор

7.4*tan(15.73*(180/pi))+7.33*sqrt(abs(cos(100*(180/pi))))
Первая формула. Не помню в паскале как десятичные числы пишутся. С точной ли с запятой

12 Ноя 2012, 21:25

Fever

iF1 = 7,4*(tan(15,73*180/Pi)*(tan(15,73*180/Pi) + 7,33*sqrt(abs(cos(100*180/Pi)));

iF2 = (exp(e * ln(sqrt(abs(sin(74,185*180/Pi)*sin(74,185*180/Pi)-5)))) + ln(abs(cos(14,745*180/Pi-5)))) / (3,4*sin(87,565*180/Pi)*sin(87,565*180/Pi))

__________
посл.ред. 12 Ноя 2012, 21:35; всего 3 раз(а) 12 Ноя 2012, 21:28

Виктор

вторая формула
(exp(sqrt(abs(sqr(sin((74.185*(180/pi)-51)))))*Ln(e))+ln(abs(cos(147.45*(180/pi)-5))))/(3.4*sqr(sin(87.565*(180/pi))))
добавлено спустя 1 минуту:
первую формулу исправил. забыл тангенс в квадрат возвести
7.4*sqr(tan(15.73*(180/pi)))+7.33*sqrt(abs(cos(100*(180/pi))))
добавлено спустя 1 минуту:
Fever, зачем 1/tan ?

12 Ноя 2012, 21:34

Fever

Виктор, зрение подвело, показался котангенс

12 Ноя 2012, 21:34

Виктор

Fever, aaa:)
добавлено спустя 1 минуту:
Fever, там в числителе в степени корень квадратный из синуса

12 Ноя 2012, 21:37

Fever

Виктор, по почерку непонятно где именно должен заканчиваться корень, автор не барин и сам чуток поправит

12 Ноя 2012, 21:39

Виктор

Fever, Всё таки я пробил по гуглу. Вещественные числа через точку пишутся)

12 Ноя 2012, 21:40