Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 15.10.2011, 11:15   #1 (permalink)
dimaua2
Member
 
Регистрация: 07.05.2011
Сообщений: 162
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Пытаюсь создать выражение, но где-то ошибка

Y:=Exp((1/5)*ln(1-5*sqr(x)))/Exp(sin(x)/cos(x)*2);
что тут неправильно?
выражение такое
cce8aa3516d8.jpg
знал бы как написать тут написал (не знаю как писать степень и дробь)
dimaua2 вне форума   Ответить с цитированием

Старый 15.10.2011, 11:15
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Наверняка вы найдете много полезной информации для себя, если посмотрите аналогичные топики

Как создать админ?
Как создать образ?
Как создать ICQ-чат?

Старый 15.10.2011, 13:11   #2 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Знак радикала на всю дробь или только в числителе?
AlexZir вне форума   Ответить с цитированием
Старый 15.10.2011, 14:02   #3 (permalink)
dimaua2
Member
 
Регистрация: 07.05.2011
Сообщений: 162
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

в числителе
dimaua2 вне форума   Ответить с цитированием
Старый 15.10.2011, 14:04   #4 (permalink)
dimaua2
Member
 
Регистрация: 07.05.2011
Сообщений: 162
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Y:=Exp((1/5)*(1-5*sqr(x)*2))/Exp(sin(x)/cos(x)*2); вроде получилось...но игрик у меня почему-то 0 правильно ли я формулу составил?
dimaua2 вне форума   Ответить с цитированием
Старый 15.10.2011, 15:01   #5 (permalink)
kreol
Member
 
Аватар для kreol
 
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
По умолчанию

а у тангенса какой аргумент???
kreol вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 15.10.2011, 16:51   #6 (permalink)
dimaua2
Member
 
Регистрация: 07.05.2011
Сообщений: 162
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

у тангенса просто степень 2х
dimaua2 вне форума   Ответить с цитированием
Старый 15.10.2011, 17:13   #7 (permalink)
kreol
Member
 
Аватар для kreol
 
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
По умолчанию

эээ такого не бывает!!!
kreol вне форума   Ответить с цитированием
Старый 15.10.2011, 18:29   #8 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от dimaua2 Посмотреть сообщение
у тангенса просто степень 2х
Цитата:
Сообщение от kreol Посмотреть сообщение
эээ такого не бывает!!!
Действительно, друг мой, полная чушь. Тангенс (равно как и любая другая функция) обязательно должен иметь аргумент, то есть быть тангенсом чего-то, а не "просто". Ладно, обозначим аргумент тангенса буквой 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;
Vladimir_S вне форума   Ответить с цитированием
Старый 16.10.2011, 20:50   #9 (permalink)
dimaua2
Member
 
Регистрация: 07.05.2011
Сообщений: 162
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

мы такого еще не учили)
dimaua2 вне форума   Ответить с цитированием
Старый 16.10.2011, 20:54   #10 (permalink)
dimaua2
Member
 
Регистрация: 07.05.2011
Сообщений: 162
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:39.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.