Пытаюсь создать выражение, но где-то ошибка

[dimaua2]

Y:=Exp((1/5)*ln(1-5*sqr(x)))/Exp(sin(x)/cos(x)*2);
что тут неправильно?
выражение такое

знал бы как написать тут написал (не знаю как писать степень и дробь)

Y:=Exp((1/5)*(1-5*sqr(x)*2))/Exp(sin(x)/cos(x)*2); вроде получилось...но игрик у меня почему-то 0 правильно ли я формулу составил?

[Leshii]

Program lin;
Uses crt;
var x,y:real;
begin
clrscr;
writeln('Vvedite x: ');
readln(x);
y:=(Exp(1/5*ln(1-(exp(2*x)*ln(5))/(exp(2*x)*ln(sin(x)/cos(x)))))));
writeln(y:1:1);
readln;
end.

Вводи числа где-то от 0.1 и до 0.8. Ты немного не той формулой пользовался для примеров a^b (а в степени б), записывается так:

a^b=exp(b*ln(a))

[dimaua2]

чот нам немного не так объясняли

Program 2;
 uses CRT;
 var x,y:real;
 begin
 clrscr;
 x:=3;
 while x<=5 do
 begin
 Y:=Exp((1/5)*(1-5*sqr(x)*2))/Exp(sin(x)/cos(x)*2);
 writeln('x= ',x:3:2,' Y= ',Y:3:2);
 x:=x+0.2;
 end;
 readln;
 end.

вот что я пытался сделать

ваша формула выдает ошибочку 207

[_Alerter_]

y:=(Exp(1/5*ln(1-(exp(2*x)*ln(5))/(exp(2*x)*ln(sin(x)/cos(x)))))));

По-моему, последняя скобка лишняя

[Leshii]

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

чот нам немного не так объясняли

Чот ты тогда немного задание не дописал... если уже в след посте цыкл появился.Ты написал пример.Спросил где ошибка,вот тебе и ответ.Что тебе объясняли я и ведать не ведаю.
Касательно скобочки да=)Просто это причуды моего компилятора.

[Вадим Мошев]

Выражение будет иметь следующий вид:

y := exp(0.2*ln(1-exp(2*x*ln(5)))) / exp(2*x*ln(sin(x)/cos(x)))

Кстати, формула для возведения числа a в степень b может быть выведена так:

Обозначим: a^b = c
возьмём натуральный логарифм от обеих частей: ln(a^b) = ln(C)
Перенося показатель степени у левого логарифма перед ним, получаем: b*ln(a) = ln(c) или
ln(c) = b*ln(a)

Привлекаем определения логарифма и задаём себе вопрос: в какую степень надо возвести число e (это основание натурального логарифма), чтобы получить C? Ответ: его надо возвести в степень b*ln(a), то есть e^b*ln(a) = c, или Exp(b*ln(a)) = c

А пользуясь тем, что мы обозначили a^b = c, окончательно заключаем:
a^b = Exp(b*ln(a))

[dimaua2]

Leshii и Вадим Мошев пробовал ваши формулы
но я не пойму почему у меня выдает ошибку 207

[Вадим Мошев]

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

Leshii и Вадим Мошев пробовал ваши формулы
но я не пойму почему у меня выдает ошибку 207

Согласно ресурсу http://wiki.sources.ru/doku.php?id=pascal:error_codes
ошибка 207 - это Invalid floating point operation (Недопустимая операция с плавающей запятой) .

Она возникает при попытке извлечь корень чётной степени из отрицательного числа или взять логарифм от нуля или отрицательного числа.

Смотрим на формулу:
exp(0.2*ln(1-exp(2*x*ln(5)))) / exp(2*x*ln(sin(x)/cos(x)))

При некоторых x аргументы у логарифмов получаются меньше либо равны нулю. В связи с этим здесь имеется одна тонкость: прямое вычисление "в лоб" при некоторых иксах в тех местах, где при его подстановке в принимающее отрицательное значение после подстановки выражение, из которого извлекается корень, произойдёт ошибка, хотя на самом деле формула даёт при этих числах действительные числа, то есть вычисляется без проблем.
Видимо, в этом и кроется подвох. Тем не менее, можно сделать так, чтобы всё было хорошо.

Автор, при каких значениях икса у вас возникает ошибка?

[dimaua2]

uses CRT;
var
x,y:real;
begin
clrscr;
x:=3;
while x<=5 do
begin
if x<0 then
y:= Exp((1/5)*Ln(1-Exp(2*x*Ln(5))))/Exp(x*Ln(sqr(Sin(x)/Cos(x))))
else
if x>0 then
y:= -Exp((1/5)*Ln(Exp(2*x*Ln(5))-1))/Exp(x*Ln(sqr(Sin(x)/Cos(x))))
else
y:=0;
writeln('x= ',x:3:2,' Y= ',Y:3:2);
x:=x+0.2;
end;
readln;
end.


вот нашел решение...подсказали

[warca]

uses CRT;
var
x,y:real;
begin
clrscr;
x:=3;
while x<=5 do
begin
if x<0 then
y:= Exp((1/5)*Ln(1-Exp(2*x*Ln(5))))/Exp(x*Ln(sqr(Sin(x)/Cos(x))))
else
if x>0 then
y:= -Exp((1/5)*Ln(Exp(2*x*Ln(5))-1))/Exp(x*Ln(sqr(Sin(x)/Cos(x))))
else
y:=0;
writeln('x= ',x:3:2,' Y= ',Y:3:2);
x:=x+0.2;
end;
readln;
end.

Оформляйте в код алгоритм задачи(на будующее)