Вычислить значение функции

@КристинаМ · Регистрация: 13.06.2014

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

y=ln(x⁴-1)ln(1+x)

@Cyborg Drone · 26.06.2014, 19:04

Pascal

var x: real;
begin
  write('x = ');
  readln(x);
  if x <= 1
    then writeln('Функция не определена.')
    else writeln('y = ', ln(x * x * x * x - 1) * ln(1 + x));
  readln
end.

@LLIapuk · 27.06.2014, 11:40

Будет проще:

Pascal

1	writeln('y = ', ln(power(x,4) - 1) * ln(1 + x));

@erl27 · 27.06.2014, 14:21

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

Будет проще:

LLIapuk, попробуйте запустить эту программу:

Pascal

var x: real;
begin
  x := 0.5;
  writeln('y = ', ln(power(x,4) - 1) * ln(1 + x));
  readln
end.

@LLIapuk · 27.06.2014, 14:46

Вы меня наверное не правильно поняли.
Я имел ввиду заменить это:

Pascal

1	else writeln('y = ', ln(x * x * x * x - 1) * ln(1 + x));

На вот это:

Pascal

1	else writeln('y = ', ln(power(x,4) - 1) * ln(1 + x));

Зачем x умножать четыре раза на самого себя если можно проще.

@erl27 · 27.06.2014, 15:24

Не по теме:

Теперь понятно

@Cyborg Drone · 27.06.2014, 16:00

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

Зачем x умножать четыре раза на самого себя если можно проще

Это только выглядит проще. Вы заменили x * x * x * x на функцию power, которая разворачивается примерно в следующее:

Pascal

function power(x, a: real): real;
begin 
  if x = 0
    then power := 0
    else if x > 0
      then power := exp(a*ln(x))
      else if (round(a) = a) and (round(a) mod 2 = 0)
        then power := exp(ln(abs(x)) * a)
        else power := -exp(ln(abs(x)) * a)
end;

Ну что, проще? Ещё и приведение 4 к типу real. Программа получается длиннее и медленнее.
Языки высокого уровня скрывают свои закулисные махинации, и простота очень часто только кажущаяся.
Написали бы

Pascal

1	sqr(sqr(x))

я бы особо спорить и не стал. Ну, разве появляется там скрытая переменная для хранения внутреннего sqr, а так - вроде и ничего.

"Зри в корень."

Козьма Прутков.

@Iriini · 27.06.2014, 16:05

Языки высокого уровня скрывают свои закулисные махинации, и простота очень часто только кажущаяся.

Отличный комментарий эффективности программы

@Cyborg Drone · 27.06.2014, 16:13

Да, ещё, кстати... Приведённый мною код не учитывает возведение в степень 1/n при чётном n (извлечение корня чётной степени из числа). Там ещё и обработка исключительной ситуации при извлечении корня из отрицательного числа должна быть. Вот Вам и проще.

@КристинаМ 0 / 0 / 0 Регистрация: 13.06.2014 Сообщений: 22
		1
	Вычислить значение функции 24.06.2014, 10:57. Показов 588. Ответов 8 Метки нет (Все метки) y=ln(x⁴-1)ln(1+x) 0

@erl27
	27.06.2014, 15:24 #6
	Не по теме: Теперь понятно 0

@Iriini 266 / 192 / 50 Регистрация: 16.06.2014 Сообщений: 424
	27.06.2014, 16:05	8
	Языки высокого уровня скрывают свои закулисные махинации, и простота очень часто только кажущаяся. Отличный комментарий эффективности программы 0

@Cyborg Drone Модератор 9867 / 5235 / 3306 Регистрация: 17.08.2012 Сообщений: 16,006
	27.06.2014, 16:13	9
	Да, ещё, кстати... Приведённый мною код не учитывает возведение в степень 1/n при чётном n (извлечение корня чётной степени из числа). Там ещё и обработка исключительной ситуации при извлечении корня из отрицательного числа должна быть. Вот Вам и проще. 0