Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.10.2017, 18:00   #1
Никита222
 
Регистрация: 16.10.2017
Сообщений: 4
По умолчанию [VB] Нужно посчитать их количество

1)Сформировать элементы массива по формуле Screenshot_2.png
2) Записать в новый массив элементы, удовлетворяющие условию Screenshot_3.png и
посчитать их количество.
3) Отсортировать элементы массива по убыванию
Массив и результаты его обработки вывести в Microsoft Excel

Код:
Sub Обработка_массива()
Dim x() As Single
Dim s1 As Single, s2 As Single, r As Single
Dim i As Integer, j As Integer, n As Integer
n = CInt(InputBox("Введите число элементов массива"))
ReDim x(n)
s1 = 0
s2 = 0
Cells(1, 1) = "Исходный массив"
For i = 1 To n
x(i) = Sin(1 - i) - Cos(i ^ 3)
Cells(i + 1, 1) = x(i)
s1 = s1 + x(i)
Next i
s1 = s1 / n
Cells(1, 3) = "Среднее значение элементов массива равно"
Cells(2, 3) = s1
For i = 1 To n
If x(i) > s1 Then s2 = s2 + x(i)
Next i
Cells(3, 3) = "Сумма элементов, больших среднего значения, равна"
Cells(4, 3) = s2
Cells(1, 5) = "Отсортированный массив"
For j = 1 To n - 1
For i = 1 To n - j
If x(i) > x(i + 1) Then
r = x(i + 1)
x(i + 1) = x(i)
x(i) = r
End If
Next: Next
For i = 1 To n
Cells(i + 1, 5) = x(i)
Next
End Sub

Последний раз редактировалось Никита222; 22.10.2017 в 21:57.
Никита222 вне форума Ответить с цитированием
Старый 22.10.2017, 19:22   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Зачем здесь писать код который не решает поставленную задачу?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 22.10.2017, 21:41   #3
ura_111
Участник клуба
 
Регистрация: 14.05.2016
Сообщений: 1,793
По умолчанию

У тебя исходный массив идёт по формуле:
Код:
(Sin(i)) ^ 2 - Cos(i)
а в задании другое написано...
Да и условие совершенно другое:
Код:
 x(i) > -0.5 And x(i) < 0.5
это ты писал программу?
ura_111 вне форума Ответить с цитированием
Старый 22.10.2017, 21:53   #4
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Зачем здесь писать код который не решает поставленную задачу?
Чтобы сразу не прогнали..
Black Fregat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
У файле нужно посчитать количество слов vova_makr Помощь студентам 3 08.10.2015 15:56
как посчитать количество xauto-pro Microsoft Office Excel 6 23.08.2015 15:18
Нужно посчитать количество ячеек orest893808 Microsoft Office Excel 1 15.02.2015 19:14
Посчитать количество Aqil_f Microsoft Office Excel 6 11.03.2014 08:51
Посчитать количество слов OPEJI Паскаль, Turbo Pascal, PascalABC.NET 5 19.05.2011 17:58