Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 3
Регистрация: 20.11.2011
Сообщений: 22
1

Найти в каждом столбце количество элементов, меньших среднего арифметического значения всех элементов

14.12.2011, 19:40. Просмотров 1579. Ответов 2
Метки нет (Все метки)

Помогите, пожалуйста.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2011, 19:40
Ответы с готовыми решениями:

В каждой строке матрицы найти количество элементов,меньших среднего арифметического всех элементов этой строки
2) Дана матрица размера MxN. В каждой ее строке найти количество элементов,меньших среднего...

В каждой строке и столбце найти количество элементов, больших и меньших среднего арифметического всех элементов этой строки и столбца.
решите пожалуйста задачу, очень надо, у самой не получается.. задача: Дана матрица размера 5 х...

В каждом столбце матрицы найти количество элементов, больших среднего арифметического всех элементов столбца
Дана матрица размера MxN. В каждом ее столбце найти кол-во эл-ов, больших среднего арифмитического...

В каждом её столбце найти количество элементов, больших среднего арифметического всех элементов этого столбца
Доброго времени суток! Дана матрица размера M × N. В каждом её столбце найти количество...

2
161 / 17 / 2
Регистрация: 14.07.2011
Сообщений: 74
15.12.2011, 11:33 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Q()
 
Dim UserRange As Range
Dim wb As Workbook
 
Prompt = "выбор диапазона"
Title = "выбор диапазона"
 
Set wb = ActiveWorkbook
'отображение окна ввода данных
' выделяем диапазон для обработки
On Error Resume Next
Set UserRange = Range("A1").CurrentRegion
Set UserRange = Application.InputBox( _
  Prompt:=Prompt, _
  Title:=Title, _
  Default:=ActiveCell.Address, _
  Type:=8)
  UserRange.SelectionChange
On Error GoTo 0
 
' нахождение среднего
For Each j In UserRange
    i = i + 1
    A = A + j
Next j
 
SredZnach = A / i
 
 
' условие поиска необходимых значений
For Each j In UserRange
 
 If j < SredZnach Then
    MsgBox "Значение которое меньше среднего" & " " & j & " " & "Адрес ячейки" & " " & j.Address
 End If
 
Next j
 
 
End Sub
0
11136 / 3523 / 620
Регистрация: 13.02.2009
Сообщений: 10,502
15.12.2011, 16:03 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Составьте функцию, которая находит в каждом столбце диапазона количество элементов, меньших среднего арифметического значения всех элементов диапазона
Я бы сказал, что это решение не верно в корне:
Процедура Function представляет собой последовательность инструкций языка Visual Basic, ограниченных инструкциями Function и End Function. Процедура Function подобна процедуре Sub, однако в отличие от последней она возвращает значения.
1. это не функция
2. процедура просто сообщает адреса, но не выполняет задания:
...которая находит в каждом столбце диапазона количество элементов....
Добавлено через 16 минут
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function количество_элементов(ByVal Массив As Range)
Dim R, C
Dim M()
ReDim M(1 To Массив.Columns.Count)
For Each j In Массив.Cells
    i = i + 1
    A = A + j
Next j
SredZnach = A / i
For C = 1 To Массив.Columns.Count
    For R = 1 To Массив.Rows.Count
        If Массив(R, C).Value < SredZnach Then M(C) = M(C) + 1
    Next R
Next C
количество_элементов = M
End Function
Пользовательская функция.
Вводить как формулу массива.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2011, 16:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

В каждом столбце матрицы найти количество элементов, больших среднего арифметического всех элементов столбца
Дана матрица размера 5х5. В каждом её столбце найти количество элементов, больших среднего...

В каждом её столбце найти количество элементов, больших среднего арифметического всех элементов этого столбца
Помогите пожалуйста 2 задачки написать, завтра зачёт сдавать надо уже:( Заранее спасибо! 1) Дана...

В каждом столбце матрицы найти количество элементов, больших среднего арифметического всех элементов этого столбца
Данная матрица размера М × N. В каждом ее столбце найти количество элементов, больших среднего...

В каждом столбце матрицы найти количество элементов, больших среднего арифметического всех элементов этого столбца
Дана матрица размера M на N. В каждом ее столбце найти количество элементов, больших среднего...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.