Неверная вещественная операция в программе

[Serge_Bliznykov]

проблема в том, что функция логарифма не определена на всём множестве чисел.
допишите перед Y := ....

  WriteLn('ln(x)=',ln(x));
  WriteLn(' выражение LN(...) = LN(',abs(exp(3*ln(x)))-exp(4*ln(x)),')');

и Вы увидите, что при X=1 выражение превращается в ноль.
Напомните, в какую степень нужно возвести e, чтобы получилось ноль?
(чему равен логарифм натуральный от нуля?)

а если ввести X=2
то выражение превращается вообще в -8
логарифм натуральный от отрицательных чисел так же неопределён.

вот и возникает ваша ошибка.

[Smitt&Wesson]

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

Не обращайте на это внимания, Смит о чём-то своём..

Ты не прав. Когда я об этом начинал писать ответ, была просто пустая строка. Сейчас глянул, появилась и формула. И в ней, ещё пока не разобрался. Разберусь, а ТС её изменит, во - засада!
И опять я буду виноват .

[Serge_Bliznykov]

Сообщение от Smitt&Wesson

Ты не прав. Когда я об этом начинал писать ответ, была просто пустая строка. Сейчас глянул, появилась и формула. И в ней, ещё пока не разобрался. Разберусь, а ТС её изменит, во - засада!

Сейчас строка не пустая?
Теперь ваш совет насчёт присвоения нуля можно игнорировать?
вот я об этом сразу и сказал.

Да уже всё ясно, либо формула неверно составлена,
либо автор забыл, что вводить X нужно строго от нуля до 1 ( 0 < x < 1)
(неравенства строгие, граничные значения недопустимы)

[Smitt&Wesson]

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

Здравствуйте. Меня попросили написать программу, но почему-то после ввода х, Паскаль выдает ошибку: Неправильная вещественная операция в строке 9.
1.Program Dopolnitelno;
2.Var
3.Y,b,a,x:Real;
4.Begin
5.Writeln('Введите x');
6.read(x);
7.a:=sin(exp(10));
8.b:=ln(30)/ln(2);
9.Y:=(ln(abs(exp(3*ln(x)))-exp(4*ln(x)))+7/ln(10)+cos(3/5*2)/sin(3/5*2)/sqr(cos(pi/4))+sin(pi/8)/cos(pi/8)+exp(-2*a*ln(b)));
10.Writeln('Y=', Y:7:2);
11.End.
Где в этой строке ошибка?

2.Ниже уравнение, по которому нужно было написать программу. Может так будет понятней моя ошибка?

Кто Вам такие задачки задаёт? Вы, даже представить себе не можете, что такое экспонента в 10-й степени. Во-Вселенной, не то-что столько атомов нет, но и кварков на порядок меньше. О_оооо!

[Misapapa]

Это нам дают в Институте на 1-м курсе

[Serge_Bliznykov]

Misapapa, вы мой ответ выше прочитали?
вопрос закрыт?


Смит, кончайте уже, а...
какие атомы, какие кварки?!!
exp(10)= 22026.4657948067165
22 тысячи 26. Это огромное число?
У Вас что, калькулятор украли?!

[Misapapa]

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

проблема в том, что функция логарифма не определена на всём множестве чисел.
допишите перед Y := ....

  WriteLn('ln(x)=',ln(x));
  WriteLn(' выражение LN(...) = LN(',abs(exp(3*ln(x)))-exp(4*ln(x)),')');

и Вы увидите, что при X=1 выражение превращается в ноль.
Напомните, в какую степень нужно возвести e, чтобы получилось ноль?
(чему равен логарифм натуральный от нуля?)

а если ввести X=2
то выражение превращается вообще в -8
логарифм натуральный от отрицательных чисел так же неопределён.

вот и возникает ваша ошибка.

Это все равно не помогло. Видимо я не правильно написал программу по формуле. Если можно, то помогите ее правильно составить.

[Serge_Bliznykov]

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

Это все равно не помогло. Видимо я не правильно написал программу по формуле. Если можно, то помогите ее правильно составить.

конечно, неправильно.
даже с самого начала. в первом же логарифме первым слагаемым идёт b
где это у Вас?!
ну и со скобками всё перепутано.
мой Вам совет - разбивайте выражение на отдельные элементы и отдельно их вычисляйте.
потом сложите полученное.
иначе легко запутаться.

[Misapapa]

Хорошо. Спасибо. Я попробую разбить на части

[Serge_Bliznykov]

и лучше функции тангенса и котангенса вынести отдельно:

function tg (x : real) : real;
begin
  tg := sin(x)/cos(x);
end;

function ctg (x : real) : real;
begin
  ctg := cos(x)/sin(x);
end;