SCREEN 12
LINE (320, 0)-(320, 480)
LINE (0, 240)-(640, 240)
LINE (320, 0)-(325, 10)
LINE (320, 0)-(315, 10)
LINE (640, 240)-(630, 235)
LINE (640, 240)-(630, 245)
LOCATE 1, 39: PRINT "y"
LOCATE 15, 78: PRINT "x"
LOCATE 15, 39: PRINT "0"
FOR i = 0 TO 640 STEP 10
LINE (i, 238)-(i, 242)
NEXT i
LOCATE 12, 22: PRINT "y=|x|": PRINT
FOR x = -180 TO 180 STEP .01
y = -1 * ABS(x)
PSET (x + 320, y + 240), 4
NEXT x
LOCATE 19, 1: INPUT "Задайте коэффициент k="; k
INPUT "Задайте свободный член b="; b
IF b >= 0 THEN PRINT "Сторится график функции y="; k; "*|x| +"; b ELSE PRINT "Сторится график функции y="; k; "x"; b
FOR x = -280 TO 280 STEP .01
y = -1 * (k * ABS(x) + b * 10)
PSET (x + 320, y + 240), 10
NEXT x