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
/
CPMUG037.ARK
/
FORMULA.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
4KB
|
161 lines
%INCLUDE HEADER
REM *********************FORMULA*********************
B=15
P=9
D=4
DRILL.NAME$="Computation of Simple Areas"
PRINT "OK, ";N$;". LET'S PRACTICE COMPUTING SOME SIMPLE AREAS"
PRINT "AND VOLUMES. I WILL GIVE YOU A PROBLEM AND YOU GIVE ME YOUR"
PRINT "ANSSWER CORRECT TO THE SECOND DECIMAL PLACE. I WILL CHECK YOUR"
PRINT "ANSWER TO SEE IF IT IS CORRECT."
PRINT "A -1 MIGHT GET YOU SOME HELP IF YOU NEED IT"
PRINT
PRINT "FOR OUR PURPOSES, THE VALUE OF PI WILL BE 3.14"
C=0
I=0
N=0
260 GOSUB 670
GOSUB 1180
IF A$<>"C" THEN GOTO 320
360 C=C+1
I=I+1
GOTO 400
I=0
320 PRINT " TRY AGAIN."
GOSUB 1180
IF A$="C" THEN GOTO 400
380 PRINT " TRY ONE MORE TIME"
GOSUB 1180
IF A$="C" THEN GOTO 400
410 PRINT " THE ANSWER IS ";A
400 IF I>P*C/N THEN GOTO 1000.2
IF N<7 THEN GOTO 260
IF C/N >= .7 THEN GOTO 260
IF D=1 THEN GOTO 260
D=D-1
IF C/N >= .5 THEN GOTO 260
D=1
GOTO 260
IF C<>N THEN GOTO 1000.2
D=D+1
670 PRINT
N=N+1
P1=3.14
R1=FNR(3*D)
R2=FNR(3*D)
R3=FNR(3*D)
R=FNR(7)
IF R > 1 THEN 840
IF FNR(2) = 2 THEN 800
PRINT "WHAT IS THE AREA OF A SQUARE WITH SIDES OF"
PRINT "LENGTH";R1;
A = R1 ^ 2
PROBLEM=1
GOTO 1170
800 PRINT "WHAT IS THE VOLUME OF A CUBE WITH SIDES"
PRINT "OF LENGTH ";R1;
A=R1^2
PROBLEM=2
GOTO 1170
840 IF R > 2 THEN 940
IF FNR(2) = 2 THEN GOTO 900
PRINT "WHAT IS THE AREA OF A CIRCLE"
PRINT "WITH A RADIUS";R1;
A = 4/3 * P1 * R1 ^ 3
PROBLEM=3
GOTO 1170
900 PRINT "WHAT IS THE VOLUME OF A SPHERE WITH";
PRINT "THE RADIUS OF ";R1;
A=4/3*P1*R1^3
PROBLEM=4
GOTO 1170
940 IF R > 3 THEN 990
PRINT "WHAT IS THE VOLUME OF A BOX WITH WIDTH"; R1
PRINT "LENGTH";R2;" AND DEPTH";R3;
A = R1 * R2 * R3
PROBLEM=5
GOTO 1170
990 IF R > 4 THEN GOTO 1040
PRINT "WHAT IS THE AREA OF A RECTANGLE WITH LENGTH";R1
PRINT " AND WIDTH";R2;
A = R1*R2
PROBLEM=6
GOTO 1170
1040 IF R > 5 THEN 1090
PRINT "WHAT IS THE AREA OF A TRIANGLE WITH BASE";R1
PRINT "AND THE HEIGHT OF";R2;
A=R1*R2/2
PROBLEM=7
GOTO 1170
1090 IF R > 6 THEN GOTO 1140
PRINT "WHAT IS THE VOLUME OF A CYLINDER WITH"
PRINT "DIAMETER";R1;" AND THE HEIGHT OF";R2;
A = P1 * R1 ^ 2/4
PROBLEM=8
GOTO 1170
1140 PRINT "WHAT IS THE VOLUME OF A CONE WITH RADIUS";R1
PRINT "AND HEIGHT";R2;
A = P1 * R1 ^ 2 * R2/3
PROBLEM=9
1170 RETURN
1180 INPUT X$
RANDOMIZE
IF X$="QUIT" THEN GOTO 1000.2
X=VAL(X$)
IF X=-1 THEN GOTO 10 ELSE GOTO 10.1
10 ON PROBLEM GOSUB 1480,1470,1460,1450,1440,1430,1420,1410,1400
10.1 IF ABS(X-A) > .1 THEN GOTO 1220
A$ = "C"
RETURN
1220 PRINT "NOT CORRECT. ";
I=0
A$ = "I"
RETURN
1400:
PRINT "VOLUME = PI TIMES THE RADIUS SQUARED TIMES THE HEIGHT/3"
PRINT P1;"*";R1 ^ 2;"*";R2;"/";3
RETURN
1410:
PRINT "VOLUME OF A CYLINDER = PI TIMES DIAMETER TO THE "
PRINT "POWER OF 2 DIVIDED BY 4"
PRINT P1;"*";R1 ^ 2;"/";4
RETURN
1420:
PRINT "AREA OF A TRIANGLE = BASE TIMES HEIGHT DIVIDED BY 2"
PRINT R1;"*";R2;"/";2
RETURN
1430:
PRINT "AREA OF A RECTANGLE = LENGTH TIMES WIDTH"
PRINT R1;"*";R2
RETURN
1440:
PRINT "VOLUME OF A BOX = WIDTH TIMES LENGTH TIMES DEPTH"
PRINT R1;"*";R2;"*";R3
RETURN
1450:
PRINT "VOLUME OF A SPHERE = 4 DIVIDED BY 3 TIMES PI TIMES "
PRINT "THE RADIUS TO THE THIRD POWER"
PRINT 4/3;"*";P1;"*";R1^3
RETURN
1460:
PRINT "EVIDENTLY THE AREA OF A CIRCLE IS THE SAME AS THE"
PRINT "VOLUME OF A SPHERE WHICH HAS GOT TO BE WRONG AND"
PRINT "NEEDS SOME WORK - SO THERE!"
A = 4/3 * P1 * R1 ^ 3
RETURN
1470:
PRINT "VOLUME OF A CUBE = LENGTH OF ONE SIDE TO THE POWER OF 3"
PRINT R1^3
RETURN
1480:
PRINT "AREA OF A SQUARE = LENGTH OF ONE SIDE TO THE POWER OF 2"
PRINT R1 ^ 2
RETURN
%INCLUDE GRADE
END