VPF::[VB6]массив двумерный и одномерный

indolent

Дата 25.9.2007, 19:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 7.5.2007

Репутация: нет
Всего: нет

Помогите сделать задание:
Двумерный массив:

S K n1 n2
7 4 -80 200

Двумерный массив mas(S, K) заполнить случайными числами в диапазоне от n1 до n2
Из данного двумерного массива сформировать одномерный массив значений нечетных элементов матрицы
На экран вывести:
двумерный массив,
пояснение по формированию одномерного массива,
полученный одномерный массив

Akina

Дата 25.9.2007, 20:33 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

kapbepucm

Дата 26.9.2007, 08:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12

Код

Public Const S = 7
Public Const K = 4
Public Const n1 = -80
Public Const n2 = 200
Public Sub Test()
  Dim masSTR As String
  Dim mas(S, K) As Long
  Dim X As Long, Y As Long
  For X = 0 To S
    For Y = 0 To K
      mas(X, Y) = Int((n2 - n1 + 1) * Rnd + n1)
      masSTR = masSTR & " " & mas(X, Y)
    Next Y
    masSTR = masSTR & Chr(13) & Chr(13)
  Next X
MsgBox masSTR, vbCritical, "двумерный массив"
  Dim mas2(1 To (S + 1) * (K + 1)) As Long
  Dim mas2maxVal As Long
  mas2maxVal = 1
  For X = 0 To S
    For Y = 0 To K
      If mas(X, Y) Mod 2 <> 0 Then
        mas2(mas2maxVal) = mas(X, Y)
        mas2maxVal = mas2maxVal + 1
      End If
    Next Y
  Next X
  mas2maxVal = mas2maxVal - 1
  Dim mas2STR As String
  For X = 1 To mas2maxVal
    mas2STR = mas2STR & " " & mas2(X)
  Next X
MsgBox "Создаём mas2 максимально возможной длины ((S + 1) * (K + 1)); переменная mas2maxVal- максимальный задействованный элемент; пробегаем по всему mas и ищем нечётные числа (с помощью X mod 2); заполняем mas2", vbCritical, "пояснение по формированию одномерного массива"
MsgBox mas2STR,  vbCritical, "полученный одномерный массив"
End Sub

Это сообщение отредактировал(а) kapbepucm - 26.9.2007, 09:09

--------------------

(С) kapbepucm

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »