home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG054.ARK
/
GRAFIT.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
625b
|
23 lines
10 DIM A(4,4)
20 A(1,1)=1:A(1,2)=2:A(1,3)=3:A(1,4)=4
30 A(2,1)=1:A(2,2)=2:A(2,3)=4:A(2,4)=3
40 A(3,1)=2:A(3,2)=1:A(3,3)=3:A(3,4)=4
50 A(4,1)=2:A(4,2)=1:A(4,3)=4:A(4,4)=3
60 A(0,1)=4:A(0,2)=2:A(0,3)=3:A(0,4)=1
70 RANDOMIZE
100 INPUT"STUDENT NUMBER=";J
110 INPUT"PROBLEM NUMBER=";L
120 J1=J-4*(J/4)+1:K1=J+L-4*((J+L)/4)+1
200 INPUT"INPUT X";X
210 IF L>1 THEN 300
220 PRINT"Y="J1*X:GOTO 200
300 X=X+.05*X*(RND(0) -.5)
320 K2=A(0,K1)
325 ON A(J1,L-1) GOTO 330,350,370,390
330 Y=K2*X*X: GOTO 400
350 Y=K2*SQR(X): GOTO 400
370 Y=K2*SQR(X^3): GOTO400
390 Y=K2/(X*X): GOTO 400
400 PRINT "Y="Y: GOTO 200
420 END