Question

Построить график функции в QBasic? y=ax+b a=3,b=1
вот программа,но надо составить немного проще...без клеточек.
20 SCREEN 12

30 VIEW (10, 10)-(300, 300), , 3

40 WINDOW (-10, 10)-(10, -10)

50 FOR x = -10 TO 10

60 LINE (x,
-10)-(x, 10), 7

70 LINE (-10,
x)-(10, x), 7

80 NEXT x

90 LINE (-10, 0)-(10, 0), 5

100 LINE (0, -10)-(0, 10), 5

101 FOR x = -10 TO 10 STEP 0.1

102 PSET (x, 3*x +1), 10

103 NEXT x

104 END

Answer 1

SCREEN 12
VIEW (10, 10)-(300, 300), , 3
WINDOW (-10, 10)-(10, -10)
LINE (-10, 0)-(10, 0), 5
LINE (0, -10)-(0, 10), 5
FOR x = -10 TO 10 STEP 0.01
    PSET (x, 3 * x + 1), 10
NEXT x
END