Помогите пожалуйста перевести эту формулу(без использования 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 отпадает?)

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

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

	Помогите пожалуйста перевести эту формулу(без использования uses math) 10.10.2012, 20:41. Показов 1583. Ответов 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 читаем внимательно.