ZXTape! 2 Study Maths II - 13 years+Scisoft1983English Educational8.95 UKPNone (ROM timings)Original releaseUTZXed by Albert Valls Side B: Integration and Differentiation Variation and Interest0Integration and DifferentiationDIF - -aM / )0::"":0,0;"":"" DI @  m6lmm6mmm6lmm6mmm mammammm mammammm6lmm6mmm6lmm6mm` ma lal` ma lalmm`6mmmmmm`6mmmm` ma lal` ma lalm amlaml` ma lalmmammlm amlamlm `mlalmmamml` alalm `mlal` ma lal` alalm amlaml` ma lalm6l`mmlm amlaml ` lalm6l`mml` alaml ` lalm mamlal` alamlm `mlamlm mamlalm6l`lmlm `mlaml` ma lalm6l`lmlB~@<B<fBB@D@@BBDbBZB~<B|@BBBR@B~BB@@B~BJNBBBBD@@BBDFBBBB<x>@~B<$PROGRAM1 '='y '5:5:1: 5 ,110;"SCISOFT" F=0 G=0  *14`,5 ;"EDUCATIONAL PROGRAMS" ?16,14`;"FOR";18,7`;"SCIENCE STUDENTS"  9000(#  0:  3000  0 38,10 ;0;6;"MATHEMATICS" G4,0;0;6;"INTEGRATION AND DIFFERENTIATION"; -21,0;4;"SCISOFT  1983" (200:5:5:1:   -37`,1;"PLEASE TYPE IN YOUR NAME, THEN" 2,,8;"PRESS ENTER." 7Z$ 8Z$=""557 < A:2,3;1;"HELLO ";0;6;Z$ F$,,,," YOU WILL NOW BE GIVEN SOME" K",," MATHS PROBLEMS TO SOLVE." U2,,,,,,1;"AFTER YOU HAVE GIVEN 10 ANSWERS" Z.,,1;" YOU WILL BE GIVEN A SCORE. " _921,2;6;"PRESS ANY KEY TO CONTINUE." d""100H i=""105R n s-4;"PLEASE NOTE THAT IN THIS PROGRAM" C2,1;1;"1.";0;" THE VALUE FOR (GREEK" 54,0;"LETTER) SHOULD BE TAKEN AS 22/7." E7,1;1;"2.";0;" ANSWERS NEED BE GIVEN TO" ,,"ONE DECIMAL PLACE ONLY." H12 ,1;1;"3.";0;" ANSWERS WITHIN 0.1 WILL BE" ,,"CONSIDERED CORRECT." m17,1;1;"4.";0;" UNITS SHOULD NOT BE USED BUT",,"DO NOT FORGET THEM IN THE EXAM." 821,2;6;"PRESS ANY KEY TO CONTINUE" ""160 =""165%   SC=0 I=110  /X=((*10 )+1)*100d+900 A=(*11 )+1 B=(*11 )+1 C=(*20)+1 D=(*20)+1 X 0:0:  6: (100d:1:5:5: *3,11 ;4;"QUESTION ";I  C=2 BAC=3 B=A*A 7,0;"FIND THE GRADIENT OF THE CURVE";9 ,14;"y=x";(151+C);11 ,0;"AT THE POINT (";A;",";B;")."  7000X C=2ANS=2*A C=3ANS=3*A*A  6000p  4000 B0:0: K1:5:5: L*3,11 ;4;"QUESTION ";I P D=D+1 Q C=2 RBAC=3 SB=A*A V7,0;"FIND THE VALUE OF THE DERIVATIVE";9 ,0;"OF y=";D;"x";(151+C);11 ,0;"AT THE POINT (";A;",";B;")." [ 7000X \C=2ANS=2*D*A ]C=3ANS=3*D*A*A  6000p  4000 0:0: 1:5:5: *3,11 ;4;"QUESTION ";I  C=1 BAC=2 D=D*100d B=(D/(A^C)) 7,0;"FIND THE VALUE OF THE DERIVATIVE";9 ,0;"OF y=";D;"x";(160+C);'';"AT THE POINT (";A;",";B;")."  7000X C=1ANS=-D/A/A !C=2ANS=-2*D/A/A/A  6000p  4000  0:0: 1:5:5: *3,11 ;4;"QUESTION ";I  A=A+1  B=B+1  C=C+1 5,0;"FIND THE y-COORDINATE OF THE ";7,0;"POINT ON THE CURVE";9 ,0;" y=";A;"x+";B;"x+";C;11 ,0;"AT WHICH y HAS A MINIMUM." U 7000X W#ANS=B*B/4/A-B*B/A/2+C Z 6000p d 4000 n0:0: v"20:J:40(::0 w1:5:5: x*3,11 ;4;"QUESTION ";I } A=A+1 ~ B=B+1  C=C+1 |5,0;"FIND THE MAXIMUM VALUE OF THE ";7,0;"FUNCTION";9 ,0;" y=";B;"x-";A;"x+";C;  7000X $ANS=-B*B/4/A+B*B/A/2+C  6000p  4000 0:0: 1:5:5: *3,11 ;4;"QUESTION ";I  ABB=A+B 5,0;"CALCULATE THE AREA BOUNDED BY";7,0;"THE CURVE";9 ,0;" y=x+";C;11 ,0;"THE x-AXIS AND LINES x=";A;",x=";B  7000X  1ANS=B^3/3-A^3/3+C*(B-A) " 6000p , 4000 60:0: ?1:5:5: @*3,11 ;4;"QUESTION ";I EC=C+10 FD=D+10 G B=B+1 J4,0;"AN OBJECT STARTING FROM P MOVES"'"IN A STRAIGHT LINE. ITS SPEED v"'"AT TIME t(seconds) IS GIVEN BY:"'" v=";C;"+";D;"t-";A;"t"''"FIND THE DISTANCE TRAVELLED IN"'"TIME ";B;" seconds."  7000X 'ANS=C*B+D*B*B/2-A*B*B*B/3  6000p  4000 0:0: 1:5:5: *3,11 ;4;"QUESTION ";I  ABB=B+A 7,0;"INTEGRATE THE FUNCTION";9 ,0;" x(";C;"-x)";11 ,0;"BETWEEN x=";A;" AND x=";B;"."  7000X SANS=C*A*A*A/3-C/3*(B^3)-(A^4)/4+(B^4)/4  ANS=-ANS  6000p  4000 0:0: 1:5:5: *3,11 ;4;"QUESTION ";I  ABB=B+A 7,0;"INTEGRATE THE FUNCTION";9 ,0;" x(x-";C;")";11 ,0;"BETWEEN x=";A;" AND x=";B;"." I 7000X KIANS=(B^3)/3-(A^3)/3+C*A*A/2-C*B*B/2 N 6000p X 4000 b0:0: k1:5:5: l*3,11 ;4;"QUESTION ";I r C=C+1 v4,0;"THE VELOCITY OF A PARTICLE"'"MOVING IN A LINE IS GIVEN BY"'" ds"'" = ";C;"t-";D;'" dt"'"WHERE s IS THE DISTANCE FROM THE"'"ORIGIN AT TIME t. IF s=";A;" WHEN"'"t=0, FIND s WHEN t=";B;"." &44,,115s:20,0  7000X ANS=B*B*C/2-B*D+A  6000p  4000 0: 1:9 m=140( z=(*7)+1 z z:z/20,z y=(*30) x=(*21)  x,y;"" x+1,y;"" m N2,-10  I  <7,2;1;"DEAR ";0;6;Z$;"," 710 ,2;"YOU HAVE SCORED ";SC;" OUT OF 10"; , 250 P 8000z x19,5 ;Q$ 221(,2;"THIS IS YOUR PROGRESS REPORT" ""5300 =""5301  5 pJ$ tj$=""6000p xM=1̱J$ yhJ$(MM)<45-J$(MM)>57919,3;"Please do not use units in the answer." z1J$(MM)<45-J$(MM)>5796000p ~m J=J$ .ANS=((ANS+0.001wn)*100d)/100d J=ANS6045 !(J-ANS)<.099}J6045 <14,2;0;2;"SORRY YOU ARE WRONG"; )16,2;"THE ANSWER IS ";ANS;  6050 .14,2;4;"YOU ARE RIGHT "; 216,2;1;"THE ANSWER IS ";ANS; SC=SC+1 821,2;6;"PRESS ENTER TO CONTINUE."; Q$   X?12 ,0;4;"" Y @ J=0,0;1;"INTEGRATION AND DIFFERENTIATION" K 4 r*5,5;" " s#5 ;" " t#5 ;" " u"5 ;" " v"5 ;" " w"5 ;" " x"5 ;" " y"5 ;" " z"5 ;" " | 1 &,,"WELL DONE YOU ARE LIKELY TO PASS"  100d SC9  2 5 ,220;"L " 6,22;"L " 7,22;"L " 8,22;"L " 9 ,22;"L " 10 ,22;"L " 11 ,22;"L " 12 ,22;"L " 13 ,22;"LLLLL" &,,"YOU ARE NEARLY AT THE PASS LEVEL" & 100H vSC7` 5 ,17;" I " 6,17;" I " 7,17;" I " 8,17;" I " 9 ,17;" I " 10 ,17;" I " 11 ,17;" I " 12 ,17;" I " 13 ,17;" I " &,," YOU STILL HAVE SOME WORK TO DO " 100H SC5 !5 ,110;"AAAAA" !6,11 ;"A A" !7,11 ;"A A" !8,11 ;"AAAAA" !9 ,11 ;"A A" !10 ,11 ;"A A" !11 ,11 ;"A A" ! 12 ,11 ;"A A" ! 13 ,11 ;"A A" ! %,," COME ON YOU CAN DO BETTER " ! 100H !4SC3@ !f5 ,5 ;"FFFFF" !g5 ;"F " !h5 ;"F " !i5 ;"FFF " !j5 ;"F " !k5 ;"F " !l5 ;"F " !m5 ;"F " !n5 ;"F " !p%,," THIS RESULT IS VERY VERY POOR " !z 100H !5:1: ! #(("L",0,112p,80P,112p,0,0,0,0,"K",112p,16,480,16,112p,0,0,0,"J",32 ,80P,16,32 ,112p,0,0,0,"M",0,0,2,124|,36$,36$,36$,0 #)*"N",2,4,4,568,72H,72H,524,0,"O",0,0,36$,36$,36$,24,16,16,"P",255,2,4,4,568,72H,72H,524,"Q",215,32 ,192,17,10 ,4,10 ,17 #*"R",4,4,116t,4,4,0,0,0,"S",7,1,119w,4,7,0,0,0 #2X=110 #<A$ #FA=07 #P B:A$+A,B #ZA #dX #n fg 2#F#b4)( zy cdnDZTAP60Integration and DifferentiationINT )x(g)5:5:1: 5 ,110;"SCISOFT" F=0 G=0  *14`,5 ;"EDUCATIONAL PROGRAMS" ?16,14`;"FOR";18,7`;"SCIENCE STUDENTS"  9000(#  0:  3000  0 38,10 ;0;6;"MATHEMATICS" G4,0;0;6;"INTEGRATION AND DIFFERENTIATION"; -21,0;4;"SCISOFT  1983" (200:5:5:1:   -37`,1;"PLEASE TYPE IN YOUR NAME, THEN" 2,,8;"PRESS ENTER." 7Z$ 8Z$=""557 < A:2,3;1;"HELLO ";0;6;Z$ F$,,,," YOU WILL NOW BE GIVEN SOME" K",," MATHS PROBLEMS TO SOLVE." U2,,,,,,1;"AFTER YOU HAVE GIVEN 10 ANSWERS" Z.,,1;" YOU WILL BE GIVEN A SCORE. " _921,2;6;"PRESS ANY KEY TO CONTINUE." d""100H i=""105R n s-4;"PLEASE NOTE THAT IN THIS PROGRAM" C2,1;1;"1.";0;" THE VALUE FOR (GREEK" 54,0;"LETTER) SHOULD BE TAKEN AS 22/7." E7,1;1;"2.";0;" ANSWERS NEED BE GIVEN TO" ,,"ONE DECIMAL PLACE ONLY." H12 ,1;1;"3.";0;" ANSWERS WITHIN 0.1 WILL BE" ,,"CONSIDERED CORRECT." m17,1;1;"4.";0;" UNITS SHOULD NOT BE USED BUT",,"DO NOT FORGET THEM IN THE EXAM." 821,2;6;"PRESS ANY KEY TO CONTINUE" ""160 =""165%   SC=0 I=110  /X=((*10 )+1)*100d+900 A=(*11 )+1 B=(*11 )+1 C=(*20)+1 D=(*20)+1 X 0:0:  6: (100d:1:5:5: *3,11 ;4;"QUESTION ";I  BAB=A+B 7,0;" INTEGRATE THE FUNCTION";9 ,14;C;"x-";D;11 ,0;" BETWEEN x=";A;" AND x=";B;"."  7000X -ANS=C*(B^3-A^3)/3-D*(B-A)  6000p  4000 B0:0: K1:5:5: L*3,11 ;4;"QUESTION ";I O C=C+1 P D=2 QBAD=3 R BAB=A+B V5,0;"FIND THE AREA BETWEEN THE CURVE";7,0;" y=";C;"x";(D+151);9 ,0;"THE x-AXIS AND THE LINES x=";A;11 ,0;"AND x=";B;"." [ 7000X \=ANS=C/(D+1)*B^(D+1)-C/(D+1)*A^(D+1)  6000p  4000 0:0: 1:5:5: *3,11 ;4;"QUESTION ";I  D=1 BAD=3  BAB=A+B E=1+1/D 5,0;"FIND THE AREA BETWEEN THE CURVE";7,0;" y=";C;"x";(151+D);9 ,0;"THE y-AXIS AND THE LINES y=";A;11 ,0;"AND y=";B;"."  7000X ANS=(B^E-A^E)/E/C^(1/D)  6000p  4000  0:0: 1:5:5: *3,11 ;4;"QUESTION ";I  D=1 BAD=2  BAB=A+B 5,0;"FIND THE VOLUME OF THE SOLID"'"FORMED WHEN THE AREA BETWEEN THE"'"THE x-AXIS, THE LINES x=";A;" AND"'"x=";B;" AND THE CURVE y=x";(151+D);'"IS ROTATED ABOUT THE x-AXIS." U 7000X WXANS=22/7/(2*D+1)*(B^(2*D+1)-A^(2*D+1)) Z 6000p d 4000 n0:0: v"20:J:40(::0 w1:5:5: x*3,11 ;4;"QUESTION ";I } A=A+1 ~E=C-B*B*(A/2+1) 5,0;"GIVEN THAT";6,8;"dy";7,12 ;"= ";A;"x+";B;8,8;"dx";9 ,0;"AND THAT y=";C;" WHEN x=";B;" FIND y";10 ,0;"WHEN x=";D;"." &62>,115s:20,0  7000X ANS=A*D*D/2+B*D+E  6000p  4000 0:0: 1:5:5: *3,11 ;4;"QUESTION ";I  A=A+1  B=B+1  C=C+1 5,0;"A PARTICLE MOVES IN A STRAIGHT"'"LINE SO THAT IT'S DISTANCE FROM"'"A FIXED POINT O AFTER t SECONDS"'"IS GIVEN BY:";9 ,8;"s=";A;"t-";B;"t+";C;"t";11 ,0;"FIND IT'S VELOCITY AT TIME t=";D;"."  7000X  !ANS=3*A*D*D-2*B*D+C " 6000p , 4000 60:0: ?1:5:5: @*3,11 ;4;"QUESTION ";I E C=C+1 F A=A+1 G B=B+1 J5,0;"A PARTICLE MOVES IN A STRAIGHT"'"LINE SO THAT IT'S DISTANCE FROM"'"A FIXED POINT O AFTER t SECONDS"'"IS GIVEN BY:";9 ,8;"s=";A;"t-";B;"t+";C;"t"''"FIND IT'S ACCELERATION WHEN t=";D;"."  7000X ANS=6*A*D-2*B  6000p  4000 0:0: 1:5:5: *3,11 ;4;"QUESTION ";I  A=A+1 B=B+A*8 4,0;"THE SPEED OF A PARTICLE MOVING"'"IN A STRAIGHT LINE IS GIVEN BY";6,8;"ds";7,12 ;"= ";A;"t-";B;8,8;"dt"'"WHERE s IS THE DISTANCE AT TIME"'"t. FOR WHAT VALUE OF t IS THE"'"PARTICLE AT REST?" &62>,115s:20,0  7000X  ANS=B/A  6000p  4000 0:0: 1:5:5: *3,11 ;4;"QUESTION ";I  B=B+A*8  A=A+1 5,0;"THE SPEED OF A PARTICLE MOVING"'"IN A STRAIGHT LINE IS GIVEN BY";7,8;"ds";8,12 ;"= ";A;"t-";B;9 ,8;"dt"'"WHERE s IS THE DISTANCE AT TIME"'"t. FIND IT'S ACCELERATION." &62>,108l:20,0 I 7000X KANS=A N 6000p X 4000 b0:0: k1:5:5: l*3,11 ;4;"QUESTION ";I rD=D+700 v4,0;"THE TOTAL COST PER HOUR OF"'"RUNNING A LORRY IS GIVEN BY";6,10 ;A;"+V/";D;8,0;"WHERE Vkm/hr IS THE SPEED OF"'"THE LORRY. IF THE TOTAL COST PER"'"KILOMETRE IS `P, WHAT VALUE OF V"'"MINIMIZES P?"  7000X  ANS=(A*D)  6000p  4000 0: 1:9 m=140( z=(*7)+1 z z:z/20,z y=(*30) x=(*21)  x,y;"" x+1,y;"" m N2,-10  I  <7,2;1;"DEAR ";0;6;Z$;"," 710 ,2;"YOU HAVE SCORED ";SC;" OUT OF 10"; , 250 P 8000z x19,5 ;Q$ 221(,2;"THIS IS YOUR PROGRESS REPORT" ""5300 =""5301  5 pJ$ tj$=""6000p xM=1̱J$ ymJ$(MM)<45-J$(MM)>57919,3;"Please do not use units in the answer." z1J$(MM)<45-J$(MM)>5796000p ~m J=J$ .ANS=((ANS+0.001wn)*100d)/100d J=ANS6045 !(J-ANS)<.099}J6045 <14,2;0;2;"SORRY YOU ARE WRONG"; )16,2;"THE ANSWER IS ";ANS;  6050 .14,2;4;"YOU ARE RIGHT "; 216,2;1;"THE ANSWER IS ";ANS; SC=SC+1 821,2;6;"PRESS ENTER TO CONTINUE."; Q$   X?12 ,0;4;"" Y @ J=0,0;1;"INTEGRATION AND DIFFERENTIATION" K 4 r*5,5;" " s#5 ;" " t#5 ;" " u"5 ;" " v"5 ;" " w"5 ;" " x"5 ;" " y"5 ;" " z"5 ;" " | 1 &,,"WELL DONE YOU ARE LIKELY TO PASS"  100d SC9  2 5 ,220;"L " 6,22;"L " 7,22;"L " 8,22;"L " 9 ,22;"L " 10 ,22;"L " 11 ,22;"L " 12 ,22;"L " 13 ,22;"LLLLL" &,,"YOU ARE NEARLY AT THE PASS LEVEL" & 100H vSC7` 5 ,17;" I " 6,17;" I " 7,17;" I " 8,17;" I " 9 ,17;" I " 10 ,17;" I " 11 ,17;" I " 12 ,17;" I " 13 ,17;" I " &,," YOU STILL HAVE SOME WORK TO DO " 100H SC5 !5 ,110;"AAAAA" !6,11 ;"A A" !7,11 ;"A A" !8,11 ;"AAAAA" !9 ,11 ;"A A" !10 ,11 ;"A A" !11 ,11 ;"A A" ! 12 ,11 ;"A A" ! 13 ,11 ;"A A" ! %,," COME ON YOU CAN DO BETTER " ! 100H !4SC3@ !f5 ,5 ;"FFFFF" !g5 ;"F " !h5 ;"F " !i5 ;"FFF " !j5 ;"F " !k5 ;"F " !l5 ;"F " !m5 ;"F " !n5 ;"F " !p%,," THIS RESULT IS VERY VERY POOR " !z 100H !5:1: ! #(("L",0,112p,80P,112p,0,0,0,0,"K",112p,16,480,16,112p,0,0,0,"J",32 ,80P,16,32 ,112p,0,0,0,"M",0,0,2,124|,36$,36$,36$,0 #)"N",0,0,2,2,2,2,2,2,"O",6,233,9 ,9 ,0,0,0,0,"P",4,4,4,4,5,9 ,113q,0,"Q",0,0,0,192,32 ,32 ,32 ,192 #*E"I",0,0,0,0,0,0,0,0 #2X=19 #<A$ #FA=07 #P B:A$+A,B #ZA #dX #n fg 2#F#b( zyZJ c dn]jeJ4QAIb0Variation and InterestVAR &\&'5:5:1: 5 ,110;"SCISOFT" F=0 G=0  *14`,5 ;"EDUCATIONAL PROGRAMS" ?16,14`;"FOR";18,7`;"SCIENCE STUDENTS"  9000(#  0:  3000 0:0::0 38,10 ;0;6;"MATHEMATICS" A4,4;0;7;" VARIATION AND INTEREST " -21,0;4;"SCISOFT  1983" (200:5:5:1:   -37`,1;"PLEASE TYPE IN YOUR NAME, THEN" 2,,8;"PRESS ENTER." 7Z$ 8Z$=""557 < A:2,3;1;"HELLO ";0;6;Z$ F$,,,," YOU WILL NOW BE GIVEN SOME" K",," MATHS PROBLEMS TO SOLVE." U2,,,,,,1;"AFTER YOU HAVE GIVEN 10 ANSWERS" Z.,,1;" YOU WILL BE GIVEN A SCORE. " _921,2;6;"PRESS ANY KEY TO CONTINUE." d""100H i=""105R n s-4;"PLEASE NOTE THAT IN THIS PROGRAM" C2,1;1;"1.";0;" THE VALUE FOR (GREEK" 54,0;"LETTER) SHOULD BE TAKEN AS 22/7." E7,1;1;"2.";0;" ANSWERS NEED BE GIVEN TO" ,,"ONE DECIMAL PLACE ONLY." H12 ,1;1;"3.";0;" ANSWERS WITHIN 0.1 WILL BE" ,,"CONSIDERED CORRECT." m17,1;1;"4.";0;" UNITS SHOULD NOT BE USED BUT",,"DO NOT FORGET THEM IN THE EXAM." 821,2;6;"PRESS ANY KEY TO CONTINUE" ""160 =""165%   SC=0 I=110  /X=((*10 )+1)*100d+900 A=(*11 )+1 B=(*11 )+1 C=(*20)+1 D=(*20)+1 X 0:0:  6: (100d:1:5:5: *3,11 ;4;"QUESTION ";I A=A+20  D=A*B*B C=BC=B+3 7,0;"IF y VARIES INVERSELY AS x AND";8,0;"y=";A;" WHEN x=";B;", CALCULATE y";9 ,0;"WHEN x=";C;"."  7000X  ANS=D/C/C  6000p  4000 B0:0: K1:5:5: L*3,11 ;4;"QUESTION ";I QA=A*100d RD=A/B SC=C*100d TC=AC=A+502 V5,0;"WHEN MAKING A JOURNEY AT A"'"CONSTANT SPEED THE DISTANCE"'"TRAVELLED IS DIRECTLY"'"PROPORTIONAL TO THE TIME TAKEN."'"IF IT TAKES ";B;" HOURS TO TRAVEL"'A;"km, FIND THE TIME TO TRAVEL "'C;"km."  7000X  ANS=C/D  6000p  4000 0:0: 1:5:5: *3,11 ;4;"QUESTION ";I A=A*100d  D=A/B/B/B C=B+C 7,0;"IF y VARIES DIRECTLY AS THE CUBE";8,0;"OF x AND y=";A;" WHEN x=";B;", FIND y";9 ,0;"WHEN x=";C;"."  7000X  ANS=D*C*C*C  6000p  4000  0:0: 1:5:5: *3,11 ;4;"QUESTION ";I D=A*B C=B+C 7,0;"IF y VARIES INVERSELY AS x AND";8,0;"y=";A;" WHEN x=";B;", FIND y WHEN";9 ,0;"x=";C;"." U 7000X X ANS=D/C Z 6000p d 4000 n0:0: v"20:J:40(::0 w1:5:5: x*3,11 ;4;"QUESTION ";I }C=C/10 ~ E=B*C*C/A  D=D+5 4,0;"THE RESISTANCE OF A PIECE OF";5,0;"WIRE VARIES DIRECTLY AS THE";6,0;"LENGTH AND INVERSELY AS THE";7,0;"SQUARE OF THE RADIUS. IF THE";8,0;"RESISTANCE OF A ";A;"cm LENGTH";9 ,0;"IS ";B;"ohms AND THE RADIUS IS";10 ,0;C;"cm, WHAT LENGTH WILL HAVE";11 ,0;"A RESISTANCE OF ";D;"ohms?"  7000X  ANS=D*C*C/E  6000p  4000 0:0: 1:5:5: *3,11 ;4;"QUESTION ";I A=A*100d  B=B+1 6,0;"ASSUMING SIMPLE INTEREST, FIND";7,0;"THE AMOUNT IF `";A;" IS INVESTED";8,0;"FOR ";B;" YEARS AT ";C;"%."  7000X  ANS=A*B*C/100d+A " 6000p , 4000 60:0: ?1:5:5: @*3,11 ;4;"QUESTION ";I EB=B+A FA=A*100d GB=B*100d J6,0;"ASSUMING SIMPLE INTEREST, FIND";7,0;"THE TIME TAKEN FOR `";A;" TO";8,0;"BECOME `";B;" IF THE RATE OF";9 ,0;"INTEREST PER ANNUM IS ";C;"%."  7000X ANS=(B-A)*100d/A/C  6000p  4000 0:0: 1:5:5: *3,11 ;4;"QUESTION ";I A=A*100d f6,0;"FIND THE COMPOUND INTEREST ON"'"`";A;" INVESTED AT ";B;"%";" p.a. FOR"'C;" YEARS."  7000X !ANS=A*(1+B/100d)^C-A  6000p  4000 0:0: 1:5:5: *3,11 ;4;"QUESTION ";I  A=A*1000  B=B*10 C=C*10 4,0;"WHEN A CURRENT PASSES THROUGH A"'"WIRE THE RATE AT WHICH HEAT IS"'"PRODUCED, W, IS DIRECTLY"'"PROPORTIONAL TO THE SQUARE OF"'"THE VOLTAGE, V AND INVERSELY"'"PROPORTIONAL TO THE LENGTH, L."'"FIND THE CONSTANT OF VARIATION"'"K IF W=";A;",V=";B;" & L=";C;"." I 7000X K ANS=A*C/B/B N 6000p X 4000 b0:0: k1:5:5: l*3,11 ;4;"QUESTION ";I qA=A*1000 rB=B*100d v4,0;"WHEN A CURRENT PASSES THROUGH A"'"WIRE THE RATE AT WHICH HEAT IS"'"PRODUCED, W, IS DIRECTLY"'"PROPORTIONAL TO THE SQUARE OF"'"THE VOLTAGE, V AND INVERSELY"'"PROPORTIONAL TO THE LENGTH, L."'"IF THE CONSTANT OF VARIATION "'"K=";C;",FIND L WHEN W=";A;" & V=";B;"."  7000X  ANS=C*B*B/A  6000p  4000 0: 1:9 M=140( Z=(*7)+1 Z Z:Z/20,Z Y=(*27) X=(*21) Z<4x,y;"xy" Z>3x,y;"x1/y" M N2,-10  I  <7,2;1;"DEAR ";0;6;Z$;"," 710 ,2;"YOU HAVE SCORED ";SC;" OUT OF 10"; , 250 P 8000z x19,5 ;Q$ 221(,2;"THIS IS YOUR PROGRESS REPORT" ""5300 =""5301  5 pJ$ tj$=""6000p xM=1̱J$ yjJ$(MM)<45-J$(MM)>57919,3;"Please do not use units in the answer." z1J$(MM)<45-J$(MM)>5796000p ~m J=J$ .ANS=((ANS+0.001wn)*100d)/100d J=ANS6045 !(J-ANS)<.099}J6045 <14,2;0;2;"SORRY YOU ARE WRONG"; )16,2;"THE ANSWER IS ";ANS;  6050 .14,2;4;"YOU ARE RIGHT "; 216,2;1;"THE ANSWER IS ";ANS; SC=SC+1 821,2;6;"PRESS ENTER TO CONTINUE."; Q$   X?12 ,0;4;"" Y @ J80,4;1;" VARIATION AND INTEREST " K 4 r*5,5;" " s#5 ;" " t#5 ;" " u"5 ;" " v"5 ;" " w"5 ;" " x"5 ;" " y"5 ;" " z"5 ;" " | 1 &,,"WELL DONE YOU ARE LIKELY TO PASS"  100d SC9  2 5 ,220;"L " 6,22;"L " 7,22;"L " 8,22;"L " 9 ,22;"L " 10 ,22;"L " 11 ,22;"L " 12 ,22;"L " 13 ,22;"LLLLL" &,,"YOU ARE NEARLY AT THE PASS LEVEL" & 100H vSC7` 5 ,17;" I " 6,17;" I " 7,17;" I " 8,17;" I " 9 ,17;" I " 10 ,17;" I " 11 ,17;" I " 12 ,17;" I " 13 ,17;" I " &,," YOU STILL HAVE SOME WORK TO DO " 100H SC5 !5 ,110;"AAAAA" !6,11 ;"A A" !7,11 ;"A A" !8,11 ;"AAAAA" !9 ,11 ;"A A" !10 ,11 ;"A A" !11 ,11 ;"A A" ! 12 ,11 ;"A A" ! 13 ,11 ;"A A" ! %,," COME ON YOU CAN DO BETTER " ! 100H !4SC3@ !f5 ,5 ;"FFFFF" !g5 ;"F " !h5 ;"F " !i5 ;"FFF " !j5 ;"F " !k5 ;"F " !l5 ;"F " !m5 ;"F " !n5 ;"F " !p%,," THIS RESULT IS VERY VERY POOR " !z 100H !5:1: ! #(("L",0,112p,80P,112p,0,0,0,0,"K",112p,16,480,16,112p,0,0,0,"J",32 ,80P,16,32 ,112p,0,0,0,"M",0,0,2,124|,36$,36$,36$,0 #-"N",0,14,17,32 ,17,14,0,0,"O",0,480,72H,128,72H,480,0,0 #2X=16 #<A$ #FA=07 #P B:A$+A,B #ZA #dX #n fg2#F#b!( zyZrr c dnUQj8eP J56QAOy