00001REM   TUT11
00100PRINT"WITH THIS PROGRAM YOU HAVE AN OPPORTUNITY TO PRACTICE ON: (1) A"
00110PRINT"'TRIG' FUNCTION, (2) A 'LOG' FUNCTION, OR (3) OTHER STANDARD"
00120PRINT"FUNCTIONS. TYPE NUMBER OF CHOICE: WHICH DO YOU WANT TO DO";
00130INPUTC
00140PRINT
00150IFC=1THEN210
00160IFC=2THEN920
00170IFC=3THEN5000
180 IF C=999 THEN 530
185 IF C=777 THEN 1300
190PRINT"YOU AREN'T PLAYING FAIR. BETTER YOU START OVER. TYPE 'RUN' TO START THIS"
191PRINT"LESSON AGAIN."
200 GOTO 9999
00210PRINT"HERE WE GO. PICK ONE OF THE TRIGONOMETRIC FUNCTIONS: SINE,"
00220PRINT"COSINE, OR TANGENT. IN THE SPACE BELOW, WRITE A PROGRAM WHICH"
00230PRINT"WILL GIVE THE FOLLOWING OUTPUT:"
00240PRINT
00250PRINT"     'THE VALUE OF THE (FILL IN FUNCTION NAME) FOR (FILL"
00260PRINT"      IN ANGLE VALUE) DEGREES IS (FILL IN FUNCTION VALUE)'"
00270PRINT
00280PRINT"DO IT FOR 8 SEQUENTIAL ANGLE VALUES. WRITE YOUR PROGRAM HERE:"
00290FORI=1TO20
00300PRINT
00310NEXTI
00320PRINT"WHEN YOU'RE DONE, TYPE '1' AND WE'LL CONTINUE -"
00330PRINT
00340PRINT"             ARE"
00350PRINT
00360PRINT"             YOU"
00370PRINT
00380PRINT"             DONE"
00390PRINT
00400PRINT"             YET"
00410PRINT
00420PRINT"              ";
00430INPUTJ
00440PRINT
00450IFJ=1THEN480
00460PRINT"OK - KEEP WORKING ON IT. DONE YET";
00470GOTO430
00480PRINT"NOW TYPE 'NEW', GIVE YOUR PROGRAM A NAME, ENTER IT WHEN I TYPE"
490PRINT"'READY', AND TRY RUNNING IT. WHEN YOU'RE DONE, TYPE 'RUN TUTR11'"
500PRINT"AGAIN, ONLY THIS TIME BE SURE TO TYPE 999 IN ANSWER TO MY FIRST"
510PRINT"QUESTION."
520 GOTO 9999
530PRINT"AND YOU'VE WRITTEN A PROGRAM. GOOD!! NOW FOR THE $63.95 QUESTION:"
540PRINT"DID IT WORK...(YES OR NO)...";
550 INPUT W$
00560PRINT
570 IF W$<>'YES' THEN 600
580PRINT"THIS MAKES YOU A TRIGONOMETRICT. WOULD YOU LIKE TO TRY ANOTHER"
582PRINT"TYPE OF FUNCTION (YES OR NO)";
584 INPUT C$\IF C$='YES' THEN 100\ IF C$='NO' THEN 9999
585 PRINT"YOU MIGHT WANT TO RUN 'TUTR12' OR 'TUTR13' NOW"
590GOTO9999
00600PRINT"WELL HERE'S ONE THAT WILL. TYPE THE NUMBER OF THE CHOICE HERE:"
00610PRINT"DID YOU USE (1) SINE, (2) COSINE, OR (3) TANGENT";
00620INPUTP
00630PRINT
00640IFP=1THEN680
00650IFP=2THEN680
00660IFP=3THEN680
665 PRINT"LET'S STICK WITH THOSE THREE FOR NOW."
00670GOTO610
00680PRINT"AND WHAT ANGLE DID YOU START WITH? HOW MANY DEGREES";
00690INPUTN
00700PRINT
00710PRINT"HOW ABOUT THE INCREMENT? NUMBER OF DEGREES";
00720INPUTM
00730PRINT
00740PRINT"O.K. - HERE YOU ARE - CALL THE ANGLE 'A':"
00750PRINT
00760PRINT"     100   FOR  A  =  ";N;"TO  ";N+M*7;"STEP  ";M
00770IFP=3THEN860
00780IFP=2THEN890
790PRINT'     110   PRINT "THE VALUE OF THE SINE OF ";'
800PRINT'     120   PRINT A;"DEGREES IS";SIN(A*PI/180)"
00810PRINT"     130   NEXT A"
00820PRINT"     140   END"
00830PRINT
840PRINT"TRY IT OUT; YOU SHOULD BE SUCCESSFUL. THEN CALL IN 'TUTR12'."
845PRINT"OR IF YOU'VE BEEN THROUGH THAT ONE, CALL IN 'TUTR13'."
850 GOTO 9999
860PRINT'     110   PRINT "THE VALUE OF THE TANGENT OF";'
870PRINT'     120   PRINT A;"DEGREES IS";TAN(A*PI/180)"
00880GOTO810
890PRINT'     110   PRINT "THE VALUE OF THE COSINE OF";'
900PRINT'     120   PRINT A;"DEGREES IS";COS(A*PI/180)'
00910GOTO810
00920PRINT"THE FOLLOWING PROGRAM WILL PRINT OUT A TABLE OF COMMON 'LOGS'"
00930PRINT"FROM LOG(2.0) THROUGH LOG(8.8) IN INCREMENTS OF 0.2; HOWEVER"
00940PRINT"IT IS IN THE WRONG ORDER, EXCEPT FOR THE FIRST STATEMENT:"
00950PRINT
00960PRINT"     100 DIM J(10)     (THIS ONE SHOULD BE FIRST)"
00970PRINT
00980PRINT"     200 LET N(J)=LOG(I+J/10)/LOG(10)"
00990PRINT
01000PRINT"     300 NEXT I"
01010PRINT
01020PRINT"     400 PRINT"
01030PRINT
01040PRINT"     500 FOR I=2 TO 8"
01050PRINT
01060PRINT"     600 END"
01070PRINT
1080PRINT'     700 PRINT "  ";I;N(0);N(2);N(4);N(6);N(8)'
1090PRINT"		(NOTE 2 SPACES BETWEEN QUOTATION MARK PAIRS)"
01100PRINT"     800 FOR J=0 TO 8 STEP 2"
01110PRINT
01120PRINT"     900 NEXT J"
01130PRINT
1140PRINT'    1000 PRINT "NUMBER (A) .0 (B) .2 (B) .4 (B) .6 (B) .8"'
01150PRINT"              ('A'=5 SPACES, 'B'=6 SPACES)"
01160PRINT"     NOW WHEN I STOP, YOU DO THE FOLLOWING:"
01170PRINT
01180PRINT"     REARRANGE THE PROGRAM IN PROPER SEQUENCE"
01190PRINT
1200PRINT"     TYPE 'NEW'; WAIT FOR 'NEW PROGRAM NAME--' TO BE PRINTED"
01210PRINT
1220PRINT"     TYPE A NAME FOR YOUR PROGRAM, WAIT FOR 'READY'"
01230PRINT
1240PRINT"     TYPE IN THE PROGRAM, THEN TYPE 'RUN'"
01250PRINT
1260PRINT"     WHEN THE RUN IS COMPLETED, 'RUN TUTR11' AGAIN."
01270PRINT
1280PRINT"     ANSWER MY FIRST QUESTION BY TYPING 777"
1290 GOTO 9999
1300PRINT"DID THE PROGRAM RUN PROPERLY (YES OR NO)";
1310 INPUT Z$
1320 IF Z$='NO' THEN 1360
1322PRINT"WOULD YOU LIKE TO TRY ANOTHER FUNCTION EXERCISE (YES OR NO)";
1324INPUT X$\IF X$='YES' THEN 100\ IF X$='NO' THEN 1330
01330PRINT"THEN I GUESS YOU'RE A LOGARITHMIAN - PROCEED WITH YOUR LESSON"
1340PRINT"BY RUNNING 'TUTR12' (IF YOU'RE THROUGH WITH THAT ONE RUN"
1345PRINT"'TUTR13'). YOU'RE DOING FINE."
1350GOTO 9999
01360PRINT"WELL, HERE'S A SEQUENCE THAT WILL WORK FOR YOU:"
01370PRINT
01380FORA=200TO900STEP100
01390READB
01400PRINT"     CHANGE   ";A;" TO  ";B
01410NEXTA
1420PRINT"     CHANGE   1000  TO   110"
01430DATA150,180,120,130,190,170,140,160,110
01440PRINT
1450PRINT"TRY IT - AND WATCH IT WORK, THEN RUN 'TUTR12' (OR IF YOU'VE"
1455PRINT"BEEN THROUGH THAT LESSON, RUN 'TUTR13'."
1470GOTO 9999
05000PRINT"TRY THIS ONE: WHAT IS ABS(SQR(15-6*INT(1.8742)))";
05010INPUTE
05020PRINT
05030IFE=3THEN5100
05040PRINT"NO; INT(1.8742)=1 (INTEGER PART), SO 6*INT(1.8742)-6*1, OR 6."
05050PRINT"THEN SQR(15-6) IS +3 OR -3, AND ABS(+3) OR ABS(-3) ARE BOTH 3."
5051 GOTO 5109
5100PRINT "VERY GOOD."
5109PRINT"HOW ABOUT: INT(5-ABS(SQR(1.84+ABS(1-X)))) WHEN X=4";
05110INPUTG
05130IFG=2THEN5200
05140PRINT"CAN'T BE. NOTICE: ABS(1-X)=ABS(-3) WHICH IS +3, AND SQR(1.84+3)"
05150PRINT"IS +2.2 OR -2.2. NOW ABS(+2.2) AND ABS(-2.2) ARE BOTH 2.2, AND"
05160PRINT"INT(5-2.2), OR INT(2.8), IS 2 (INTEGER PART ONLY) - THE ANSWER."
05170 GO TO 5220
05200	IF E<>3 THEN 5220
05210PRINT"YOU HAD THEM BOTH RIGHT, SO I'LL PRONOUNCE YOU A FUNCTIONEER."
5220PRINT"LET'S GO ON WITH OUR LESSON. RUN 'TUTR12', OR IF YOU'VE"
5230PRINT"COMPLETED THAT ONE, RUN 'TUTR13'."
9999END