Помогите пожалуйста перевести эту формулу(без использования uses math)

@Winfer · Регистрация: 10.10.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте! Помогите пожалуйста перевести эту формулу(без использования uses math):
2arcsin²x3

Добавлено через 32 минуты
у меня получилась вот такая ересь, но Delphi не принимает это-

2*arctan(sqrt(1-(sqr(x*3))))

@Ales'hon'ne · 10.10.2012, 21:32

Не совсем понятно, что значит «x3» в вашей формуле, так что 2 варианта (надеюсь, ничего нигде не перепутал):
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=2\cdot\arcsin^2(3x)=2\cdot\arctan^2\left(\frac{3x}{\sqrt{1-{(3x)}^2}}\right)$

Delphi
1
Result:=2*sqr(arctan(3*x/sqrt(1-sqr(3*x))));

$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=2\cdot\arcsin^2(x^3)=2\cdot\arctan^2\left(\frac{x^3}{\sqrt{1-{(x^3)}^2}}\right)$

Delphi
1
Result:=2*sqr(arctan(x*x*x/sqrt(1-sqr(x*x*x))));

@Winfer · 10.10.2012, 22:19 **[ТС]**

Сообщение от Ales'hon'ne

Не совсем понятно, что значит «x3» в вашей формуле, так что 2 варианта:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=2\cdot\arcsin^2(3x)$

Delphi
1
Result:=2*sqr(arctan(3*x/sqrt(1-sqr(3*x))));

большое спасибо вам, да там 3 икс , (блин как то я с квадратом промахнулся

)!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
var x,y:real;
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text=''then begin showmessage('введите х');
edit1.setfocus end
else
begin
x:=strtofloat(edit1.text);
y:=(exp(sin(x)/cos(x))*ln(x-0.3))/((sqr(x))+0.1)+2*sqr(arctan(3*x/sqrt(1-sqr(3*x))));
edit2.text:='y='+floatToStrf(y,fffixed,6,2);
end;
end;
end.

вот что вышло, при попытке расчета это программа выдает ошибку// " исключение класа EInvalidOp" с сообщением "Invalid floating point operation"

Добавлено через 17 минут
И еще вся формула у=(x-0.3)^tgx/(x²+0,1)+2arccos² 3x

@саша40 · 10.10.2012, 22:43

Не по теме:

Геометрические формулы связаные с синусами и тангенсами. Но как же всё это сложно.

11.10.2012, 04:09

Попытка извлечь корень из отрицательного числа:

y:=(exp(sin(x)/cos(x))*ln(x-0.3))/((sqr(x))+0.1)+2*sqr(arctan(3*x/sqrt(1-sqr(3*x))));

@Winfer · 11.10.2012, 21:25 **[ТС]**

Формула у=(x-0.3)tgx/(x2+0,1)+2arccos² 3x ( До того была ошибка: должно быть arccos a не arcsin )

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
var x,y:real;
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text=''then begin showmessage('введите х');
edit1.setfocus end
else
begin
x:=strtofloat(edit1.text);
y:=(exp(sin(x)/cos(x))*ln(x-0.3))/(sqr(x)+0.1)+2*(sqr(arctan(sqrt(1-(sqr(3*x))))/(3*x)));
edit2.text:='y='+floatToStrf(y,fffixed,6,2);
end;
end;
end.

упорно ничего не считает!! Посмотрите где может бить ошибка я уже почти все попробовал..

@Alex_pac · 11.10.2012, 21:38

госпади напиши пользовательскую функцию POWER

Delphi
1
2
3
4
function POWER(X,Y:double):double;
begin
  result:=exp(ln(X) * Y);
end;

@Winfer · 11.10.2012, 21:49 **[ТС]**

Сообщение от Alex_pac

госпади напиши пользовательскую функцию POWER

Delphi
1
2
3
4
function POWER(X,Y:double):double;
begin
  result:=exp(ln(X) * Y);
end;

не пойму что это даст?!! Програма должна выглядеть именно так(без других функцый, в другом случае я бы с удовольствием использовал "math")!
Ошибка где то в этой строке

Delphi
1
y:=(exp(sin(x)/cos(x))*ln(x-0.3))/(sqr(x)+0.1)+2*(sqr(arctan(sqrt(1-(sqr(3*x))))/(3*x)));

и я не знаю где

@Alex_pac · 11.10.2012, 21:54

без других функцый, в другом случае я бы с удовольствием использовал "math"

это твоя функция она math не использует => ей можно и нужно пользоваться

@Winfer · 11.10.2012, 21:59 **[ТС]**

Был бы подфорум "Delphi для идиотов" зделал бы тему там! (не понял ни одного вашего слова!

magirus · 11.10.2012, 22:05

Не по теме:

Сообщение от Winfer

Был бы подфорум "Delphi для идиотов" зделал бы тему там!

видимо вам придется ожидать появления такого раздела

11.10.2012, 22:10

to Winfer читаем внимательно.

@Winfer · 11.10.2012, 22:19 **[ТС]**

Сообщение от angstrom

to Winfer читаем внимательно.

то есть эту формулу совсем не возможно выполнить?

Сообщение от magirus

Не по теме:

видимо вам придется ожидать появления такого раздела

Не по теме:
буду ждать=)

11.10.2012, 22:25

Сообщение от Winfer

то есть эту формулу совсем не возможно выполнить?

А как ты себе представляешь извлечение корня из отрицательного числа?

@Winfer · 11.10.2012, 22:33 **[ТС]**

Сообщение от angstrom

А как ты себе представляешь извлечение корня из отрицательного числа?

хм тогда я завтра завтра спрошу об етом того кто дал мне это задание!! (а вариант с тем что я неправильно перевел формулу в код delphi отпадает?)

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@Winfer 0 / 0 / 0 Регистрация: 10.10.2012 Сообщений: 11

	Помогите пожалуйста перевести эту формулу(без использования uses math) 10.10.2012, 20:41. Показов 1571. Ответов 14 Метки нет (Все метки) Здравствуйте! Помогите пожалуйста перевести эту формулу(без использования uses math): 2arcsin²x3 Добавлено через 32 минуты у меня получилась вот такая ересь, но Delphi не принимает это- 2arctan(sqrt(1-(sqr(x3)))) 0

@саша40
	10.10.2012, 22:43
	Не по теме: Геометрические формулы связаные с синусами и тангенсами. Но как же всё это сложно. 0

@Winfer 0 / 0 / 0 Регистрация: 10.10.2012 Сообщений: 11
	11.10.2012, 21:59 [ТС]
	Был бы подфорум "Delphi для идиотов" зделал бы тему там! (не понял ни одного вашего слова! 0

angstrom
	11.10.2012, 22:10
	to Winfer читаем внимательно.