Програмирование на языке Basic. Федоряка Н.И. - 48 стр.

         REM задержка
         FOR j = 1 TO 250000
         NEXT j
               Пример 2: Усложним траекторию движения. Пусть шарик прыгает
         по поверхности, а когда поверхность закончится - упадет вниз.
         REM Прыгающий шарик
         SCREEN 1
         x=1
         y = 100

         REM поверхность
         LINE (0, y + 20)-(220, y + 20)

         FOR i = 1 TO 140

         c=1
         CIRCLE (x, y), 2, c
         PAINT (x, y), c, c

         FOR j = 1 TO 250000
         NEXT j

         c=0
         CIRCLE (x, y), 2, c
         PAINT (x, y), c, c

         x=x+2
         IF i < 115 THEN
         y = y + 10 * COS(.5 * i)
         ELSE
         y=y+4
         SOUND 200, 1
         END IF

         NEXT i

         LOCATE 10, 15: PRINT "GAME OVER :)"
         END
              Пример 3: Шарик, заключенный в прямоугольную область. При ка-
         сании границ отскакивает обратно.
              REM Шарик, заключенный в прямоугольную область
         SCREEN 1


         48


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