Microsoft QBasic 1.0
CLS
x = 0
DO WHILE x <= 2.1001<br> PRINT x, COS(x)
x = x + .1
LOOP
Результат
0 1
.1 .9950042
.2 .9800666
.3 .9553365
.4 .921061
.5 .8775826
.6 .8253356
.7 .7648422
.8000001 .6967067
.9000001 .6216099
1 .5403022
1.1 .453596
1.2 .3623576
1.3 .2674986
1.4 .1699669
1.5 7.073697E-02
1.6 -2.919978E-02
1.7 -.1288448
1.8 -.2272024
1.9 -.3232899
2 -.4161471
2.1 -.5048462