Написать программу на языке QBasic, которая рисует график функции, вида на заданном интервале [k; m]

Написать программу на языке QBasic, которая рисует график функции, вида на заданном интервале [k; m]. Коэффициенты A, B, C и интервал [k; m] указаны в таблице.

A B C k m
0 1 1 -10 +10
code: #basic
SCREEN 12
WINDOW (-32, -24)-(32, 24)
  A = 0
  B = 1
  C = 1
  k = -10
  m = 10
 LINE (k, 0)-(m, 0), 8
 LINE (0, k)-(0, m), 8
 FOR u = -10 TO 10
   LINE (u, -.2)-(u, .2), 8
   LINE (-.2, u)-(.2, u), 8
 NEXT
 WHILE INKEY$ = ""
   x = RND * (m - k) + k
   y = A * x * x + B * x + C
   PSET (x, y), 10
 WEND

автор: >Quiet Snow<

Поделиться:

Похожие статьи: