MS DOS QBasic 1.0
FOR x = -4 TO 4 STEP .5
PRINT x, x ^ 2 - 2 * x + 5
NEXT x
Результат
Y:\qbasic>QBASIC.EXE
-4 29
-3.5 24.25
-3 20
-2.5 16.25
-2 13
-1.5 10.25
-1 8
-.5 6.25
0 5
.5 4.25
1 4
1.5 4.25
2 5
2.5 6.25
3 8
3.5 10.25
4 13
Чтобы продолжить, нажмите любую клавишу