Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/10: Рейтинг темы: голосов - 10, средняя оценка - 4.60
YLek
0 / 0 / 0
Регистрация: 27.07.2011
Сообщений: 2
1

Сформировать и вывести построчно двумерный массив х размерностью 4*4 случайных целых чисел из интервала [–100, 100]

30.07.2011, 23:55. Просмотров 1863. Ответов 2
Метки нет (Все метки)

Задачка очень легкая,но не могу с ней справится,очень редко сталкиваюсь с VBA
Сформировать и вывести построчно двумерный массив х размерностью 4*4 случайных целых чисел из интервала [–100, 100] Дополнительно получить и вывести значения сумм абсолютных величин элементов в каждом столбце массива х и номер столбца с минимальной суммой.Помогите кто-нибудь плиз,буду очень благодарна.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.07.2011, 23:55
Ответы с готовыми решениями:

Сформировать массив 100 целых случайных чисел в диапазоне от 0 до 100. Напечатать его. Все числа больше 30, но меньше 70 переписать в начало массива
Сформировать массив 100 целых случайных чисел в диапазоне от 0 до 100. Напечатать его. Все числа...

Сформировать массив 100 целых случайных чисел
Сформировать массив 100 целых случайных чисел в диапазоне от 0 до 9. Напечатать его. Найти и...

Сформировать массив 100 целых случайных чисел в диапазоне от 0 до 9
Сформировать массив 100 целых случайных чисел в диапазоне от 0 до 9. Напечатать его. Найти и...

Сформировать одномерный массив из 50 случайных целых чисел в диапазоне от 1 до 100.
Сформировать одномерный массив из 50 случайных целых чисел в диапазоне от 1 до 100. Результат...

Сформировать массив целых чисел из диапазона 1-100 генератором случайных чисел
Помогите написать программу: Сформировать массив целых чисел из диапазона 1-100 генератором...

2
Masalov
22 / 5 / 1
Регистрация: 05.09.2010
Сообщений: 370
31.07.2011, 07:26 2
Johny Walker вот здесь http://relib.com/forums/topic.asp?id=864539
привел пример функции получения случайного числа из заданного интервала. Воспользуемся ей
Код
Function xxx(a As Integer, b As Integer) As Integer
  Randomize
  xxx = Int((b - a) * Rnd() + a)
End Function
Sub Массив()
  Dim x()
  ReDim x(4, 4)
  Range(Cells(1, 1), Cells(8, 4)).ClearContents ' почистил место
  For j = 1 To 4
    Cells(1, j) = 'колонка ' & j
    For i = 1 To 4
      x(j, i) = xxx(100, -100)  ' заполнить массив
      Cells(i + 1, j) = x(j, i) ' Вывести массив
    Next
  Next
  mini = 0
  k = 1      ' колонка с минимумом
  For i = 1 To 4:  mini = mini + Abs(x(1, i)):  Next
  Cells(7, 1) = mini
  For j = 2 To 4
    minj = 0
    For i = 1 To 4:  minj = minj + Abs(x(j, i)):  Next
    Cells(7, j) = minj
    If minj < mini Then
      k = j
      mini = minj
    End If
  Next
  Cells(8, k) = 'минимум'
End Sub
Код можно сократить (объединив заполнение и вывод), но преподаватели любят последовательность действий...
0
YLek
0 / 0 / 0
Регистрация: 27.07.2011
Сообщений: 2
02.08.2011, 23:12 3
Спасибо огромное,с задачей всё в порядке,преподаватель принял,без вашей помощи,я бы точно её не написала,ещё раз большое спасибо.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.08.2011, 23:12

Генерировать и вывести на экран массив с целого числа n случайных чисел от -100 до 100
Генерировать и вывести на экран массив с целого числа n случайных чисел от -100 до 100. Число n...

Сформировать и вывести массив из 50 целых чисел в пределах от 50 до 100
Сформировать и вывести массив из 50 целых чисел в пределах от 50 до 100, представляющий собой...

Ввести матрицу размерностью 5x5, состоящую их целых чисел в промежутке от —100 до +100. В каждой строке поменять местами наибольший и наименьший элеме
Ввести матрицу размерностью 5x5, состоящую их целых чисел в промежутке от —100 до +100. В каждой...


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

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

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