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

         SCREEN 1
         CLS

         DO
         SELECT CASE KeyVal$
         CASE Null$ + CHR$(UP)
         DRAW Plot$ + "C1 U2"
         CASE Null$ + CHR$(DOWN)
         DRAW Plot$ + "C1 D2"
         CASE Null$ + CHR$(LFT)
         DRAW Plot$ + "C2 L2"
         CASE Null$ + CHR$(RGHT)
         DRAW Plot$ + "C2 R2"
         CASE Null$ + CHR$(UPLFT)
         DRAW Plot$ + "C3 H2"
         CASE Null$ + CHR$(UPRGHT)
         DRAW Plot$ + "C3 E2"
         CASE Null$ + CHR$(DOWNLFT)
         DRAW Plot$ + "C3 G2"
         CASE Null$ + CHR$(DOWNRGHT)
         DRAW Plot$ + "C3 F2"
         CASE SPACEBAR
         IF Plot$ = "" THEN Plot$ = "B " ELSE Plot$ = ""
         CASE ELSE
         ' Пользователь нажал какую-то из клавиш,
         ' кроме клавиш управления (вверх, вниз, вправо, влево, пробел, выход(q))
         ' так что ничего не делаем
         END SELECT

         KeyVal$ = INKEY$

         LOOP UNTIL KeyVal$ = "q"

         END
                                      Контрольная работа
               1.Постройте три точки, которые являются вершинами равнобедрен-
         ного треугольника.
               2.Постройте главную и побочную диагонали экрана.
               3.Постройте n концентрических окружностей.
               4.Постройте 10 окружностей, расположенных случайным образом,
         пользуясь функцией RND.
               5.Составить программу, изображающую окружность в закрашенном
         прямоугольнике.

         52


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