home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / GRAFIT.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  625 b   |  23 lines
  1. 10 DIM A(4,4)
  2. 20 A(1,1)=1:A(1,2)=2:A(1,3)=3:A(1,4)=4
  3. 30 A(2,1)=1:A(2,2)=2:A(2,3)=4:A(2,4)=3
  4. 40 A(3,1)=2:A(3,2)=1:A(3,3)=3:A(3,4)=4
  5. 50 A(4,1)=2:A(4,2)=1:A(4,3)=4:A(4,4)=3
  6. 60 A(0,1)=4:A(0,2)=2:A(0,3)=3:A(0,4)=1
  7. 70 RANDOMIZE
  8. 100 INPUT"STUDENT NUMBER=";J
  9. 110 INPUT"PROBLEM NUMBER=";L
  10. 120 J1=J-4*(J/4)+1:K1=J+L-4*((J+L)/4)+1
  11. 200 INPUT"INPUT X";X
  12. 210 IF L>1 THEN 300
  13. 220 PRINT"Y="J1*X:GOTO 200
  14. 300 X=X+.05*X*(RND(0) -.5)
  15. 320 K2=A(0,K1)
  16. 325 ON A(J1,L-1) GOTO 330,350,370,390
  17. 330 Y=K2*X*X: GOTO 400
  18. 350 Y=K2*SQR(X): GOTO 400
  19. 370 Y=K2*SQR(X^3): GOTO400
  20. 390 Y=K2/(X*X): GOTO 400
  21. 400 PRINT "Y="Y: GOTO 200
  22. 420 END
  23.