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

[dimaua2]

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

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

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

 

[AlexZir]

Знак радикала на всю дробь или только в числителе?

 

[dimaua2]

в числителе

 

[dimaua2]

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

 

[kreol]

а у тангенса какой аргумент???

 

[dimaua2]

у тангенса просто степень 2х

 

[kreol]

эээ такого не бывает!!!

 

[Vladimir_S]

у тангенса просто степень 2х

эээ такого не бывает!!!

Действительно, друг мой, полная чушь. Тангенс (равно как и любая другая функция) обязательно должен иметь аргумент, то есть быть тангенсом чего-то, а не "просто". Ладно, обозначим аргумент тангенса буквой z.
А формула Ваша до того неправильна, что просто абсолютно неправильна.
Прежде всего, Вы не знаете, как возводить в степень. Если число γ есть положительное число α, возведенное в степень β, то
γ = Exp(β*Ln(α))
а у Вас я напрочь не вижу логарифмов.
Теперь пойдем дальше. Заметим, что выражение, стоящее под знаком радикала, при x>0 отрицательно, а потому впрямую применять приведенную выше формулу нельзя (логарифм бывает только от строго положительных величин), но, тем не менее, корень нечетной степени из отрицательного числа извлечь можно. Так что тут потребуется ветвление программы.

if x<0 then
 y:= Exp((1/5)*Ln(1-Exp(2*x*Ln(5))))/Exp(2*x*Ln(Sin(z)/Cos(z)))
else
if x>0 then
 y:= -Exp((1/5)*Ln(Exp(2*x*Ln(5))-1))/Exp(2*x*Ln(Sin(z)/Cos(z)))
else
 y:=0;

 

[dimaua2]

мы такого еще не учили)

 

[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.

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

 

[dimaua2]

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

 

[Vladimir_S]

мы такого еще не учили)

Юноша, а вот это меня интересует в самую последнюю очередь. Дело в том, что функция, заданная в Вашей программе, соответствует такой:

Сравните с исходной и, как говорится, "почувствуйте разницу". А когда почувствуете, можете выбрать один из двух путей:

1. Вооружиться книжками и разобраться со всеми этими степенями, логарифмами и т.п. (recommended).

2. Встать перед учителем, набрать полную грудь воздуха и спеть:
Тили-тили,
Трали-вали,
Это мы не проходили,
Это нам не задавали!
Тирьям-пам-пам.
Тирьям-пам-пам.

Выбор за Вами.

 

[Vladimir_S]

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

И не думает - проверено.

 

[dimaua2]

Program 2;
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(2*x*Ln(Sin(x)/Cos(x)))
else
if x>0 then
y:= -Exp((1/5)*Ln(Exp(2*x*Ln(5))-1))/Exp(2*x*Ln(Sin(x)/Cos(x)))
else
y:=0;
writeln('x= ',x:3:2,' Y= ',Y:3:2);
x:=x+0.2;
end;
readln;
end.

вот так прописываю выдает ошибку, написал, как вы показали в чем причина?

 

[Daniellos]

А в какой строке?

 

[Vladimir_S]

вот так прописываю выдает ошибку, написал, как вы показали в чем причина?

В знаменателе формулы.
Если Вы заметили, в моей записи аргументом тангенса является некая неизвестная величина z, поскольку в Вашей исходной формулировке задания таковой аргумент отсутствует напрочь.
У Вас же в знаменателе сидит функция tg²ª(a) (здесь вместо x поставлено a). Но! Если аргумент тангенса превышает Pi/2, т.е. 1.57, то тангенс становится отрицательным, а отрицательная величина под знаком логарифма недопустима, отсюда и ошибка.
Тут можно вывернуться так:
tg²ª(a) = (tg²(a))ª = Exp(a*Ln(tg²(a))). Вот теперь, когда под логарифмом мы оставили не тангенс, а квадрат тангенса, то есть положительную величину (значение а=0 у нас обходится), ошибки быть не должно. И нету.

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.

 

[dimaua2]

аа ясно
спасибо