VBNet - Форум - Задачка на массив

Вопрос: Задачка на массив Добавлено: 23.04.10 21:48

Автор вопроса: Jus | ICQ: 398783562

Помогите с задачкой пожалуйста:
Сформировать и вывести построчно двумерный массив X размерностью 4х4 случайных чисел из интервала [-100, 100] по формуле Хij = 100*(2*E-1), где Е - случайное число, ранвомерно распределенное в интервале [0, 1].
Дополнительно получить и вывести значения сумм абсолютных велечин элементов в каждой строке массива Х и номер строки с максимальной суммой.
Ответить

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

Номер ответа: 1 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #1	Добавлено: 23.04.10 21:53
	извини на этот раз не могу помочь Ответить

Номер ответа: 2 Автор ответа: Jus ICQ: 398783562 Вопросов: 7 Ответов: 47	Профиль \| \| #2	Добавлено: 23.04.10 23:13
	VbStarter эх, может кто нито другой подскажит...друг попросил помочь с задачкой по ивт ему, а я чет посидел поделал...не че не получаеться блин Ответить

Номер ответа: 3 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #3	Добавлено: 23.04.10 23:15
	Что-то типа этого Option Base 1 'Чтоб без вопросов. Объявляем, что нуменация в массивах с 1 Dim X(4,4) 'Объявляем массив чисел Dim Sum(4) 'Массив сумм Dim N 'Номер строки, в которой сумма наибольшая Sub Main() 'Начало подпрограммы Randomize 'Говорим, что будем юзать случайные числа, и даем VB команду соориентироваться и подготовиться '1. Заполняем массив For i = 1 To 4 'Для каждого i от 1 до 4 For j = 1 To 4 'Перебираем j от 1 до 4 X(i,j)=100(2Rnd()-1) 'Rnd() - это функция, которая возвращает случайное число от 0 до 1 Next Next '2. Вычисляем суммы For i = 1 To 4 'Для каждого i от 1 до 4 For j = 1 To 4 'Перебираем j от 1 до 4 Sum(i) = Sum(i) + Abs(X(i,j)) Next Next '3. Находим максимальную сумму N = 1 'Предположим, что максимальная сумма у строки 1 For i = 2 To 4 If Sum(i) > Sum(N) Then 'Если очередная сумма больше предполагаемой N = i 'То предполагаем, что эта очередная сумма и есть самая большая End If 'Смекнули? Next 'Вот. '4. Получаем ' X(i,j) - массив чисел ' Sum(i) - массив сумм строк ' N - номер строки с наибольшей суммой '5. ??????? '6. Profit! '7. Смекаешь? End Sub 'Конец подпрограммы Ответить

Номер ответа: 4 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #4	Добавлено: 24.04.10 13:37
	ну вот. помогли. Ответить

Номер ответа: 5 Автор ответа: Jus ICQ: 398783562 Вопросов: 7 Ответов: 47	Профиль \| \| #5	Добавлено: 24.04.10 16:40
	V??U??t спасибо большое! Ответить

Номер ответа: 6 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #6	Добавлено: 24.04.10 16:45
	VβÐUηìt респект. знает всё Ответить

Страница: 1 |