VBNet - Форум - Помогите решить задачу в VBA

Вопрос: Помогите решить задачу в VBA Добавлено: 16.05.11 14:35

Автор вопроса: Марина

Помогите,пожалуйста,решить задачу в VBA.

Подсчитать количество положительных значений функции Z=2*C - 3*n^2 , при n = 0, 2, ..m
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Дмит Вопросов: 11 Ответов: 160	Web-сайт: dimit.pochta.ru Профиль \| \| #1	Добавлено: 17.05.11 11:14
	Sub MapuHa() Dim c As Long Dim n As Long Dim m As Long Dim Z As Long Dim chet As Long m = Application.InputBox("Подсчитать количество положительных значений функции:" & _ "Z=2C - 3n^2 , при n = 0, 2, ..m" & vbCrLf & vbCrLf & _ " Введите значение 'm'", Type:=1) c = Application.InputBox(" Введите значение 'C'", Type:=1) For n = 0 To m Step 2 Z = c * c - 3 * n * n If Z >= 0 Then chet = chet + 1 Next n MsgBox chet & vbCrLf & " при m = " & m & ", C = " & c End Sub Ответить

Номер ответа: 2 Автор ответа: Максим ICQ: 411726506 Вопросов: 1 Ответов: 4	Профиль \| \| #2	Добавлено: 15.09.11 16:20
	Помогите пожалуйста решить задачу в VBA.. Надежда на вас.. Оплата услуг Internet осуществляется по трём тарифам: дневному, вечернему и ночному. Ночной тариф определяется временем суток от 0 до 5 часов; дневной от 8 до 18 часов. Тарифы разные, их значения известны. Услугами Internet за сутки воспользовались N клиентов. Время использования, а следовательно вид тарифа и продолжительность пользования каждого клиента известны. Определите среднюю стоимость единицы времени пользования Internet. Ответить

Страница: 1 |