Вычислить корни уравнений: y=x^2-6 y=-2*(x^2)/3 на отрезке [-5;5] с точностью E=10^-3 — QBasic(Бейсик)

e = .001
FOR x = -5 TO 5 STEP .001
    y1 = x ^ 2 - 6
    y2 = -2 * (x ^ 2) / 3
    IF ABS(y1 - y2) < e THEN PRINT USING "##.###"; x
NEXT

Тестирование выполнено в программе QB64 ( Скачать )