Решение задачи с динамическим массивом

@Dark_Bl00d · Регистрация: 13.04.2022

Студворк — интернет-сервис помощи студентам

Добрый день, помогите решить задачу. Как вывести новый массив? Код, который имеется:
Заранее благодарю

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
Sub nom5()
Dim Z() As Integer, N() As Integer, i As Integer, S As String, P As Integer, k As Integer, j As Integer, L As Integer
 ReDim Z(10), N(10)
 For i = 0 To 10
 Z(i) = Val(InputBox("Введите " & i & " элемент массива"))
 S = S & Z(i) & " "
 Z(i) = N(i)
 Next i
 
 
 P = Val(InputBox("Введите P"))
 i = 10
 k = i
 Do While i > 1
 If Z(i) * Z(i - 1) > 0 Then
 k = k + 1
 ReDim Z(k)
 For j = 0 To i - 1
 Z(j) = N(j)
 Next j
 Z(i) = P
 For j = i + 1 To k
 Z(j) = N(j - 1)
 Next j
 ReDim N(k)
 For j = 0 To k
 N(j) = Z(j)
 Next j
 End If
 i = i - 1
 Loop
 For i = 0 To 10
 L = L & Z(j) & " "
 Next i
 MsgBox "Задан массив: " & S & " Получен массив: " & L
 
 
End Sub

Условие задачи - "Дан массив Z(10). Вставить число Р между теми числами, которые образуют
пару с одинаковыми знаками."

I can · 23.04.2022, 15:25

Сообщение от Dark_Bl00d

которые образуют
пару

Что такое пара?

SergioJek · 23.04.2022, 15:49

I can, т.е. два соседних в массиве числа положительные. Или отрицательные. Ступор у меня возникает на моменте если соседи
-1; 0
или
0; 1
-кто из них "пара"?

Добавлено через 7 минут

Сообщение от Dark_Bl00d

"Дан массив Z(10)

Не снова так опять

Dark_Bl00d, поясните наконец, сколько членов в Вашем Z(10)? 10 или 11?

shanemac51 · 23.04.2022, 15:50

Сообщение от SergioJek

Ступор у меня возникает на моменте если соседи

а сколько пар будет в числах: 1 2 3 4 5 6 7 8 9 10

SergioJek · 23.04.2022, 15:55

shanemac51, 9-1=8. Ну если я правильно понял задачу.

Добавлено через 2 минуты
shanemac51, И в Вашем массиве 9 членов, а не 10 или 11. Ждём пояснений от уважаемой Dark_Bl00d,

@Dark_Bl00d · 23.04.2022, 15:57 **[ТС]**

В Z(10) 11 элементов. 0,1...10

SergioJek · 23.04.2022, 15:59

shanemac51, Не честно подтасовывать, не было десятки в Вашей раздаче

@Dark_Bl00d · 23.04.2022, 16:29 **[ТС]**

SergioJek, 0 не включается, он без пары

shanemac51 · 23.04.2022, 17:00

Сообщение от SergioJek

shanemac51, Не честно подтасовывать, не было десятки в Вашей раздаче

я могла бы и 8 чисел написать и 12 и 15, это программа должна проверять количество

п.с. забыла я конечно про 10-й, просто набила произвольное количество, оказалось, что 9

@Angry Old Man · 23.04.2022, 21:22

Вариант?

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
Sub exampl()
    Dim Z, P, n, k, i
    P = 777
    Z = Array(0, 1, 2, -3, -4, 5, 6, 0, 0, 9, 10)
 
    n = UBound(Z)
    ReDim Ztmp(n)
 
    k = 0
    Ztmp(0) = Z(0)
    For i = 1 To n
        Ztmp(i) = Z(i)
        If Sgn(Z(i - 1)) = Sgn(Z(i)) Then k = k + 1
    Next
 
    ReDim Z(n + k)
    k = 0
    Z(0) = Ztmp(0)
    For i = 1 To n
        If Sgn(Ztmp(i - 1)) = Sgn(Ztmp(i)) Then
            Z(i + k) = P
            k = k + 1
            Z(i + k) = Ztmp(i)
        Else
            Z(i + k) = Ztmp(i)
        End If
    Next
    MsgBox Join(Ztmp, " ") + vbCr + vbCr + Join(Z, " ")
    Erase Ztmp
End Sub

Функция Sgn(888)=1, Sgn(-888)=-1, Sgn(0)=0

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

SergioJek 428 / 333 / 61 Регистрация: 29.06.2019 Сообщений: 493
	23.04.2022, 15:55
	shanemac51, 9-1=8. Ну если я правильно понял задачу. Добавлено через 2 минуты shanemac51, И в Вашем массиве 9 членов, а не 10 или 11. Ждём пояснений от уважаемой Dark_Bl00d, 0

@Dark_Bl00d 1 / 1 / 0 Регистрация: 13.04.2022 Сообщений: 8
	23.04.2022, 15:57 [ТС]
	В Z(10) 11 элементов. 0,1...10 0

SergioJek 428 / 333 / 61 Регистрация: 29.06.2019 Сообщений: 493
	23.04.2022, 15:59
	shanemac51, Не честно подтасовывать, не было десятки в Вашей раздаче 0

@Dark_Bl00d 1 / 1 / 0 Регистрация: 13.04.2022 Сообщений: 8
	23.04.2022, 16:29 [ТС]
	SergioJek, 0 не включается, он без пары 0