VBNet - Форум - ПОМОГИТЕ ЗАДАЧКУ РЕШИТЬ!!!!

Вопрос: ПОМОГИТЕ ЗАДАЧКУ РЕШИТЬ!!!! Добавлено: 20.01.03 22:31

Автор вопроса: Путин

Люди добрые! Второй раз завалила училка в институте Помогите!! Я полный валенок. Задачка такая: "Найти сумму, среднее значение, max и min значение элементов двумерного массива. Положительные элементы этого массива вывести на экран." П О М О Г И Т Е !!!!!

Ответить

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

Номер ответа: 1
Автор ответа:

gasoft

Вопросов: 0
Ответов: 24

Профиль | | #1

Добавлено: 21.01.03 10:36

Dim arr(100, 100) As Integer ' исходный массив
Min = arr(1, 1)
Max = arr(1, 1)
Sum = 0
For i = 1 To 100
For j = 1 To 100
Sum = Sum + arr(i, j)
If Min > arr(i, j) Then Min = arr(i, j)
If Max < arr(i, j) Then Max = arr(i, j)
If arr(i, j) > 0 Then Print arr(i, j) 'выводит положительное значение сам выбери куда
Next
Next
sredn = Sum / (100 * 100) '<-размерность массива. Вычисление среднего

'Min - минимальное значение
'Max - максимальное значение
'Sum - сумма
'Sredn - среднее

Ответить

Номер ответа: 2
Автор ответа:

Artificial Intelligence

ICQ: 275368971

Вопросов: 8
Ответов: 131

Профиль | | #2

Добавлено: 21.01.03 11:26

Эх, куда мир катится? Какие программисты идут нам на смену?

Я полный валенок

Ладно, пишу упрщено.

1. Сумма

For i = 1 To кол-во элементов по х

For j = 1 To кол-во элементов по у

Сумма = Сумма + Массив(i, j)

Next j

Next i

2. Среднее

Среднее = Сумма / (кол-во элементов по х + кол-во элементов по у)

3. Мин Макс

max = Массив(1, 1)

min = Массив(1, 1)

For i = 1 To кол-во элементов по х

For j = 1 To кол-во элементов по у

If Массив(i, j) > max Then

max = Массив(i, j)

ElseIf Массив(i, j) < min Then

min = Массив(i, j)

End If

Next j

Next i

4. Вывод положительных элеиентов

For i = 1 To кол-во элементов по х

For j = 1 To кол-во элементов по у

If Массив(i, j) > 0 Then

выводиш Массив(i, j)

End If

Next j

Next i

Ответить

Номер ответа: 3
Автор ответа:

Artificial Intelligence

ICQ: 275368971

Вопросов: 8
Ответов: 131

Профиль | | #3

Добавлено: 21.01.03 11:44

Ой, извинтиляюсь уважаемый gasoft.

У меня чтото заглючило: я и не видел что ты уже ответил.

И за ошибку в п.2 тоже извинтиляюсь.

Ответить

Номер ответа: 4
Автор ответа:

Millenium

ICQ: 629966

Вопросов: 118
Ответов: 903

Web-сайт: www.aliyev.us
Профиль | | #4

Добавлено: 21.01.03 16:20

Пишы на азике отвечу

Я русскую математику ни-ни... то есть учился на другом языке...
Но на Енглш можеш написать вопрос...
Когда над одним проектом работали с Канадцами изучил Матиматику на английском...

Ответить

Номер ответа: 5
Автор ответа:

User Unknown

Вечный Юзер!

ICQ: uu@jabber.cz

Вопросов: 120
Ответов: 3302

Профиль | | #5

Добавлено: 22.01.03 10:32

А рисуешь ты на каком языке?))

Ответить

Номер ответа: 6
Автор ответа:

gasoft

Вопросов: 0
Ответов: 24

Профиль | | #6

Добавлено: 22.01.03 10:41

По-моему г-н.Millenium какой-то пальцем деланый мудак. Ты тему то читал ? Научитсь вначале по РУССКИ говорить. Со своими можешь, как ты сам выразился "на азике" болтать.

Ответить

Номер ответа: 7
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #7

Добавлено: 23.01.03 05:23

А у меня сестра в школе математику на украинском учит.

Блин, тут хоть бы на родном языке понять (я имею ввиду в школьном возрасте).

Ответить

Страница: 1 |