mirror of
https://github.com/rfivet/BCG101.git
synced 2024-11-17 18:06:05 -05:00
Add GUNER1 and NIM.
This commit is contained in:
parent
80eca63a73
commit
36d630613a
88
dec/GUNER1.BAS
Normal file
88
dec/GUNER1.BAS
Normal file
@ -0,0 +1,88 @@
|
|||||||
|
100 REM ARTILLERY FIRING GAME
|
||||||
|
110 DIM A$(3)
|
||||||
|
120 RANDOMIZE
|
||||||
|
130 PRINT "DO YOU WANT INSTRUCTIONS";
|
||||||
|
140 INPUT A$
|
||||||
|
150 PRINT
|
||||||
|
160 IF A$="NO" THEN 330
|
||||||
|
170 PRINT " THIS GAME TESTS YOUR ABILITY TO HIT A MOVING TARGET."
|
||||||
|
180 PRINT "YOU MUST DESTROY IT BEFORE IT DESTROYS YOU OR MOVES OUT"
|
||||||
|
190 PRINT "OF RANGE. THE TARGET WILL MOVE RANDOMLY."
|
||||||
|
200 PRINT
|
||||||
|
210 PRINT " TYPE CTRL/C TO TERMINATE THE PROGRAM. TO THE QUESTON"
|
||||||
|
220 PRINT "'ENTER SPEED' TYPE A NUMBER BETWEEN 1 AND 100. THIS IS THE"
|
||||||
|
230 PRINT "RELATIVE SPEED OF THE TARGET WHERE 1 IS SLOWEST AND 100"
|
||||||
|
240 PRINT "IS THE FASTEST."
|
||||||
|
250 PRINR
|
||||||
|
260 PRINT "TO THE QUESTION 'ENTER DISTANCE' ENTER THE MAXIMUM DISTANCE"
|
||||||
|
270 PRINT "YOU CAN HIT FROM THE TARGET AND STILL DESTROY IT. THIS IS"
|
||||||
|
280 PRINT "THE KILL RADIUS AND 5000 IS SUGGESTED FOR STARTERS."
|
||||||
|
290 PRINT
|
||||||
|
300 PRINT "ELEVATION IS THE ELEVATION OF YOUR GUN IN DEGREES WHEN YOU"
|
||||||
|
310 PRINT "FIRE AT THE TARGET. THE MAXIMUM RANGE IS AT 45 DEGREES"
|
||||||
|
320 PRINT
|
||||||
|
330 PRINT "ENTER SPEED";
|
||||||
|
340 INPUT S
|
||||||
|
350 IF S<1 THEN 330
|
||||||
|
360 IF S>100 THEN 330
|
||||||
|
370 PRINT "ENTER DISTANCE";
|
||||||
|
380 INPUT D
|
||||||
|
390 IF D<0 THEN 370
|
||||||
|
400 IF D>10000 THEN 370
|
||||||
|
410 M=100000-75000*RND(0)
|
||||||
|
420 PRINT
|
||||||
|
430 PRINT "THE MAXIMUM RANGE OF YOUR GUN IS "M" YARDS"
|
||||||
|
440 FOR K=1 TO M/10000
|
||||||
|
450 LET K1=RND(0)
|
||||||
|
460 NEXT K
|
||||||
|
470 R=.95*M-.6*M*RND(0)
|
||||||
|
480 LET N=0
|
||||||
|
490 GOTO 520
|
||||||
|
500 IF R>M THEN 840
|
||||||
|
510 IF R<=(M/2.5) THEN 860
|
||||||
|
520 PRINT "TARGET RANGE IS"R" YARDS"
|
||||||
|
530 PRINT "ELEVATION";
|
||||||
|
540 INPUT E
|
||||||
|
550 IF E<0 THEN 840
|
||||||
|
560 IF E> 89 THEN 800
|
||||||
|
570 IF E <1 THEN 820
|
||||||
|
580 N=N+1
|
||||||
|
590 K=INT(R-M*SIN(2*E/57.3))
|
||||||
|
600 K1=ABS(K)
|
||||||
|
610 IF K1<D THEN 650
|
||||||
|
620 IF K>D THEN 720
|
||||||
|
630 IF K<-D THEN 740
|
||||||
|
640 STOP
|
||||||
|
650 PRINT "*** TARGET DESTROYED ***"
|
||||||
|
660 GOSUB 940
|
||||||
|
670 D1=K
|
||||||
|
680 FOR K=1 TO N+D/100
|
||||||
|
690 K1=RND(0)
|
||||||
|
700 NEXT K
|
||||||
|
710 GOTO 410
|
||||||
|
720 PRINT "SHORT OF TARGET BY "K1" YARDS"
|
||||||
|
730 GOTO 745
|
||||||
|
740 PRINT "OVER TARGET BY ";K1"YARDS"
|
||||||
|
745 LET C=INT(2*RND(0)+1)
|
||||||
|
746 IF C=1 THEN 750
|
||||||
|
748 LET C=-1
|
||||||
|
749 GOTO 760
|
||||||
|
750 LET C=1
|
||||||
|
760 C1=M*S/100*RND(0)
|
||||||
|
770 C1=C*C1
|
||||||
|
780 R=R+C1
|
||||||
|
790 GOTO 500
|
||||||
|
800 PRINT "MAXIMUM EVEVATION IS 89 DEGREES"
|
||||||
|
810 GOTO 530
|
||||||
|
820 PRINT "MINIMUM ELEVATION IS 1 DEGREE"
|
||||||
|
830 GOTO 530
|
||||||
|
840 PRINT "* TARGET OUT OF RANGE *"
|
||||||
|
850 GOTO 670
|
||||||
|
860 PRINT "THE TARGET HAS DESTROYED YOU!"
|
||||||
|
870 GOTO 670
|
||||||
|
940 IF N=1 THEN 970
|
||||||
|
950 PRINT N" ROUNDS EXPENDED"
|
||||||
|
960 RETURN
|
||||||
|
970 PRINT "***** DIRECT HIT *****"
|
||||||
|
980 RETURN
|
||||||
|
990 END
|
||||||
93
dec/NIM.BAS
Normal file
93
dec/NIM.BAS
Normal file
@ -0,0 +1,93 @@
|
|||||||
|
100 REM THIS PROGRAM USES A STRATEGY AS PRESENTED IN 'GAMES OF FUN AND
|
||||||
|
105 REM STRATEGY', A PUBLICATION OF THE MATHEMATICAL SERVICES DEPART-
|
||||||
|
110 REM MENT OF COMPUTER CONTROL CO., INC.
|
||||||
|
115 PRINT "THIS PROGRAM PLAYS NIM."
|
||||||
|
120 PRINT "DO YOU WANT INSTRUCTIONS";\INPUT Q$
|
||||||
|
125 IF Q$="YES" THEN 135\IF Q$="NO" THEN 190
|
||||||
|
130 PRINT "TYPE YES OR NO."\INPUT Q$\GOTO 125
|
||||||
|
135 PRINT
|
||||||
|
140 PRINT " NIM IS PLAYED BY TWO PEOPLE PLAYING ALTERNATELY. BEFORE"
|
||||||
|
145 PRINT "THE PLAY STARTS, AN ARBITRARY NUMBER OF STICKS OR OBJECTS IS"
|
||||||
|
150 PRINT "PUT INTO AN ARBITRARY NUMBER OF PILES, IN ANY DISTRIBUTION"
|
||||||
|
155 PRINT "WHATEVER. THEN EACH PLAYER IN HIS TURN REMOVE AS MANY"
|
||||||
|
160 PRINT "STICKS AS HE WISHES FROM ANY PILE--BUT FROM ONLY ONE PILE,"
|
||||||
|
165 PRINT "AND AT LEAST ONE STICK. THE PLAYER WHO TAKES THE LAST STICK"
|
||||||
|
170 PRINT "IS THE WINNER."
|
||||||
|
175 PRINT " THIS PROGRAM ALLOWS YOU TO SET UP THE INITIAL ARRANGEMENT"
|
||||||
|
180 PRINT "OF PILES AND STICKS. IT WILL NOT ACCEPT MORE THAN TWENTY"
|
||||||
|
185 PRINT "PILES OR STICKS IN EACH PILE."
|
||||||
|
190 RANDOM
|
||||||
|
195 REM------------------CONFIGURATION INPUT---------------------------
|
||||||
|
200 DIM X(20,4),S(20),L(20),S2(20),N2(4),C(20),S3(20),V(20)
|
||||||
|
205 PRINT\PRINT "HOW MANY PILES";\INPUT P\IF P>20 THEN 215
|
||||||
|
210 IF P>INT(P) THEN 215\IF P<=0 THEN 215\GO TO 220
|
||||||
|
215 PRINT "ILLEGAL PILE NUMBER."\PRINT\GO TO 205
|
||||||
|
220 PRINT\FOR I=1 TO P
|
||||||
|
225 PRINT "HOW MANY STICK IN PILE";I;\INPUT L(I)\IF L(I)>20 THEN 235
|
||||||
|
230 IF L(I)>INT(L(I)) THEN 235\IF L(I)<=0 THEN 235\GO TO 240
|
||||||
|
235 PRINT "ILLEGAL STICK NUMBER."\PRINT\GO TO 225
|
||||||
|
240 NEXT I
|
||||||
|
245 FOR I=1 TO P\S(I)=L(I)\G=G+L(I)\NEXT I
|
||||||
|
250 PRINT\PRINT "DO YOU WANT TO GO FIRST";
|
||||||
|
255 INPUT Q$\IF Q$="YES" THEN 340\IF Q$="NO" THEN 390
|
||||||
|
260 PRINT "TYPE YES OR NO."\GO TO 255
|
||||||
|
265 REM--CONTROL OF GAME REPEATS AND TESTS FOR END OF GAME-------------
|
||||||
|
270 IF G=0 THEN 275\IF F=1 THEN 390\GO TO 320
|
||||||
|
275 IF F=1 THEN 315
|
||||||
|
280 PRINT\PRINT "I WON. DO YOU WANT TO PLAY AGAIN";
|
||||||
|
285 INPUT Q$\IF Q$="NO" THEN 290\IF Q$="YES" THEN 300\GO TO 295
|
||||||
|
290 STOP
|
||||||
|
295 PRINT "TYPE YES OR NO."\GO TO 285
|
||||||
|
300 PRINT\PRINT "SAME ARRANGEMENT";
|
||||||
|
305 INPUT Q$\IF Q$="NO" THEN 205\IF Q$="YES" THEN 245
|
||||||
|
310 PRINT "TYPE YES OR NO."\GO TO 305
|
||||||
|
315 PRINT\PRINT "YOU WON. DO YOU WANT TO PLAY AGAIN";\GO TO 285
|
||||||
|
320 PRINT\PRINT "PILE NUMBER","STICKS LEFT"
|
||||||
|
325 FOR I=1 TO P\IF S(I)=0 THEN 330\PRINT I,S(I)
|
||||||
|
330 NEXT I
|
||||||
|
335 REM---------------------PLAYER'S MOVE------------------------------
|
||||||
|
340 PRINT\PRINT "WHICH PILE DO YOU WANT STICKS FROM";\INPUT N
|
||||||
|
345 IF N>P THEN 355\IF N>INT(N) THEN 355\IF N<=0 THEN 355
|
||||||
|
350 IF S(N)=0 THEN 355\GO TO 360
|
||||||
|
355 PRINT "ILLEGAL PILE NUMBER."\PRINT\GO TO 340
|
||||||
|
360 PRINT\PRINT "HOW MANY STICKS";\INPUT T
|
||||||
|
365 IF T>S(N) THEN 370\IF T>INT(T) THEN 370\IF T<=0 THEN 370\GO TO 375
|
||||||
|
370 PRINT "ILLEGAL STICK NUMBER."\PRINT\GO TO 360
|
||||||
|
375 S(N)=S(N)-T\G=G-T
|
||||||
|
380 F=1\GO TO 270
|
||||||
|
385 REM--------------------MACHINE'S MOVE------------------------------
|
||||||
|
390 FOR I=0 TO 4\V(I)=0\NEXT I
|
||||||
|
395 FOR I=1 TO P
|
||||||
|
400 C(I)=S(I)
|
||||||
|
405 FOR E=4 TO 0 STEP -1
|
||||||
|
410 IF S(I)<2^E THEN 415\S2(I)=S2(I)+10^E\S(I)=S(I)-2^E
|
||||||
|
415 NEXT E
|
||||||
|
420 FOR Y=4 TO 0 STEP -1
|
||||||
|
425 X(I,Y)=INT(S2(I)/10^Y)\S2(I)=S2(I)-X(I,Y)*10^Y
|
||||||
|
430 V(Y)=V(Y)+X(I,Y)
|
||||||
|
435 NEXT Y
|
||||||
|
440 NEXT I
|
||||||
|
445 R=0
|
||||||
|
450 FOR Y=4 TO 0 STEP -1
|
||||||
|
455 IF V(Y)/2-INT(V(Y)/2)=0 THEN 480
|
||||||
|
460 IF R=1 THEN 470\Q=INT(P*RND(X))+1
|
||||||
|
465 IF X(Q,Y)<>1 THEN 460\X(Q,Y)=0\R=1\GO TO 480
|
||||||
|
470 IF X(Q,Y)=1 THEN 475\X(Q,Y)=1\GO TO 480
|
||||||
|
475 X(Q,Y)=0
|
||||||
|
480 NEXT Y
|
||||||
|
485 FOR I=1 TO P
|
||||||
|
490 S2(I)=0
|
||||||
|
495 FOR Y=4 TO 0 STEP -1
|
||||||
|
500 S3(I)=X(I,Y)*10^Y\S2(I)=S2(I)+S3(I)
|
||||||
|
505 NEXT Y
|
||||||
|
510 FOR E=4 TO 0 STEP -1
|
||||||
|
515 IF S2(I)<10^E THEN 520\S(I)=S(I)+2^E\S2(I)=S2(I)-10^E
|
||||||
|
520 NEXT E
|
||||||
|
525 NEXT I
|
||||||
|
530 IF R=1 THEN 535\Q=INT(P*RND(X))+1\IF S(Q)=0 THEN 530\S(Q)=S(Q)-1
|
||||||
|
535 D=C(Q)-S(Q)\G=G-D
|
||||||
|
540 IF D=1 THEN 550
|
||||||
|
545 PRINT\PRINT "I'LL TAKE";D;"STICKS FROM PILE";Q;"."\GO TO 555
|
||||||
|
550 PRINT\PRINT "I'LL TAKE 1 STICK FROM PILE";Q;"."
|
||||||
|
555 F=0\GO TO 270
|
||||||
|
560 END
|
||||||
88
port/GUNER1.BAS
Normal file
88
port/GUNER1.BAS
Normal file
@ -0,0 +1,88 @@
|
|||||||
|
100 REM ARTILLERY FIRING GAME
|
||||||
|
110 DIM A$(3)
|
||||||
|
120 RANDOMIZE
|
||||||
|
130 PRINT "DO YOU WANT INSTRUCTIONS";
|
||||||
|
140 INPUT A$
|
||||||
|
150 PRINT
|
||||||
|
160 IF A$="NO" THEN 330
|
||||||
|
170 PRINT " THIS GAME TESTS YOUR ABILITY TO HIT A MOVING TARGET."
|
||||||
|
180 PRINT "YOU MUST DESTROY IT BEFORE IT DESTROYS YOU OR MOVES OUT"
|
||||||
|
190 PRINT "OF RANGE. THE TARGET WILL MOVE RANDOMLY."
|
||||||
|
200 PRINT
|
||||||
|
210 PRINT " TYPE CTRL/C TO TERMINATE THE PROGRAM. TO THE QUESTION"
|
||||||
|
220 PRINT "'ENTER SPEED' TYPE A NUMBER BETWEEN 1 AND 100. THIS IS THE"
|
||||||
|
230 PRINT "RELATIVE SPEED OF THE TARGET WHERE 1 IS SLOWEST AND 100"
|
||||||
|
240 PRINT "IS THE FASTEST."
|
||||||
|
250 PRINT
|
||||||
|
260 PRINT "TO THE QUESTION 'ENTER DISTANCE' ENTER THE MAXIMUM DISTANCE"
|
||||||
|
270 PRINT "YOU CAN HIT FROM THE TARGET AND STILL DESTROY IT. THIS IS"
|
||||||
|
280 PRINT "THE KILL RADIUS AND 5000 IS SUGGESTED FOR STARTERS."
|
||||||
|
290 PRINT
|
||||||
|
300 PRINT "ELEVATION IS THE ELEVATION OF YOUR GUN IN DEGREES WHEN YOU"
|
||||||
|
310 PRINT "FIRE AT THE TARGET. THE MAXIMUM RANGE IS AT 45 DEGREES"
|
||||||
|
320 PRINT
|
||||||
|
330 PRINT "ENTER SPEED";
|
||||||
|
340 INPUT S
|
||||||
|
350 IF S<1 THEN 330
|
||||||
|
360 IF S>100 THEN 330
|
||||||
|
370 PRINT "ENTER DISTANCE";
|
||||||
|
380 INPUT D
|
||||||
|
390 IF D<0 THEN 370
|
||||||
|
400 IF D>10000 THEN 370
|
||||||
|
410 M=100000-75000*RND(0)
|
||||||
|
420 PRINT
|
||||||
|
430 PRINT "THE MAXIMUM RANGE OF YOUR GUN IS "M" YARDS"
|
||||||
|
440 FOR K=1 TO M/10000
|
||||||
|
450 LET K1=RND(0)
|
||||||
|
460 NEXT K
|
||||||
|
470 R=.95*M-.6*M*RND(0)
|
||||||
|
480 LET N=0
|
||||||
|
490 GOTO 520
|
||||||
|
500 IF R>M THEN 840
|
||||||
|
510 IF R<=(M/2.5) THEN 860
|
||||||
|
520 PRINT "TARGET RANGE IS"R" YARDS"
|
||||||
|
530 PRINT "ELEVATION";
|
||||||
|
540 INPUT E
|
||||||
|
550 IF E<0 THEN 840
|
||||||
|
560 IF E> 89 THEN 800
|
||||||
|
570 IF E <1 THEN 820
|
||||||
|
580 N=N+1
|
||||||
|
590 K=INT(R-M*SIN(2*E/57.3))
|
||||||
|
600 K1=ABS(K)
|
||||||
|
610 IF K1<D THEN 650
|
||||||
|
620 IF K>D THEN 720
|
||||||
|
630 IF K<-D THEN 740
|
||||||
|
640 STOP
|
||||||
|
650 PRINT "*** TARGET DESTROYED ***"
|
||||||
|
660 GOSUB 940
|
||||||
|
670 D1=K
|
||||||
|
680 FOR K=1 TO N+D/100
|
||||||
|
690 K1=RND(0)
|
||||||
|
700 NEXT K
|
||||||
|
710 GOTO 410
|
||||||
|
720 PRINT "SHORT OF TARGET BY "K1" YARDS"
|
||||||
|
730 GOTO 745
|
||||||
|
740 PRINT "OVER TARGET BY ";K1"YARDS"
|
||||||
|
745 LET C=INT(2*RND(0)+1)
|
||||||
|
746 IF C=1 THEN 750
|
||||||
|
748 LET C=-1
|
||||||
|
749 GOTO 760
|
||||||
|
750 LET C=1
|
||||||
|
760 C1=M*S/100*RND(0)
|
||||||
|
770 C1=C*C1
|
||||||
|
780 R=R+C1
|
||||||
|
790 GOTO 500
|
||||||
|
800 PRINT "MAXIMUM ELEVATION IS 89 DEGREES"
|
||||||
|
810 GOTO 530
|
||||||
|
820 PRINT "MINIMUM ELEVATION IS 1 DEGREE"
|
||||||
|
830 GOTO 530
|
||||||
|
840 PRINT "* TARGET OUT OF RANGE *"
|
||||||
|
850 GOTO 670
|
||||||
|
860 PRINT "THE TARGET HAS DESTROYED YOU!"
|
||||||
|
870 GOTO 670
|
||||||
|
940 IF N=1 THEN 970
|
||||||
|
950 PRINT N" ROUNDS EXPENDED"
|
||||||
|
960 RETURN
|
||||||
|
970 PRINT "***** DIRECT HIT *****"
|
||||||
|
980 RETURN
|
||||||
|
990 END
|
||||||
93
port/NIM.BAS
Normal file
93
port/NIM.BAS
Normal file
@ -0,0 +1,93 @@
|
|||||||
|
100 REM THIS PROGRAM USES A STRATEGY AS PRESENTED IN 'GAMES OF FUN AND
|
||||||
|
105 REM STRATEGY', A PUBLICATION OF THE MATHEMATICAL SERVICES DEPART-
|
||||||
|
110 REM MENT OF COMPUTER CONTROL CO., INC.
|
||||||
|
115 PRINT "THIS PROGRAM PLAYS NIM."
|
||||||
|
120 PRINT "DO YOU WANT INSTRUCTIONS";\INPUT Q$
|
||||||
|
125 IF Q$="YES" THEN 135\IF Q$="NO" THEN 190
|
||||||
|
130 PRINT "TYPE YES OR NO."\INPUT Q$\GOTO 125
|
||||||
|
135 PRINT
|
||||||
|
140 PRINT " NIM IS PLAYED BY TWO PEOPLE PLAYING ALTERNATELY. BEFORE"
|
||||||
|
145 PRINT "THE PLAY STARTS, AN ARBITRARY NUMBER OF STICKS OR OBJECTS IS"
|
||||||
|
150 PRINT "PUT INTO AN ARBITRARY NUMBER OF PILES, IN ANY DISTRIBUTION"
|
||||||
|
155 PRINT "WHATEVER. THEN EACH PLAYER IN HIS TURN REMOVE AS MANY"
|
||||||
|
160 PRINT "STICKS AS HE WISHES FROM ANY PILE--BUT FROM ONLY ONE PILE,"
|
||||||
|
165 PRINT "AND AT LEAST ONE STICK. THE PLAYER WHO TAKES THE LAST STICK"
|
||||||
|
170 PRINT "IS THE WINNER."
|
||||||
|
175 PRINT " THIS PROGRAM ALLOWS YOU TO SET UP THE INITIAL ARRANGEMENT"
|
||||||
|
180 PRINT "OF PILES AND STICKS. IT WILL NOT ACCEPT MORE THAN TWENTY"
|
||||||
|
185 PRINT "PILES OR STICKS IN EACH PILE."
|
||||||
|
190 RANDOM
|
||||||
|
195 REM------------------CONFIGURATION INPUT---------------------------
|
||||||
|
200 DIM X(20,4),S(20),L(20),S2(20),N2(4),C(20),S3(20),V(20)
|
||||||
|
205 PRINT\PRINT "HOW MANY PILES";\INPUT P\IF P>20 THEN 215
|
||||||
|
210 IF P>INT(P) THEN 215\IF P<=0 THEN 215\GO TO 220
|
||||||
|
215 PRINT "ILLEGAL PILE NUMBER."\PRINT\GO TO 205
|
||||||
|
220 PRINT\FOR I=1 TO P
|
||||||
|
225 PRINT "HOW MANY STICK IN PILE";I;\INPUT L(I)\IF L(I)>20 THEN 235
|
||||||
|
230 IF L(I)>INT(L(I)) THEN 235\IF L(I)<=0 THEN 235\GO TO 240
|
||||||
|
235 PRINT "ILLEGAL STICK NUMBER."\PRINT\GO TO 225
|
||||||
|
240 NEXT I
|
||||||
|
245 FOR I=1 TO P\S(I)=L(I)\G=G+L(I)\NEXT I
|
||||||
|
250 PRINT\PRINT "DO YOU WANT TO GO FIRST";
|
||||||
|
255 INPUT Q$\IF Q$="YES" THEN 340\IF Q$="NO" THEN 390
|
||||||
|
260 PRINT "TYPE YES OR NO."\GO TO 255
|
||||||
|
265 REM--CONTROL OF GAME REPEATS AND TESTS FOR END OF GAME-------------
|
||||||
|
270 IF G=0 THEN 275\IF F=1 THEN 390\GO TO 320
|
||||||
|
275 IF F=1 THEN 315
|
||||||
|
280 PRINT\PRINT "I WON. DO YOU WANT TO PLAY AGAIN";
|
||||||
|
285 INPUT Q$\IF Q$="NO" THEN 290\IF Q$="YES" THEN 300\GO TO 295
|
||||||
|
290 STOP
|
||||||
|
295 PRINT "TYPE YES OR NO."\GO TO 285
|
||||||
|
300 PRINT\PRINT "SAME ARRANGEMENT";
|
||||||
|
305 INPUT Q$\IF Q$="NO" THEN 205\IF Q$="YES" THEN 245
|
||||||
|
310 PRINT "TYPE YES OR NO."\GO TO 305
|
||||||
|
315 PRINT\PRINT "YOU WON. DO YOU WANT TO PLAY AGAIN";\GO TO 285
|
||||||
|
320 PRINT\PRINT "PILE NUMBER","STICKS LEFT"
|
||||||
|
325 FOR I=1 TO P\IF S(I)=0 THEN 330\PRINT I,S(I)
|
||||||
|
330 NEXT I
|
||||||
|
335 REM---------------------PLAYER'S MOVE------------------------------
|
||||||
|
340 PRINT\PRINT "WHICH PILE DO YOU WANT STICKS FROM";\INPUT N
|
||||||
|
345 IF N>P THEN 355\IF N>INT(N) THEN 355\IF N<=0 THEN 355
|
||||||
|
350 IF S(N)=0 THEN 355\GO TO 360
|
||||||
|
355 PRINT "ILLEGAL PILE NUMBER."\PRINT\GO TO 340
|
||||||
|
360 PRINT\PRINT "HOW MANY STICKS";\INPUT T
|
||||||
|
365 IF T>S(N) THEN 370\IF T>INT(T) THEN 370\IF T<=0 THEN 370\GO TO 375
|
||||||
|
370 PRINT "ILLEGAL STICK NUMBER."\PRINT\GO TO 360
|
||||||
|
375 S(N)=S(N)-T\G=G-T
|
||||||
|
380 F=1\GO TO 270
|
||||||
|
385 REM--------------------MACHINE'S MOVE------------------------------
|
||||||
|
390 FOR I=0 TO 4\V(I)=0\NEXT I
|
||||||
|
395 FOR I=1 TO P
|
||||||
|
400 C(I)=S(I)
|
||||||
|
405 FOR E=4 TO 0 STEP -1
|
||||||
|
410 IF S(I)<2^E THEN 415\S2(I)=S2(I)+10^E\S(I)=S(I)-2^E
|
||||||
|
415 NEXT E
|
||||||
|
420 FOR Y=4 TO 0 STEP -1
|
||||||
|
425 X(I,Y)=INT(S2(I)/10^Y)\S2(I)=S2(I)-X(I,Y)*10^Y
|
||||||
|
430 V(Y)=V(Y)+X(I,Y)
|
||||||
|
435 NEXT Y
|
||||||
|
440 NEXT I
|
||||||
|
445 R=0
|
||||||
|
450 FOR Y=4 TO 0 STEP -1
|
||||||
|
455 IF V(Y)/2-INT(V(Y)/2)=0 THEN 480
|
||||||
|
460 IF R=1 THEN 470\Q=INT(P*RND(X))+1
|
||||||
|
465 IF X(Q,Y)<>1 THEN 460\X(Q,Y)=0\R=1\GO TO 480
|
||||||
|
470 IF X(Q,Y)=1 THEN 475\X(Q,Y)=1\GO TO 480
|
||||||
|
475 X(Q,Y)=0
|
||||||
|
480 NEXT Y
|
||||||
|
485 FOR I=1 TO P
|
||||||
|
490 S2(I)=0
|
||||||
|
495 FOR Y=4 TO 0 STEP -1
|
||||||
|
500 S3(I)=X(I,Y)*10^Y\S2(I)=S2(I)+S3(I)
|
||||||
|
505 NEXT Y
|
||||||
|
510 FOR E=4 TO 0 STEP -1
|
||||||
|
515 IF S2(I)<10^E THEN 520\S(I)=S(I)+2^E\S2(I)=S2(I)-10^E
|
||||||
|
520 NEXT E
|
||||||
|
525 NEXT I
|
||||||
|
530 IF R=1 THEN 535\Q=INT(P*RND(X))+1\IF S(Q)=0 THEN 530\S(Q)=S(Q)-1
|
||||||
|
535 D=C(Q)-S(Q)\G=G-D
|
||||||
|
540 IF D=1 THEN 550
|
||||||
|
545 PRINT\PRINT "I'LL TAKE";D;"STICKS FROM PILE";Q;"."\GO TO 555
|
||||||
|
550 PRINT\PRINT "I'LL TAKE 1 STICK FROM PILE";Q;"."
|
||||||
|
555 F=0\GO TO 270
|
||||||
|
560 END
|
||||||
Loading…
Reference in New Issue
Block a user