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

[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.Ниже уравнение, по которому нужно было написать программу. Может так будет понятней моя ошибка?

[Smitt&Wesson]

Конечно не правильная. Присвой ей, хоть какое-то значение.

[type_Oleg]

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

... но почему-то после ввода х, Паскаль выдает ошибку: Неправильная вещественная операция в строке 9. ...
Где в этой строке ошибка?

Если ошибка - после ввода, значит ошибка - не в строке.
Значит ввели что-то не то.
Вы этот ваш x скармливаете логарифму. Может быть x<0 или =0

Или в этой чудовищной строке получается логарифм от значения < 0.

PS Вот тут: 10.exp(4*ln(x))) - что за точка перед exp? Может быть * ?

[Misapapa]

Я не совсем понял. Как это присвоить ей какое либо значение?

[Serge_Bliznykov]

не разбирал всю строку, но сразу в глаза бросилось,
а что означает 10 c точкой?

10.exp(4*ln(x)))

[Misapapa]

PS Вот тут: 10.exp(4*ln(x))) - что за точка перед exp? Может быть * ?[/QUOTE]
Это я опечатался, там нет ни 10 ни точки

[Serge_Bliznykov]

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

Я не совсем понял. Как это присвоить ей какое либо значение?

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

Это я опечатался, там нет ни 10 ни точки

тогда возьмите текст вашей программы, скопируйте его в буфер обмена и вставьте на форум.
в точности так, как это код у Вас есть, такой и должен тут быть.
Программирование не терпит неточностей и опечаток.

А ещё:
- какой у Вас компилятор Паскаля?
- какое значение X Вы вводите?
- приведите исходную формулу

[Misapapa]

Program Dopolnitelno;
Var
Y,b,a,x:Real;
Begin
Writeln('Введите x');
read(x);
a:=sin(exp(10));
b:=ln(30)/ln(2);
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)));
Writeln('Y=', Y:7:2);
End.

Вот текст программы

[type_Oleg]

И вообще, чушь какая-то
Какой смысл в выражении abs(exp... ? Ведь экспонента и так всегда > 0
И что, вместо 3/5*2 просто 1.2 или 6/5 нельзя ?

[Smitt&Wesson]

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

Я не совсем понял. Как это присвоить ей какое либо значение?

Ну хотя-бы ноль.