Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Найти среднее арифметическое / 13 сообщений из 13, страница 1 из 1
02.12.2016, 00:49
    #39359013
fantanol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти среднее арифметическое
Здравствуйте. И использованием формы требуется найти среднее арифметическое не равных нулю элементов заданного
вектора X1, X2, ..., Xn и подсчитать число элементов с неотрицательными
значениями (включая и элементы, равные нулю).
...
Рейтинг: 0 / 0
02.12.2016, 07:43
    #39359055
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти среднее арифметическое
Требуется? ну делайте...
...
Рейтинг: 0 / 0
02.12.2016, 11:13
    #39359169
Roman Mejtes
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти среднее арифметическое
Сами то, пробовали делать?
...
Рейтинг: 0 / 0
02.12.2016, 17:11
    #39359529
fantanol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти среднее арифметическое
Roman MejtesСами то, пробовали делать?
пока могу только это предложить
List<int> arr = new List<int>{ 35, 55 , -45, 0, 7, 57};
int m = 0;
float avr = 0;
int c = 0;

for (int i = 0; i < arr.Count; i++)
{
var tmp = arr[i];

if (tmp == 0) { continue; }

if (tmp > 0) { m++; }

c++;
avr += tmp;

}

avr = avr / (float)c;
...
Рейтинг: 0 / 0
02.12.2016, 17:54
    #39359582
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти среднее арифметическое
fantanolмогу только это предложить
А при чем здесь VB?
...
Рейтинг: 0 / 0
02.12.2016, 20:52
    #39359671
fantanol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти среднее арифметическое
The_Pristfantanolмогу только это предложить
А при чем здесь VB?
ну хоть набросок даже из другой среды. чтобы представлять алгоритм
...
Рейтинг: 0 / 0
02.12.2016, 21:12
    #39359680
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти среднее арифметическое
fantanol,

а, ну вот Вам этот алгоритм на VB:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub ttt()
    Dim arr(), m As Long, i As Long, tmp As Double, avr As Double
    
    arr = Array(35, 55, -45, 0, 7, 57)
    For i = 0 To UBound(arr)
        tmp = arr(i)
        If tmp > 0 Then
            m = m + 1
        End If
        avr = avr + tmp
    Next
    avr = avr / m
End Sub
...
Рейтинг: 0 / 0
02.12.2016, 21:39
    #39359687
fantanol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти среднее арифметическое
The_Pristfantanol,

а, ну вот Вам этот алгоритм на VB:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub ttt()
    Dim arr(), m As Long, i As Long, tmp As Double, avr As Double
    
    arr = Array(35, 55, -45, 0, 7, 57)
    For i = 0 To UBound(arr)
        tmp = arr(i)
        If tmp > 0 Then
            m = m + 1
        End If
        avr = avr + tmp
    Next
    avr = avr / m
End Sub



только я без понятия как с ним дальше быть,куда подставлять и т.д
...
Рейтинг: 0 / 0
02.12.2016, 22:20
    #39359705
by-pass
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти среднее арифметическое
fantanol,

Покажите преподавателю или толком объясните, что нужно-то?
...
Рейтинг: 0 / 0
02.12.2016, 22:52
    #39359718
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти среднее арифметическое
by-passПокажите преподавателю или толком объясните, что нужно-то?Покажите преподавателю, скажите, что мужики с sql.ru интересуются, что дальше-то?
...
Рейтинг: 0 / 0
02.12.2016, 23:21
    #39359739
fantanol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти среднее арифметическое
by-passfantanol,

Покажите преподавателю или толком объясните, что нужно-то?
Вот задача найти среднее арифметическое не равных нулю элементов заданного
вектора X1, X2, ..., Xn и подсчитать число элементов с неотрицательными
значениями (включая и элементы, равные нулю).

это всё нужно сделать на форме


Shocker.ProПокажите преподавателю, скажите, что мужики с sql.ru интересуются, что дальше-то?
не в моем случае)
...
Рейтинг: 0 / 0
04.12.2016, 00:12
    #39359956
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти среднее арифметическое
fantanolShocker.ProПокажите преподавателю, скажите, что мужики с sql.ru интересуются, что дальше-то?
не в моем случае)вы и есть преподаватель?
...
Рейтинг: 0 / 0
04.12.2016, 12:24
    #39360026
fantanol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти среднее арифметическое
Antonariyfantanolпропущено...

не в моем случае)вы и есть преподаватель?
в таких задачах мне не сможет помочь преподаватель
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Найти среднее арифметическое / 13 сообщений из 13, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]