Mercurial > repo

comparison ply-3.8/example/BASIC/maxsin.bas @ 7267:343ff337a19b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<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