Подпрограмма, получает на входе одномерный массив дат

@Denis6131 · Регистрация: 11.04.2011

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

Помогите плиз в написание подпрограммы, которая получает на входе одномерный массив дат. Также необходимо, чтобы подпрограмма определяла самую длинную неубывающую последовательность элементов массива. И в качестве результата возвращала бы длину последовательности и индекс первого элемента в этой последовательностиО_о

@all_angarsk · 25.06.2011, 12:38

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
04.09.1999
04.12.1998
05.03.1998
04.06.1997
03.09.1996
04.12.1995
02.12.2001
03.12.2001
04.12.2001
05.03.2001
04.06.2000
05.03.1995
04.06.1994
03.09.1993
03.12.1992
04.03.1992

тякая последвательность подайдет

@Gibboustooth · 25.06.2011, 17:09

Код

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
Sub ArrAnalyze(dtArr() As Date)
  Dim i, j As Long
  Dim lTmpID As Long
  Dim lTmpLength As Long
 
  lMaxLength = 0
  lFirstId = 0
  
  For i = LBound(dtArr) To UBound(dtArr)
    lTmpID = i
    lTmpLength = 1
    'Ищем длину последовательности
    For j = i To UBound(dtArr) - 1
      If dtArr(j + 1) >= dtArr(j) Then
        lTmpLength = lTmpLength + 1
      Else
        Exit For
      End If
    Next j
    'Проверяем, не нашли ли мы более длинную последовательность
    If lTmpLength > lMaxLength Then
      lFirstId = lTmpID
      lMaxLength = lTmpLength
    End If
    'Переходим к последнему элементу найденной последовательности, чтобы не проверять ее частию
    i = j
  Next i
End Sub

@all_angarsk · 26.06.2011, 05:10

Gibboustooth

не нашел вывода данных и ввода входных данных. Это так задумывал? Или подправь

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
Dim dtArr(18) As Date
Private Sub CommandButton1_Click()
For i = 1 To 16
  dtArr(i) = Cells(i + 3, 2)
  Next
  Call ArrAnalyze(dtArr)
End Sub
Sub ArrAnalyze(dtArr() As Date)
  Dim i, j As Long
  Dim lTmpID As Long
  Dim lTmpLength As Long
 
  lMaxLength = 0
  lFirstId = 0
  
  For i = LBound(dtArr) To UBound(dtArr)
    lTmpID = i
    lTmpLength = 1
    'Ищем длину последовательности
    For j = i To UBound(dtArr) - 1
      If dtArr(j + 1) >= dtArr(j) Then
        lTmpLength = lTmpLength + 1
      Else
        Exit For
      End If
    Next j
    'Проверяем, не нашли ли мы более длинную последовательность
    If lTmpLength > lMaxLength Then
      lFirstId = lTmpID
      lMaxLength = lTmpLength
    End If
    'Переходим к последнему элементу найденной последовательности, чтобы не проверять ее частию
    i = j
  Next i
  For i = 1 To 16
 Cells(i + 3, 4) = dtArr(i)
  Next
  Cells(4, 6) = "lMaxLength = " & lMaxLength
  Cells(5, 6) = "lFirstId = " & lFirstId
End Sub

результат по массиву выше

@Gibboustooth · 26.06.2011, 12:06

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

не нашел вывода данных и ввода входных данных. Это так задумывал? Или подправь

Так и задумывал. Человеку нужна подпрограмма - я ему привел подпрограмму. Какие данные он туда передает и что делает с полученными - это уже его дело.

Когда тестил я само собой написал ввод/вывод данных.

@Denis6131 · 29.06.2011, 00:06 **[ТС]**

Огромное всем спасибо!!! Куда тут жать чтобы отметить свое "спасибо"?

Откуда данные получены не важно, требуется что-то типа этого Public Sub massiv(ByVal MaxDate() As Date) As Date

@Busine2009 · 29.06.2011, 05:14

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

Dim i, j As Long

только переменная j имеет тип данных Long. Переменная i имеет тип Variant (в любом самоучителе есть раздел по переменным, где можно это прочитать (просто чтобы здесь не обсуждать здесь это)).

@all_angarsk · 29.06.2011, 06:13

В литературе я встречал запись Dim i, j As Long пояснением что все переменные Long.
Когда делал сам и проверял. Всегда получается: переменная j имеет тип данных Long, переменная i имеет тип Varian.

@Busine2009 · 29.06.2011, 06:21

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

В литературе я встречал запись Dim i, j As Long пояснением что все переменные Long.

в самоучителях или на страницах интернета (в интернете может быть всё, что угодно написано)?

Чтобы посмотреть тип данных переменных: View - Locals Window. Откроется пустая область. Далее запускайте выполнение указанных ниже кодов с помощью клавиши F8 и смотрите типы данных.

Visual Basic
1
2
3
Sub P1()
Dim i, j As Long
End Sub

Visual Basic
1
2
3
Sub P2()
Dim i As Long, j As Long
End Sub

@all_angarsk · 29.06.2011, 10:11

хороший способ View - Locals Window.
я делал длиннее через функцию.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Denis6131 0 / 0 / 0 Регистрация: 11.04.2011 Сообщений: 10

	Подпрограмма, получает на входе одномерный массив дат 25.06.2011, 11:15. Показов 1425. Ответов 9 Метки нет (Все метки) Помогите плиз в написание подпрограммы, которая получает на входе одномерный массив дат. Также необходимо, чтобы подпрограмма определяла самую длинную неубывающую последовательность элементов массива. И в качестве результата возвращала бы длину последовательности и индекс первого элемента в этой последовательностиО_о 0

@Denis6131 0 / 0 / 0 Регистрация: 11.04.2011 Сообщений: 10
	29.06.2011, 00:06 [ТС]
	Огромное всем спасибо!!! Куда тут жать чтобы отметить свое "спасибо"? Откуда данные получены не важно, требуется что-то типа этого Public Sub massiv(ByVal MaxDate() As Date) As Date 0

@all_angarsk 763 / 270 / 57 Регистрация: 13.12.2009 Сообщений: 1,110
	29.06.2011, 06:13
	В литературе я встречал запись Dim i, j As Long пояснением что все переменные Long. Когда делал сам и проверял. Всегда получается: переменная j имеет тип данных Long, переменная i имеет тип Varian. 0

@all_angarsk 763 / 270 / 57 Регистрация: 13.12.2009 Сообщений: 1,110
	29.06.2011, 10:11
	хороший способ View - Locals Window. я делал длиннее через функцию. 0