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

UptoLike

ВУЗ: 

МичГАУ | Мичуринск

Составители: 

Рубрика: 

49
REM Границы области
xx1 = 1
xx2 = 200
yy1 = 1
yy2 = 150
LINE (xx1, yy1)-(xx1, yy2)
LINE (xx2, yy1)-(xx2, yy2)
LINE (xx1, yy1)-(xx2, yy1)
LINE (xx1, yy2)-(xx2, yy2)
REM Начальные координаты и скорость шарика
x = RND * (xx1 + (xx2 - xx1) / 2)
y = RND * (yy1 + (yy2 - yy1) / 2)
vx = RND * 20 - 10
vy = RND * 20 - 10
CIRCLE (x, y), 2, c
PAINT (x, y), c, c
REM Движение шарика, до тех пор пока не нажмем любую клавишу
DO
c = 1
CIRCLE (x, y), 2, c
PAINT (x, y), c, c
FOR j = 1 TO 150000
NEXT j
c = 0
CIRCLE (x, y), 2, c
PAINT (x, y), c, c
IF x < (xx1 + 5) OR x > (xx2 - 5) THEN vx = -vx
IF y < (yy1 + 6) OR y > (yy2 - 7) THEN vy = -vy
x = x + vx
y = y + vy
LOOP WHILE INKEY$ = ""
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
         REM Границы области
         xx1 = 1
         xx2 = 200
         yy1 = 1
         yy2 = 150

         LINE (xx1, yy1)-(xx1, yy2)
         LINE (xx2, yy1)-(xx2, yy2)
         LINE (xx1, yy1)-(xx2, yy1)
         LINE (xx1, yy2)-(xx2, yy2)

         REM Начальные координаты и скорость шарика
         x = RND * (xx1 + (xx2 - xx1) / 2)
         y = RND * (yy1 + (yy2 - yy1) / 2)
         vx = RND * 20 - 10
         vy = RND * 20 - 10

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

         REM Движение шарика, до тех пор пока не нажмем любую клавишу

         DO

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

         FOR j = 1 TO 150000
         NEXT j

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

         IF x < (xx1 + 5) OR x > (xx2 - 5) THEN vx = -vx
         IF y < (yy1 + 6) OR y > (yy2 - 7) THEN vy = -vy
         x = x + vx
         y = y + vy

         LOOP WHILE INKEY$ = ""



                                                                             49


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

Страницы