Решение задачи номер 54с по книге Лукина С.Н. «Понятно о Visual Basic.NET»
Условие задачи:
Подсчитать из них количество неубывающих сочетаний, то есть таких, где каждая сле-дующая цифра не меньше предыдущей – 1123, 1223, 2222 и т.п., но не 3322. Распечатать все такие сочетания.
Решение задачи
Код vb.net
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim one, two, three, four, a, b, c, d, kolvo As Integer
one = 0
For a = 1 To 3
one += 1
two = 0
For b = 1 To 3
two += 1
If two >= one Then
three = 0
For c = 1 To 3
three += 1
If three >= two Then
If three >= one Then
four = 0
For d = 1 To 3
four = four + 1
If four >= one Then
If four >= two Then
If four >= three Then
kolvo += 1
Debug.WriteLine(kolvo & " " & one & two & three & four)
End If
End If
End If
Next
End If
End If
Next
End If
Next
Next
End Sub
End Class
Разбор кода vb.net
- Как и в предыдущей задаче вкладываем в циклы, только с условием, что цифра не может быть меньше, чем предыдущие.