求算法：一组数中连续6个数递增或递减

2016-05-09 03:00:22 740 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

LeetCode刷题 | Day 2 最长严格递增或递减子列表（Longest Increasing or Decreasing SubList） LeetCode位置：3105. 最长的严格递增或递减子数组日常刷题，维持手感，同步学习英语，刷题顺序参考B站UP@justyyuk的系列视频，感兴趣的点波关注。学海无涯，大路千万，感恩此程，彼此真诚陪伴！Ps：第一次刷到的道友留步，这里拉齐一下信息。文章主要记录视频中的主要内容，算法思路会按照个人理解，用伪代码+举例每步输出的方式呈现。代码部分会以Python和C++语法进行呈现。文章最后会总结一些英语词汇。OK，就啰嗦这么多，开始进步[干杯🐱‍👓] 阅读详情

求两个算法：
1、一组数中连续6个数递增或递减
例如：
1012 1002 1004 987 988 1016 970 982 990 1002 1011 1020 1015 1014 1021 1017 992 1027 1022 973 1026 991 1001 1016
其中的970 982 990 1002 1011 1020 ，即连续，又递增

2、一组数中连续5个数中有4个小于给定数的组合

求有4个数小于1000的连续的5个数
例如：
1012 1002 1004 987 988 1016 970 982 990 1002 1011 1020 1015 1014 1021 1017 992 1027 1022 973 1026 991 1001 1016
其中：987 988 1016 970 982满足该条件

一个比一个难啊，熬死我脑袋了，求各位大神救救命啊，在线急等。。。。分可商量

...全文

【企业微信自建应用-前端篇】企业微信自建应用开发流程详细介绍最近接到需求，需要我在企业微信端自建一个应用，用来接受PC端派发的工单，告警，公告等内容。这里写一个帖子汇总一下我经历的全流程开发，当然这是基础的流程啊。因为功能要求也不高。后面如果开发更多的东西再补充。阅读详情

lanhai96

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

vansoft 2016-05-13

打赏
举报

就是比大小，计数。连续大计数，计到5，就是成功。

of123 2016-05-11

打赏
举报

Dim data1()

Private Sub Command1_Click()
data1() = Array(1012, 1002, 1004, 987, 988, 1016, 970, 982, 990, 1002, 1011, 1020, 1015, 1014, 1021, 1017, 992, 1027, 1022, 973, 1026, 991, 1001, 1016)
Call Find_continuous_smaller_numbers(data1, 1000, 5)
End Sub

Private Sub Find_continuous_smaller_numbers(data() As Variant, ceiling_number As Integer, link_length As Integer)
Dim i As Integer, n As Integer, m As Integer, j As Integer

For i = 1 To UBound(data)
    If data(i) < ceiling_number Then
        n = n + 1
    Else
        m = m + 1
        If (m > 1) Then
            m = 0
            n = 0
        End If
    End If
    
    If n + m = link_length Then
        For j = n To 0 Step -1
            Debug.Print data(i - j),
        Next j
        Debug.Print
        Exit For
    End If
Next i
End Sub

987           988           1016          970           982

of123 2016-05-11

打赏
举报

Dim data1(), data2()

Private Sub Command1_Click()
data1() = Array(1012, 1002, 1004, 987, 988, 1016, 970, 982, 990, 1002, 1011, 1020, 1015, 1014, 1021, 1017, 992, 1027, 1022, 973, 1026, 991, 1001, 1016)
data2() = Array(1012, 1002, 1004, 987, 988, 1016, 1020, 1011, 1002, 990, 982, 970, 1015, 1014, 1021, 1017, 992, 1027, 1022, 973, 1026, 991, 1001, 1016)
Call Find_continuous_increasing_numbers(data1, 6)
Call Find_continuous_decreasing_numbers(data2, 6)
End Sub

Private Sub Find_continuous_increasing_numbers(data() As Variant, link_length As Integer)
Dim i As Integer, n As Integer, j As Integer

For i = 1 To UBound(data)
    If data(i) > data(i - 1) Then
        n = n + 1
    Else
        n = 0
    End If
    
    If n + 1 = link_length Then
        For j = n To 0 Step -1
            Debug.Print data(i - j),
        Next j
        Debug.Print
        Exit For
    End If
Next i
End Sub

Private Sub Find_continuous_decreasing_numbers(data() As Variant, link_length As Integer)
Dim i As Integer, n As Integer, j As Integer

For i = 1 To UBound(data)
    If data(i) < data(i - 1) Then
        n = n + 1
    Else
        n = 0
    End If
    
    If n + 1 = link_length Then
        For j = n To 0 Step -1
            Debug.Print data(i - j),
        Next j
        Debug.Print
        Exit For
    End If
Next i
End Sub

 970           982           990           1002          1011          1020         
 1020          1011          1002          990           982           970

lanhai96 2016-05-10

打赏
举报

引用 3 楼 Tiger_Zhao 的回复:

上午回答了一个帖子《一组数中找出连续14个数相邻大小交替的数》，类似的问题不会自己改啊。你需要的是一个奶妈。

不好意思，在做论文，实在太着急了，还有10个算法，还要根据数据动态画图，用c#用的多，vb很多都忘了。谢谢您给的上个算法，眼界开阔了很多，已经结贴了，分全给了，谢谢。

Tiger_Zhao 2016-05-09

打赏
举报

上午回答了一个帖子《一组数中找出连续14个数相邻大小交替的数》，类似的问题不会自己改啊。
你需要的是一个奶妈。

一如既往哈 2016-05-09

打赏
举报

用2重循环，笨法：

Sub Test1()
    ''''一组数中连续6个数递增或递减
    Dim i As Integer, lastNum As Integer, w2 As String, ww
    Dim k As Integer, S1 As String, nowNum As Integer
    ww = Array("1012", "1002", "1004", "987", "988", "1016", "970", "982", "990", "1002", "1011", "1020", "1015", "1014", "1021", "1017", "992", "1027", "1022", "973", "1026", "991", "1001", "1016")
    For i = 0 To UBound(ww) - 5
        S1 = ww(i)
        lastNum = CInt(ww(i))
        w2 = ""
        For k = i + 1 To i + 5
            S1 = S1 & "," & ww(k)
            nowNum = CInt(ww(k))
            If nowNum < lastNum Then w2 = w2 & "0"
            If nowNum > lastNum Then w2 = w2 & "1"
            lastNum = nowNum
        Next
        If w2 = "11111" Or w2 = "00000" Then
            Debug.Print S1
            Exit For
        End If
    Next
End Sub
Sub Test2()
    ''''一组数中连续5个数中有4个小于给定数的组合
    Dim i As Integer, nowNum As Integer, Target As Integer
    Dim k As Integer, n As Integer, S1 As String, ww
    ww = Array("1012", "1002", "1004", "987", "988", "1016", "970", "982", "990", "1002", "1011", "1020", "1015", "1014", "1021", "1017", "992", "1027", "1022", "973", "1026", "991", "1001", "1016")
    Target = 1000 ''指定的目标数
    For i = 0 To UBound(ww) - 4
        S1 = ww(i)
        n = 0
        If CInt(ww(i)) < Target Then n = 1
        For k = i + 1 To i + 4
            S1 = S1 & "," & ww(k)
            If CInt(ww(k)) < Target Then n = n + 1
        Next
        If n = 4 Then
            Debug.Print S1
            Exit For
        End If
    Next
End Sub

...

赵4老师 2016-05-09

打赏
举报

参考《编译原理》中的词法分析和有限状态自动机。

求算法：一组数中连续6个数递增或递减

相关推荐