13 lines
217 B
QBasic
13 lines
217 B
QBasic
|
5 PRINT "X VALUE", "SINE", "RESOLUTION"
|
||
|
|
10 READ D
|
||
|
|
20 LET M = -1
|
||
|
|
30 FOR X = 0 TO 3 STEP D
|
||
|
|
40 IF SIN(X) <= M THEN 80
|
||
|
|
50 LET X0 = X
|
||
|
|
60 LET M = SIN(X)
|
||
|
|
80 NEXT X
|
||
|
|
85 PRINT X0, M, D
|
||
|
|
90 GOTO 10
|
||
|
|
100 DATA .1, .01, .001
|
||
|
|
110 END
|