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

UptoLike

ВУЗ: 

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

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

Рубрика: 

44
REM Ведро
LINE (x - 30, y - r - 2 * (r - 20) + 10)-(x + 30, y - r - 2 * (r - 20) + 10), c2
LINE (x - 15, y - r - 2 * (r - 20) - 30)-(x + 15, y - r - 2 * (r - 20) - 30), c2
LINE (x - 30, y - r - 2 * (r - 20) + 10)-(x - 15, y - r - 2 * (r - 20) - 30), c2
LINE (x + 15, y - r - 2 * (r - 20) - 30)-(x + 30, y - r - 2 * (r - 20) + 10), c2
PAINT (x, y - r - 2 * (r - 20)), c2, c2
REM Пуговицы
FOR i = 1 TO 5
CIRCLE (x, y - r + 30 * i), 3, c3
PAINT (x, y - r + 30 * i), c4, c3
NEXT
END
Результат работы программы:
Пример: построение графика функции.
FUNCTION F (x)
F = x * x
END FUNCTION
REM ГРАФИК ФУНКЦИИ
SCREEN 12
REM Строим оси
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
         REM Ведро
         LINE (x - 30, y - r - 2 * (r - 20) + 10)-(x + 30, y - r - 2 * (r - 20) + 10), c2
         LINE (x - 15, y - r - 2 * (r - 20) - 30)-(x + 15, y - r - 2 * (r - 20) - 30), c2
         LINE (x - 30, y - r - 2 * (r - 20) + 10)-(x - 15, y - r - 2 * (r - 20) - 30), c2
         LINE (x + 15, y - r - 2 * (r - 20) - 30)-(x + 30, y - r - 2 * (r - 20) + 10), c2
         PAINT (x, y - r - 2 * (r - 20)), c2, c2

         REM Пуговицы
         FOR i = 1 TO 5
         CIRCLE (x, y - r + 30 * i), 3, c3
         PAINT (x, y - r + 30 * i), c4, c3
         NEXT

         END

                                   Результат работы программы:




             Пример: построение графика функции.
         FUNCTION F (x)
         F=x*x
         END FUNCTION

         REM ГРАФИК ФУНКЦИИ
         SCREEN 12
         REM Строим оси

         44


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

Страницы