各位大佬帮忙看看

2019-06-07 02:13:17 208 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C语言实验——各位数字之和排序 C语言实验——各位数字之和排序题目描述给定n个正整数，根据各位数字之和从小到大进行排序。输入输入数据有多组，每组数据占一行，每行的第一个数正整数n，表示整数个数，后面接n个正整数。当n为0时，不作任何处理，输入结束。输出输出每组排序的结果。示例输入 2 1 2 3 121 10 111 0 示例输出 1 2 10 1 阅读详情

这题听说能用穷举法求解，各位大神帮忙写下代码！

...全文

输出整数各位数字输出整数各位数字本题要求编写程序，对输入的一个整数，从高位开始逐位分割并输出它的各位数字。输入格式：输入在一行中给出一个长整型范围内的非负整数。输出格式：从高位开始逐位输出该整数的各位数字，每个数字后面有一个空格。输入样例： 1234565 输出样例： 1 2 3 4 5 6 方法1：思路：先求该数字的位数，在从最高位依次输出单个数字。 #include&amp;lt;stdio.h&amp;g... 阅读详情

「已注销」

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

+ 关注 + 加入社区

切换为时间正序

eisldkw 2019-06-08

打赏
举报

这是哪个精神病患者给你出的题。

笨狗先飞 2019-06-07

打赏
举报


Public Sub Fun()
    Dim I As Integer, J As Integer, Min As Integer, Max As Integer, A(10) As Integer, S(4) As Integer
    Dim A1 As Integer, A2 As Integer, A3 As Integer, A4 As Integer, A5 As Integer, A6 As Integer, A7 As Integer, A8 As Integer, A9 As Integer, A10 As Integer
    Dim SS As String
    For A1 = 1 To 4
        A(1) = A1
        For A2 = 1 To 4
            A(2) = A2
            For A3 = 1 To 4
                A(3) = A3
                For A4 = 1 To 4
                    A(4) = A4
                    For A5 = 1 To 4
                        A(5) = A5
                        For A6 = 1 To 4
                            A(6) = A6
                            For A7 = 1 To 4
                                A(7) = A7
                                For A8 = 1 To 4
                                    A(8) = A8
                                    For A9 = 1 To 4
                                        A(9) = A9
                                        For A10 = 1 To 4
                                            A(10) = A10
                                        '第二题逻辑
                                            If Abs(A(5) - A(2)) <> 2 Then Exit For
                                        '第三题逻辑
                                            J = 0
                                            If A(3) = 1 And A(3) <> A(6) And A(3) <> A(2) And A(3) <> A(4) Then J = 1
                                            If A(3) = 2 And A(3) <> A(6) And A(6) <> A(2) And A(6) <> A(4) Then J = 1
                                            If A(3) = 3 And A(2) <> A(6) And A(3) <> A(2) And A(2) <> A(4) Then J = 1
                                            If A(3) = 4 And A(4) <> A(6) And A(4) <> A(2) And A(3) <> A(4) Then J = 1
                                            If J = 0 Then Exit For
                                        '第四题逻辑
                                            J = 0
                                            If A(4) = 1 And A(1) = A(5) And A(2) <> A(7) And A(1) <> A(9) And A(6) <> A(10) Then J = 1
                                            If A(4) = 2 And A(1) <> A(5) And A(2) = A(7) And A(1) <> A(9) And A(6) <> A(10) Then J = 1
                                            If A(4) = 3 And A(1) <> A(5) And A(2) <> A(7) And A(1) = A(9) And A(6) <> A(10) Then J = 1
                                            If A(4) = 4 And A(1) <> A(5) And A(2) <> A(7) And A(1) <> A(9) And A(6) = A(10) Then J = 1
                                            If J = 0 Then Exit For
                                        '第五题逻辑
                                            J = 0
                                            If A(5) = 1 And A(8) = 1 Then J = 1
                                            If A(5) = 2 And A(4) = 2 Then J = 1
                                            If A(5) = 3 And A(9) = 3 Then J = 1
                                            If A(5) = 4 And A(7) = 4 Then J = 1
                                            If J = 0 Then Exit For
                                        '第六题逻辑
                                            J = 0
                                            If A(6) = 1 And A(2) = A(8) And A(4) = A(8) Then J = 1
                                            If A(6) = 2 And A(1) = A(8) And A(6) = A(8) Then J = 1
                                            If A(6) = 3 And A(3) = A(8) And A(10) = A(8) Then J = 1
                                            If A(6) = 4 And A(5) = A(8) And A(9) = A(8) Then J = 1
                                            If J = 0 Then Exit For
                                        '第七题逻辑
                                            For I = 1 To 4
                                                S(I) = 0
                                            Next
                                            For I = 1 To 10
                                                S(A(I)) = S(A(I)) + 1
                                            Next
                                            '找出最小数
                                            J = 1
                                            Min = S(1)
                                            For I = 2 To 4
                                                If S(I) < Min Then
                                                    Min = S(I)
                                                    J = I
                                                End If
                                            Next
                                            If A(7) <> J Then Exit For
                                        '第八题逻辑
                                            J = 0
                                            If Abs(A(7) - A(1)) <> 1 Then J = 1
                                            If Abs(A(5) - A(1)) <> 1 Then J = 1
                                            If Abs(A(2) - A(1)) <> 1 Then J = 1
                                            If Abs(A(10) - A(1)) <> 1 Then J = 1
                                            If J = 0 Then Exit For
                                        '第九题逻辑
                                            J = 0
                                            If A(9) = 1 And ((A(1) = A(6)) Xor (A(6) = A(5))) Then J = 1
                                            If A(9) = 2 And ((A(1) = A(6)) Xor (A(10) = A(5))) Then J = 1
                                            If A(9) = 3 And ((A(1) = A(6)) Xor (A(2) = A(5))) Then J = 1
                                            If A(9) = 4 And ((A(1) = A(6)) Xor (A(9) = A(5))) Then J = 1
                                            If J = 0 Then Exit For
                                        '第十题逻辑
                                            '找出最大数
                                            Max = S(1)
                                            For I = 2 To 4
                                                If S(I) > Max Then Max = S(I)
                                            Next
                                            If (Max - Min = 3 And A(10) = 1) Or (Max - Min = 2 And A(10) = 2) Or (Max - Min = 4 And A(10) = 3) Or (Max - Min = 1 And A(10) = 4) Then
                                                SS = "答案如下：" & vbCrLf
                                                For I = 1 To 10
                                                    SS = SS & "第" & CStr(I) & "题 " & Choose(A(I), "A", "B", "C", "D") & vbCrLf
                                                Next
                                                Debug.Print SS
                                                MsgBox SS
                                            End If
                                        Next
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
End Sub

「已注销」 2019-06-07

打赏
举报

或者用其他办法，给我参考参考

各位大佬帮忙看看

相关推荐