| Вопрос: Математика | Добавлено: 08.06.08 15:37 |
Автор вопроса:  log-out
|
|
1) Дана функция q=(a*e^wt)*cos(wt+f)
t изменяется от 0 до 45/ц с шагом 0,001 Вывести результаты в текстовое поле через каждые 3 шага вычисления функции. 2) дана функция f(x)=arctgx - 0.5*ln(1+x^2) найти максимум аргумент изменяется от 0,15 до 1,5 с шагом 0,2 |
| Ответы | Всего ответов: 14 |
|
Номер ответа: 1 Автор ответа:  Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #1 | Добавлено: 08.06.08 15:52 |
| Так вроде ж в школе каникулы уже?.. | ||
|
Номер ответа: 2 Автор ответа: log-out Вопросов: 2 Ответов: 7 |
Профиль | | #2 | Добавлено: 08.06.08 15:55 |
в институте нет каникул 
ПОМОГИТЕ С РАБОТАМИ! ЗАВТРУ НУЖНО СДАВАТЬ!!! |
||
|
Номер ответа: 3 Автор ответа: log-outВопросов: 2 Ответов: 7 |
Профиль | | #3 | Добавлено: 08.06.08 15:57 |
|
+ посмотрите еще http://vbnet.ru/forum/show.aspx?id=168143
ПОЖАЛУЙСТА!!! ВСЯ НАДЕЖДА НА ВАС! |
||
|
Номер ответа: 4 Автор ответа:  Алексей black admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #4 | Добавлено: 08.06.08 16:15 |
забавно, вот из таких студентов потом и вырастают спамеры 
ВСЯ НАДЕЖДА НА ВАС!
Надя на 24 часа - 800 евро, Надя на 12 часов - 1 600 евро, Надя на 6 часов - 2 400 евро, Надя на 3 часа - 4 768 евро, Надя на час - 12 486 евро. |
||
|
Номер ответа: 5 Автор ответа: log-outВопросов: 2 Ответов: 7 |
Профиль | | #5 | Добавлено: 08.06.08 16:20 |
| лучше бы помогли ( | ||
|
Номер ответа: 6 Автор ответа: Алексейblack admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #6 | Добавлено: 08.06.08 16:35 |
|
Прайс есть, выбирай тариф и будет тебе завтра зачет
|
||
|
Номер ответа: 7 Автор ответа: log-outВопросов: 2 Ответов: 7 |
Профиль | | #7 | Добавлено: 08.06.08 16:50 |
| в кредит | ||
|
Номер ответа: 8 Автор ответа: log-outВопросов: 2 Ответов: 7 |
Профиль | | #8 | Добавлено: 08.06.08 16:50 |
| в кредит, тут помогут или нет? | ||
|
Номер ответа: 9 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #9 | Добавлено: 08.06.08 18:26 |
|
Алексей, какая-то у тебя тарификация странная Обычно возрастание цен идет в другом направлении.
|
||
|
Номер ответа: 10 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #10 | Добавлено: 08.06.08 18:56 |
| Цены уже давно зависят от срочности, что странного? | ||
|
Номер ответа: 11 Автор ответа: Алексейblack admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #11 | Добавлено: 09.06.08 06:07 |
|
в кредит, тут помогут или нет?
Да запросто, 30% сразу, на все остальное +17% годовых
Цены уже давно зависят от срочности,
+1 ЗЫ: 2Павел, кнопка "Сохранить" на JavaScript - не юзабилитно. |
||
|
Номер ответа: 12 Автор ответа:  DJKВопросов: 0 Ответов: 2 |
Профиль | | #12 | Добавлено: 09.06.08 13:22 |
|
2)
Dim tempVar As Double, fx As Double 'Вычисляем первое значение и считаем его максимальным tempVar = Atn(0.15) - 0.5 * Log(1 + 0.15 ^ 2) For x = 0.35 To 1.5 Step 0.2 fx = Atn(0.15) - 0.5 * Log(1 + x ^ 2) 'Если значение функции больше первоначального, то заменяем его If fx > tempVar Then tempVar = fx Next x Log - натуральный логарифм Atn - arctn арктангенс |
||
|
Номер ответа: 13 Автор ответа: DJKВопросов: 0 Ответов: 2 |
Профиль | | #13 | Добавлено: 09.06.08 13:39 |
|
Dim q, a, e, wt, f As Double
For wt = 0 To 45 Step 0.001 q = (a * e ^ wt) * Cos(wt + f) If q Mod 0.003 Then text1.Text = Str(q) Next wt Вводишь a,e,f как тебе надо. |
||
|
Номер ответа: 14 Автор ответа: log-outВопросов: 2 Ответов: 7 |
Профиль | | #14 | Добавлено: 10.06.08 21:52 |
| СПАСИБО!!! | ||
Страница: 1 |