powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Найти среднее арифметическое
13 сообщений из 13, страница 1 из 1
Найти среднее арифметическое
    #39359013
fantanol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте. И использованием формы требуется найти среднее арифметическое не равных нулю элементов заданного
вектора X1, X2, ..., Xn и подсчитать число элементов с неотрицательными
значениями (включая и элементы, равные нулю).
...
Рейтинг: 0 / 0
Найти среднее арифметическое
    #39359055
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Требуется? ну делайте...
...
Рейтинг: 0 / 0
Найти среднее арифметическое
    #39359169
Roman Mejtes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сами то, пробовали делать?
...
Рейтинг: 0 / 0
Найти среднее арифметическое
    #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
Найти среднее арифметическое
    #39359582
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
fantanolмогу только это предложить
А при чем здесь VB?
...
Рейтинг: 0 / 0
Найти среднее арифметическое
    #39359671
fantanol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
The_Pristfantanolмогу только это предложить
А при чем здесь VB?
ну хоть набросок даже из другой среды. чтобы представлять алгоритм
...
Рейтинг: 0 / 0
Найти среднее арифметическое
    #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
Найти среднее арифметическое
    #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
Найти среднее арифметическое
    #39359705
Фотография by-pass
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
fantanol,

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

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

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


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

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


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