Помогите с турбопаскалем

[st1nger123]

Народ помогите решить формулу под номером шесть.

пример решения пятой вот

Реально надо но забыл как делается. Там с арккосинусом у меня трабл возник и с кубом.

[Тролль]

С кубом проще всего: x*x*x или exp(3*ln(x))

С арккосинусом чуть сложнее, по формуле arccos x = arcctg (x/sqrt(1-sqr(x))) = pi/2-arctg (x/sqrt(1-sqr(x))), а arctg в Паскале есть, только он обозначается arctan. Поскольку считать надо не прямо от x, удобно будет ввести промежуточную переменную z:=abs(a*b+sqr(x)) и считать по формуле pi/2-arctan(z/sqrt(1-sqr(z))).

Edited December 22, 2009 by Тролль

[Форматцевт]

Тролль: ммм... а зачем "городить огород"?

function ArcSin(x: real): real; - Возвращает арксинус числа x

function ArcCos(x: real): real; - Возвращает арккосинус числа x

function ArcTan(x: real): real; - Возвращает арктангенс числа x

function Power(x,y: real): real; - Возвращает x в степени y

а? :)

Или мы о старом добром паскале... TP7 или BP7.1?

[Тролль]

Indomito:

Да судя по скрину примера, "о старом добром" :)

Если уж у Shadow TH в универе изучают QuickBasic , то и TP7 - прогресс .

Edited December 23, 2009 by Тролль

[Форматцевт]

Тролль: это ужасно

Хотя если специализация инженер-системотехник (как у меня), то я изучал все основы, те Д. Кнут "Искусство программирования" (3 тома) и задачи требовали реализации на различных макроассемблерах (аппаратной реализации).

Ну, а, цитату я привел из справки по Pascal.ABC.NET