| Вопрос: Не могу написать код :'-[ | Добавлено: 07.11.07 20:49 |
Автор вопроса:  slava
|
|
Помогите пожалуйста написать код программы, уже второй вечер сижу не могу разобраться:
1) Табулирование функции: Функция: y=tgx-1/3tg3x+1/5tg5-1/3 (перевожу на русский: функция игрик равно : тангенс икс минус одна третья тангенс в кубе икс плюс одна пятая тангенс в пятой степени минус одна третья) ??? 2)Вычисление суммы ряда По заданной формуле члена последовательности с номером k составить две программы: - программу вычисления суммы первых n членов последовательности (k=1,2,3..,n); - программу вычисления суммы всех членов последовательности, не меньших заданного числа e. То что нужно сделать: еденица делённая (черта дроби) на корень из К плюс 15 3) Арифметические задачи: Сколько чисел последовательности 2, 4, 6, 8, ... нужно взять, чтобы их сумма превысила 1000? Вывести величину последнего слагаемого и суммы. ??? помогите пожалуйста!!! |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Docal ICQ: 408802757 Вопросов: 9 Ответов: 147 |
Профиль | | #1 | Добавлено: 07.11.07 22:27 |
|
Сколько чисел последовательности 2, 4, 6, 8, ... нужно взять, чтобы их сумма превысила 1000? Вывести величину последнего слагаемого и суммы. ???
Dim sum As Long
Dim a As Long Private Sub Form_Load() Do While sum <= 1000 a = a + 2 sum = sum + a Loop MsgBox a / 2 End Sub |
||
|
Номер ответа: 2 Автор ответа: artem ICQ: 238914441 Вопросов: 0 Ответов: 4 |
Профиль | | #2 | Добавлено: 08.11.07 15:48 |
| а где зависимость от К? как изменяется формула от 1 до n? | ||
|
Номер ответа: 3 Автор ответа:   Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #3 | Добавлено: 08.11.07 17:55 |
|
ну дык K=2, это видно из прогрессии
как изменяется формула от 1 до n?
а как изменяются возрастающие арифметические прогрессии? 
|
||
Страница: 1 |