Курсовая для первого курса, спасайте или выгонять меня... Опции

[Floyd]

Приветсвую всех. Прошу помоч сделать мне курсовую.
Тут отксерино все мое задание

http://img185.echo.cx/img185/2035/11by.th.gif

Я тут новенький и очень надеюсь на вашу помощ, еще неделя и нужно сдавать, если не сдам выгонят. Буду жутко признателен тому кто поможет. А отплатить... единственное что могу, так это сделать аватар любой сложности...
З.Ы.Хотя сомневаюсь что это кому то нужно сдесь...

Я присоединил изображение...

Сообщение отредактировано: volvo - 7.05.2005 21:25

[Floyd]

Не, я не правильно выразился. сори. Естественно я воспользуюсь вашим FAQ.
Тока маленький вопрос, у меня функци вот такая

arcsin|корень|(х)
--------------------
корень(х*(1-х))


я правильно записал в Паскале?
(exp((-1)*ln(sin(sqrt(x)))))/sqrt(x*(1-x))
З.Ы.Ведь arcsin это sin в степени -1?

Сообщение отредактировано: Floyd - 8.05.2005 17:01

[volvo]

я правильно записал в Паскале?
(exp((-1)*ln(sin(sqrt(x)))))/sqrt(x*(1-x))
З.Ы.Ведь arcsin это sin в степени -1?

:no: Это не калькулятор...
К сожалению в Паскале отсутствует встроенная функция вычисления арксинуса... Из всех Арков есть только арктангенс, пожтому приходится выражать ArcSin через ArcTan:

Function ArcSin(x: Real): Real;
begin
  If Abs(x) = 1 Then ArcSin := 0
  Else ArcSin := ArcTan(x / (1 - Sqr(x)))
end;

{ И потом вычисляешь: }
y := ArcSin(sqrt(x)) / sqrt(x * (1 - x));