Вычислить значение выражения

@Женёк62 · Регистрация: 24.03.2013

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

Здравствуйте, помогите написать программу на паскале
$https://www.cyberforum.ru/cgi-bin/latex.cgi? y=\frac{{x}^{5}*\sqrt[3]{ax}+\sqrt{\left|a+x\right|}}{{4cos}^{2}\left(ax\right)}+{g}^{2}+wt$ , где $https://www.cyberforum.ru/cgi-bin/latex.cgi?g=x+24,8$

@ZX Spectrum-128 · 31.01.2017, 08:57

Pascal

function power(a, n: real): real;
begin
  power := exp(ln(a) * n);
end;
 
var
  g, x, y, a, w, t: real;
 
begin
  readln(a, x, w, t);
  g := 24.8 + x;
  y := (power(x, 5) * power((a * x), 1 / 3) + sqrt(abs(a + x))) / (4 * sqr(cos(a * x))) + sqr(g) + w * t;
  writeln(y);
end.

@Женёк62 · 31.01.2017, 10:41 **[ТС]**

Спасибо

@volvo · 31.01.2017, 17:50

ZX Spectrum-128, при подобном возведении в степень, если X будет отрицательным - будет вылет приложения.

@ZX Spectrum-128 · 31.01.2017, 17:59

volvo, я твою универсальную функцию power потерял.

Ссылку не помнишь?

@volvo · 31.01.2017, 18:05

Вот она. Но тут можно сделать гораздо проще. Запомнить знак основания, возвести в степень модуль основания, и вернуть знак на место. Поскольку под корнем четной степени заведомо положительное число (да и вычисляется он через свою функцию sqrt) - этого достаточно.

Вычислить значение выражения

Решение

Решение

@Женёк62 0 / 0 / 0 Регистрация: 24.03.2013 Сообщений: 57
		1
	Вычислить значение выражения 30.01.2017, 21:48. Показов 951. Ответов 5 Метки нет (Все метки) Здравствуйте, помогите написать программу на паскале $https://www.cyberforum.ru/cgi-bin/latex.cgi? y=\frac{{x}^{5}*\sqrt[3]{ax}+\sqrt{\left\|a+x\right\|}}{{4cos}^{2}\left(ax\right)}+{g}^{2}+wt$ , где $https://www.cyberforum.ru/cgi-bin/latex.cgi?g=x+24,8$ 0

@Женёк62 0 / 0 / 0 Регистрация: 24.03.2013 Сообщений: 57
	31.01.2017, 10:41 [ТС]	3
	Спасибо 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	31.01.2017, 17:50	4
	ZX Spectrum-128, при подобном возведении в степень, если X будет отрицательным - будет вылет приложения. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	31.01.2017, 17:59	5
	volvo, я твою универсальную функцию power потерял. Ссылку не помнишь? 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	31.01.2017, 18:05	6
	Сообщение было отмечено ZX Spectrum-128 как решение Решение Вот она. Но тут можно сделать гораздо проще. Запомнить знак основания, возвести в степень `модуль` основания, и вернуть знак на место. Поскольку под корнем четной степени заведомо положительное число (да и вычисляется он через свою функцию sqrt) - этого достаточно. 0