|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
16.10.2011, 21:00 | #11 (permalink) |
Member
Регистрация: 07.05.2011
Сообщений: 162
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
16.10.2011, 21:00 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Наверняка вы найдете много полезной информации для себя, если посмотрите аналогичные топики Как создать админ? Как создать образ? Как создать ICQ-чат? |
16.10.2011, 21:43 | #12 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Юноша, а вот это меня интересует в самую последнюю очередь. Дело в том, что функция, заданная в Вашей программе, соответствует такой:
Сравните с исходной и, как говорится, "почувствуйте разницу". А когда почувствуете, можете выбрать один из двух путей: 1. Вооружиться книжками и разобраться со всеми этими степенями, логарифмами и т.п. (recommended). 2. Встать перед учителем, набрать полную грудь воздуха и спеть: Тили-тили, Трали-вали, Это мы не проходили, Это нам не задавали! Тирьям-пам-пам. Тирьям-пам-пам. Выбор за Вами. |
17.10.2011, 00:41 | #14 (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 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. вот так прописываю выдает ошибку, написал, как вы показали в чем причина? |
17.10.2011, 00:49 | #15 (permalink) |
Хозяин Медной Горы
Регистрация: 01.08.2011
Адрес: Армавир
Сообщений: 12,159
Записей в дневнике: 8
Сказал(а) спасибо: 751
Поблагодарили 88 раз(а) в 27 сообщениях
Репутация: 57416
|
А в какой строке?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
17.10.2011, 10:21 | #16 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Если Вы заметили, в моей записи аргументом тангенса является некая неизвестная величина 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. |
|
19.10.2011, 23:33 | #17 (permalink) |
Member
Регистрация: 07.05.2011
Сообщений: 162
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
аа ясно
спасибо |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|