Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0024/tutr11.bas
There are 2 other files named tutr11.bas in the archive. Click here to see a list.
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
00180IFC=10652THEN530
00185IFC=27429THEN1300
00190PRINT"YOU AREN'T PLAYING FAIR. BETTER YOU START OVER: TYPE 'RUN'."
00200STOP
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"
00490PRINT"AN '*', AND TRY RUNNING IT. WHEN YOU'RE DONE, TYPE 'OLD' AND"
00500PRINT"WHEN I'M READY, TYPE 'TUTR11*' AGAIN.  ONLY THIS TIME BE VERY"
00510PRINT"SURE YOU TYPE 10652 IN ANSWER TO MY FIRST QUESTION."
                  00520STOP
00530PRINT"AND YOU'VE WRITTEN A PROGRAM! GOOD. NOW FOR THE 63.95 QUESTION:"
00540PRINT"(1=YES, OTHER NUMBERS=NO) DID IT WORK...?";
00550INPUTW
00560PRINT
00570IFW<>1THEN600
00580PRINT"THIS MAKES YOU A TRIGONOMETRICT.  SO CALL IN 'TUTR12*', OR"
00585PRINT "IF YOU'VE BEEN THROUGH THAT ONE CALL IN 'TUTR13*'. OK."
00590STOP
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
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
00790PRINT"     110   PRINT ''THE VALUE OF THE SINE OF'';"
00800PRINT"     120   PRINT A;''DEGREES IS'';SIN(A*3.14159/180)"
             00810PRINT"     130   NEXT A"
00820PRINT"     140   END"
00830PRINT
00840PRINT"TRY IT OUT; YOU SHOULD BE SUCCESSFUL. THEN CALL IN 'TUTR12*',"
00845PRINT"OR IF YOU'VE BEEN THROUGH THAT ONE CALL IN 'TUTR13*'.  OK?"
00850STOP
00860PRINT"     110   PRINT ''THE VALUE OF THE TANGENT OF'';"
00870PRINT"     120   PRINT A;''DEGREES IS'';TAN(A*3.14159/180)"
00880GOTO810
00890PRINT"     110   PRINT ''THE VALUE OF THE COSINE OF'';"
00900PRINT"     120   PRINT A;''DEGREES IS'';COS(A*3.14159/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
01080PRINT"     700 PRINT ''  '';I;N(0);N(2);N(4);N(6);N(8)"
                 01090PRINT"              (2 SPACES BETWEEN QUOTATION MARK PAIRS)"
01100PRINT"     800 FOR J=0 TO 8 STEP 2"
01110PRINT
01120PRINT"     900 NEXT J"
01130PRINT
01140PRINT"    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
01200PRINT"     TYPE 'NEW'; WAIT FOR 'PROGRAM NAME?'"
01210PRINT
01220PRINT"     TYPE A NAME FOR YOUR PROGRAM; WAIT FOR AN '*' TO PRINT."
            01230PRINT
01240PRINT"     TYPE OUT THE PROGRAM; THEN TYPE 'RUN'"
01250PRINT
01260PRINT"     WHEN RUN IS COMPLETED, CALL IN 'TUTR11*' AGAIN"
01270PRINT
01280PRINT"     ANSWER MY FIRST QUESTION BY TYPING 27429"
01290STOP
01300PRINT"DID THE PROGRAM RUN PROPERLY (0=NO, OTHER NUMBERS=YES) ";
01310INPUTZ
01320IFZ=0THEN1360
01330PRINT"THEN I GUESS YOU'RE A LOGARITHMIAN - PROCEED WITH YOUR LESSON"
01340PRINT"BY CALLING IN 'TUTR12*' (IF YOU'RE THROUGH WITH THAT ONE"
01345PRINT"CALL IN 'TUTR13*' ) FROM THE LIBRARY. YOU'RE DOING FINE."
            01350STOP
01360PRINT"WELL, HERE'S A SEQUENCE THAT WILL WORK FOR YOU:"
01370PRINT
01380FORA=200TO900STEP100
01390READB
01400PRINT"     CHANGE   ";A;" TO  ";B
01410NEXTA
01420PRINT"     CHANGE   1000   TO   110"
01430DATA150,180,120,130,190,170,140,160,110
01440PRINT
01450PRINT"TRY IT-AND WATCH IT WORK. THEN CALL IN 'TUTR12*'(OR IF"
01455PRINT"YOU'VE BEEN THROUGH THAT CALL 'TUTR13*') FROM THE LIBRARY"
01470STOP
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."
05100PRINT"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."
05220PRINT"LET'S GO ON WITH OUR LESSON. CALL IN 'TUTR12*',OR IF YOU'VE"
05230PRINT"COMPLETED THAT ONE CALL IN 'TUTR13*'."
05240END