ПОНЯТНО О Visual Basic NET (том 3)


         

в том направлении, куда ориентирована


«Если мышкой щелкнули в том направлении, куда ориентирована машина, то газуй, иначе поворачивай машину в направлении щелчка».
Недостаток приведенной процедуры в том, что после того, как машина врезалась в ограждение и финиш, она продолжает слушаться щелчков мыши. С этим можно бороться, введя дополнительное состояние машины, например, переменную «Машина_неподвижна» булевского типа.
116.
1)      a(i) = a(i-1) + 4
2)      a(i) = 2 * a(i-1)
3)      a(i) = 2 * a(i-1) - 1
117.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Число_дней As Integer = 7
        Dim t() As Integer = {0, 8, 14, 19, 22, 25, 28, 26}
        Dim i, k, s, Min, Nomer As Integer
        'Определим среднюю температуру:
        s = 0
        For i = 1 To Число_дней : s = s + t(i) : Next
        Debug.WriteLine(s / Число_дней)
        'Определим количество теплых дней:
        k = 0
        For i = 1 To Число_дней
            If t(i) > 20 Then k = k + 1
        Next
        Debug.WriteLine(k)
        'Определим, каким по порядку идет самый жаркий день:
        Min = t(1)
        Nomer = 1
        For i = 2 To Число_дней
            If t(i) > Min Then Min = t(i) : Nomer = i
        Next
        Debug.WriteLine(Nomer)
End Sub
Вот что напечатает программа:
20,2857142857143
4
6
118.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim fib(200) As Decimal
        Dim i As Integer
        fib(1) = 1 : fib(2) = 1
        For i = 3 To 139
            fib(i) = fib(i - 2) + fib(i - 1)
            Debug.WriteLine(i & "           " & fib(i))
        Next
End Sub
Последнее, 139-е распечатанное число Фибоначчи равно
50095301248058391139327916261
Следующее, 140-е, уже не умещается в тип Decimal.
119.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Содержание  Назад  Вперед





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий