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

disel
1
2
3
4
Написать программу на языке QBasic, которая рисует график функции, вида на заданном интервале [k; m]. Коэффициенты A, B, C и интервал [k; m] указаны в таблице.
 
A   B   C   k   m
0   1   1   -10 +10
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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

Похожие записи/страницы: