Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.93/29: Рейтинг темы: голосов - 29, средняя оценка - 4.93
0 / 0 / 0
Регистрация: 26.12.2011
Сообщений: 3
1

Сформировать двумерный массив. Добавить в него строку и столбец с заданным номером

26.12.2011, 15:56. Показов 5906. Ответов 1
Метки нет (Все метки)

Ребятаа,помогите пожалуйста хоть с чем-нибудь.
1.Сформировать двумерный массив. Добавить в него строку и столбец с заданным номером.

2.Массив В(20) заполнить целыми случайными числами из диапазона от -100 до 100. Найти максимальный МАХ элемент среди отрицательных значений В, а также его индекс М. Определить количество страдательных значений N в массиве В. Вывести В, МАХ, М, N.

3.Написать функцию, которая находит количество дней, прошедших между двумя датами (параметрами функции являются даты в формате «дд.мм.гг».

4.Матрицу R(8, 7) заполнить целыми случайными числами в диапазоне от -108 до 104. Построить строку-маску М(8) таким образом, что М(I) = 0, если количество положительных элементов в первой строке матрицы R больше, чем количество отрицательных, и М(I) = 1 в противоположном случае. Матрицу R и строку М вывести.

заранее большое спасибо!!

Добавлено через 23 минуты
ну пожалуйстаааа...срочно-срочно надо
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2011, 15:56
Ответы с готовыми решениями:

Сформировать двумерный массив. Добавить в него строку и столбец с заданным номером
1.Сформировать двумерный массив. Добавить в него строку и столбец с заданным номером.Правила 4.4....

Сформировать двумерный массив.Удалить из него столбец с заданным номером
Сформировать двумерный массив.Удалить из него столбец с заданным номером

Сформировать двумерный массив. Удалить из него строку с заданным номером
5. Сформировать двумерный массив. Удалить из него строку с заданным номером;

Сформировать двумерный массив. Добавить в него строку и столбец с заданным номером
2. Сформировать двумерный массив. Добавить в него строку и столбец с заданным номером.

1
1300 / 402 / 22
Регистрация: 21.10.2011
Сообщений: 1,285
27.12.2011, 15:05 2
По первому вопросу, по первому вопросу: Сформировать двумерный массив.
На листе Excel нужно в диапазоне A1: D5 записать целые числа.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Процедура1()
    'Двумерный массив можно мысленно представить как таблицу,
    'состоящую из строк и столбцов.
    'Long - означает, что в массиве могут быть только целые числа (в нашем случае
    'это числа из книги Excel).
    Dim Массив() As Long
    'i - это переменная, которая понадобиться нам в ходе работы.
    'Переменная - это поименованная область в оперативной памяти компьютера.
    'То же касается и переменной j.
    Dim i As Long, j As Long
    'Прежде чем с массивом можно работать нужно указать его размер. Раз в задании
    'не указано, сколько должно быть строк и столбцов в массиве, то я придумаю сам.
    'Наш массив будет состоять из 5 строк и 4 столбцов.
    'С помощью ReDim указываем размер массива. По умолчанию порядковый номер
    'первого элемента массива равен нулю, что неудобно непрограммистам, поэтому
    'с помощью 1 To - сделаем порядковый номер первого элемента массива - один.
    ReDim Массив(1 To 5, 1 To 4)
    'Заполняем массив данными из книги Excel. Это первое задание в первом вопросе:
    'Сформировать двумерный массив.
    'For ... To ... Step - называется циклом (некоторые ещё называют это итерацией)
    'и используется для выполнения одного и того же действия определённое количество раз.
    For i = 1 To 5 Step 1
        For j = 1 To 4 Step 1
            Массив(i, j) = Cells(i, j).Value
        Next j
    Next i
End Sub

Цитата Сообщение от АленаКиселева Посмотреть сообщение
1.Сформировать двумерный массив. Добавить в него строку и столбец с заданным номером.
уточните у преподавателя: нужно новый массив создавать или умудриться добавить столбец и строку в уже существующий?

По второму заданию.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Процедура1()
    'Double - означает, что в массиве могут быть только числа
    'как отрицательные, так и неотрицательные
    Dim B(1 To 20) As Double
    Dim i As Long
    Dim MAX As Double, M As Long, N As Long
    'Заполнение массива случайными числам от -100 до +100.
    For i = 1 To 20 Step 1
        B(i) = (100 - (-100) + 1) * Rnd + (-100)
        'И для наглядности выводим наш массив в книгу Excel в первый столбец.
        Cells(i, 1).Value = B(i)
    Next i
    'Определение максимального отрицательно числа.
    'Сначала находим первый отрицательный элемент и от него будем
    'отталкиваться, чтобы определить максимальный отрицательный элемент.
    For i = 1 To 20 Step 1
        'Если элемент массива меньше нуля - значит он отрицательный -
        'то заносим его в переменную MAX, а его порядковый номер
        'заносим в переменную M.
        If B(i) < 0 Then
            MAX = B(i)
            M = i
            'И выходим из цикла, не просматривая остальные элементы массива,
            'т.к. нашей задачей было найти первый отрицательный элемент.
            Exit For
        End If
    Next i
    'Теперь собственно и определяем MAX отрицательный элемент, сравнивая
    'каждый отрицательный элемент с числом, находящимся в переменной MAX.
    For i = 1 To 20 Step 1
        'Если элемент меньше нуля и больше числа, находящегося в переменной MAX, то
        If B(i) < 0 And B(i) > MAX Then
            'заносим число из этого элемента в переменную MAX,
            'а порядковый номер этого элемента заносим в переменную M.
            MAX = B(i)
            M = i
        End If
    Next i
    'Теперь выводим для наглядности максимальный отрицательный элемент
    'и его порядковый номер в книгу Excel справа от нашего массива B.
    Cells(1, 2).Value = MAX
    Cells(2, 2).Value = M
End Sub

Цитата Сообщение от АленаКиселева Посмотреть сообщение
2..........Определить количество страдательных значений N в массиве В. Вывести В, МАХ, М, N.
что подразумевается под страдательными значениями?

По третьему вопросу:
Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub Main()
    Dim dateДата1 As Date, dateДата2 As Date
    dateДата1 = Format(InputBox("Введите первую дату."), "dd.mm.yy")
    dateДата2 = InputBox("Введите вторую дату.", "dd.mm.yy")
    MsgBox "Между двумя датами (дней): " & Функция1(dateДата1, dateДата2)
End Sub
 
Function Функция1(dateДата1 As Date, dateДата2 As Date) As Long
    Функция1 = DateDiff("d", dateДата1, dateДата2)
End Function

Цитата Сообщение от АленаКиселева Посмотреть сообщение
4.........что М(I) = 0
а что означает в скобках I?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2011, 15:05

Сформировать двумерный массив. Добавить в него строку и столбец с заданным номером
Сформировать двумерный массив. Добавить в него строку и столбец с заданным номером. Помогите...

Сформировать двумерный массив. Добавить в него столбец с заданным номером
4. Сформировать двумерный массив. Добавить в него столбец с заданным номером. Помогите пожалуйста(

Сформировать двумерный массив. Добавить в него столбец с заданным номером
Сформировать двумерный массив. Добавить в него столбец с заданным номером;

Сформировать двумерный массив. Добавить в него столбец с заданным номером
Код есть и он работает, но это задание нужно сделать с использованием указателей, что я не смог...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru