15.10.2011, 11:15 | #1 (permalink) |
Member
Регистрация: 07.05.2011
Сообщений: 162
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Пытаюсь создать выражение, но где-то ошибка
что тут неправильно? выражение такое знал бы как написать тут написал (не знаю как писать степень и дробь) |
15.10.2011, 11:15 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Наверняка вы найдете много полезной информации для себя, если посмотрите аналогичные топики Как создать админ? Как создать образ? Как создать ICQ-чат? |
15.10.2011, 15:01 | #5 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
а у тангенса какой аргумент???
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
15.10.2011, 18:29 | #8 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Действительно, друг мой, полная чушь. Тангенс (равно как и любая другая функция) обязательно должен иметь аргумент, то есть быть тангенсом чего-то, а не "просто". Ладно, обозначим аргумент тангенса буквой 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; |
16.10.2011, 20:54 | #10 (permalink) |
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. вот что я пытался сделать |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|