slq.bas

一个用PIC16C64开发的变色灯程序

10 a = 0#
20 b = 0#
30 c = 0#
40 i = 30
50 c = (10000 * SIN(2 * i * 3.141592654# / 1250)) * (10000 * SIN(2 * i * 3.141592654# / 1250))
60 a = a + c
70 i = i + 1
80 IF i < 1250 THEN GOTO 50
90 a = a / 24
100 i = 30
110 c = 0#
115 d = 0
120 b = (10000 * SIN(2 * i * 3.141592654# / 1250)) * (10000 * SIN(2 * i * 3.141592654# / 1250))
130 c = c + b
135 d = d + 1
140 IF c > a THEN
143 INPUT f
145 PRINT d, "abc"
150 c = 0!
160 d = 0
170 END IF
180 i = i + 1
190 IF i < 1250 THEN GOTO 120
210 PRINT d
220 END