Основные возможности Visual Basic. Макова Н.Е. - 65 стр.

         3) S = 0 : i = 2                            4) S = 0 : i = 2
            DO                                          DO
                S=S+i                                       S=S+i
                i=i+2                                       i=i+2
            LOOP WHILE i < = 50                         LOOP UNTIL i > 50
            PRINT “S =”; S                              PRINT “S =”; S

              Иногда бывает необходимо прервать цикл Do ... Loop, если
         выполняется какое-либо дополнительное условие. Это может
         быть сделано с помощью оператора Exit Do:
              Используя цикл с условием, можно организовать бесконеч-
         ный цикл. Иногда это бывает необходимо, а порой это происходит
         из-за ошибки пользователя. Для создания бесконечного цикла ус-
         ловное выражение должно быть таким, которое никогда не вы-
         полнится или выполняется всегда. Выйти из такого бесконечного
         цикла и прервать работу программы можно, нажав комбинацию
         клавиш [Ctrl+Break].

                        Упражнение 4. Физическая задача

               Если камень бросить горизонтально со 100-метровой башни
         со скоростью v = 20 м/с, то расстояние от башни до него по гори-
         зонтали s будет выражаться формулой s = vt, где t – время полета
         камня в секундах. Высота над землей h будет выражаться форму-
         лой h = 100 – 9.81t2/2. Вычислять и печатать t, s и h для t = 0, 0.2,
         0.4, 0.6 и т.д. до тех пор, пока камень не упадет на землю.
               Примерный вид программы:
               Private Sub Form_Load()
               v = 20: t = 0: h = 100: s = 0
               Do
                 s=v*t
                 h = 100 - 9.81 * t ^ 2 / 2
                 Debug.Print Format(t, "0.0"), s, Format(h, "0.000")
                 t = t + 0.2
               Loop Until h < 0
               End Sub



                                                                             65

PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com