32 lines
623 B
QBasic
32 lines
623 B
QBasic
100 DIGITS% = 200
|
||
110 DIM A%( 200 )
|
||
120 HIGH% = DIGITS%
|
||
130 X% = 0
|
||
140 N% = HIGH% - 1
|
||
150 IF N% <= 0 GOTO 200
|
||
160 A%[ N% ] = 1
|
||
170 N% = N% - 1
|
||
180 GOTO 150
|
||
200 A%[ 1 ] = 2
|
||
210 A%[ 0 ] = 0
|
||
220 IF HIGH% <= 9 GOTO 400
|
||
230 HIGH% = HIGH% - 1
|
||
235 N% = HIGH%
|
||
240 IF N% = 0 GOTO 300
|
||
250 A%[ N% ] = X% MOD N%
|
||
255 rem PRINT "a[n-1]"; A%[ N% - 1 ]
|
||
260 X% = ( 10 * A%[ N% - 1 ] ) + ( X% \ N% )
|
||
265 rem PRINT "x: "; X%, "n: "; N%
|
||
270 N% = N% - 1
|
||
280 GOTO 240
|
||
300 IF X% >= 10 GOTO 330
|
||
310 PRINT USING "#"; X%;
|
||
320 GOTO 220
|
||
330 PRINT USING "##"; X%;
|
||
340 GOTO 220
|
||
400 PRINT ""
|
||
410 PRINT "done"
|
||
420 SYSTEM
|
||
|
||
|
||
|