Mercurial > repo
comparison ply-3.8/example/BASIC/maxsin.bas @ 7267:343ff337a19b
<ais523> ` tar -xf ply-3.8.tar.gz
author | HackBot |
---|---|
date | Wed, 23 Mar 2016 02:40:16 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
7266:61a39a120dee | 7267:343ff337a19b |
---|---|
1 5 PRINT "X VALUE", "SINE", "RESOLUTION" | |
2 10 READ D | |
3 20 LET M = -1 | |
4 30 FOR X = 0 TO 3 STEP D | |
5 40 IF SIN(X) <= M THEN 80 | |
6 50 LET X0 = X | |
7 60 LET M = SIN(X) | |
8 80 NEXT X | |
9 85 PRINT X0, M, D | |
10 90 GOTO 10 | |
11 100 DATA .1, .01, .001 | |
12 110 END |