100 lines
4.8 KiB
QBasic
100 lines
4.8 KiB
QBasic
10 FORH=1TO35:PRINT:NEXT
|
|
20 PRINT"TRIGNOMETRY DEALS":PRINT"PRIMARILY WITH SIX"
|
|
22 PRINT"RATIOS CALLED":PRINT"TRIGNOMETRIC FUNCTIONS.":PRINT
|
|
25 PRINT"THE FIRST OF THESE":PRINT"FUNCTIONS IS THE SINE.":PRINT
|
|
30 PRINT"SINE IS USUALLY WRITTEN":PRINT"AS 'SIN' IN TRIGNOMETRY."
|
|
32 FORH=1TO7:PRINT:NEXT:FORH=1TO13000:NEXT
|
|
35 PRINT"THE SINE OF ANGLE 'A'":PRINT"IS THE OPPOSITE"
|
|
36 PRINT"SIDE DIVIDED BY"
|
|
37 PRINT"THE HYPOTENUSE."
|
|
40 PRINT:PRINT"THE HYPOTENUSE IS THE"
|
|
42 PRINT"THE LONGEST SIDE OF A":PRINT"RIGHT ANGLED TRIANGLE."
|
|
44 PRINT:PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
|
|
46 FORH=1TO10:PRINT:NEXT:GOSUB4000:GOSUB5000
|
|
50 PRINT"THUS: SIN(A)=":PRINT"LENGHT OF SIDE 'y'"
|
|
52 PRINT"DIVIDED BY 'r'.":PRINT:PRINT"OR SIN(A)=y/r.":PRINT
|
|
54 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE"
|
|
56 PRINT"VALUE OF SIN(A)?":PRINT:PRINT"SINCE SIN(A)=y/r OR"
|
|
58 PRINT"SIN(A)=3/5=.6":PRINT:PRINT"HIT 'SPACE BAR' TO"
|
|
60 PRINT"CONTINUE PROGRAM.":FORH=1TO9:PRINT:NEXT
|
|
62 GOSUB4000:GOSUB5000:PRINT"THE NEXT TRIG. FUNCTION"
|
|
90 PRINT"IS THE 'COS' OR COSINE.":PRINT
|
|
92 PRINT"THE COS(A) EQUALS THE":PRINT"LENGTH OF THE ADJACENT"
|
|
95 PRINT"SIDE DIVIDED BY THE":PRINT"LENGHT OF":PRINT"THE HYPOTENUSE."
|
|
97 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM"
|
|
99 FORH=1TO12:PRINT:NEXT:GOSUB4000:GOSUB5000
|
|
102 PRINT"THUS THE 'COS' OF ANGLE":PRINT"A EQUALS x/r"
|
|
105 PRINT"OR COS(A)=x/r.":PRINT:PRINT"IF x=4, y=3, AND r=5"
|
|
108 PRINT"THEN WHAT IS THE COS(A)?":PRINT
|
|
111 PRINT"SINCE COS(A)=x/r OR":PRINT"COS(A)=4/5=.8"
|
|
114 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
|
|
117 FORH=1TO11:PRINT:NEXT:GOSUB4000:GOSUB5000
|
|
212 PRINT"THUS 'TAN' OF ANGLE A":PRINT"EQUALS THE LENGTH OF y"
|
|
218 PRINT"DIVIDED BY THE LENGTH":PRINT"OF x. OR: TAN(A)=y/x."
|
|
220 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
|
|
222 FORH=1TO14:PRINT:NEXT:GOSUB4000:GOSUB5000
|
|
240 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE TAN(A)?"
|
|
245 PRINT:PRINT"SINCE TAN(A)=y/x THUS":PRINT"TAN(A)=3/4=.75"
|
|
248 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
|
|
250 FORH=1TO11:PRINT:NEXT:GOSUB4000:GOSUB5000
|
|
270 PRINT"NOW LET'S HAVE A SHORT":PRINT"QUIZ TO TEST YOUR"
|
|
275 PRINT"KNOWLEDGE OF THE SIN,":PRINT"COS, AND TAN."
|
|
280 PRINT:PRINT"PLEASE GIVE":PRINT"DECIMAL ANSWERS!":PRINT:PRINT
|
|
285 PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
|
|
290 FORH=1TO6:PRINT:NEXT:GOSUB5000
|
|
295 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE COS(A)?"
|
|
300 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
|
|
305 IFA1<>.8THENPRINT"WRONG":PRINT"x/r=4/5=.8"
|
|
308 IFA1=.8THENPRINT"RIGHT!"
|
|
310 GOSUB6000
|
|
315 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE SIN(A)?"
|
|
320 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
|
|
325 IFA1<>.6THENPRINT"WRONG":PRINT"y/r=3/5=.6"
|
|
330 IFA1=.6THENPRINT"RIGHT!"
|
|
334 GOSUB6000
|
|
350 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE TAN(A)?"
|
|
355 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
|
|
360 IFA1<>.75THENPRINT"WRONG":PRINT"y/x=3/4=.75"
|
|
365 IFA1=.75THENPRINT"RIGHT!"
|
|
370 GOSUB6000
|
|
400 PRINT"THIS NEXT SECTION IS":PRINT"A LITTLE TOUGHER.":PRINT
|
|
410 PRINT"THE QUESTIONS WILL":PRINT"ASK YOU ABOUT THE"
|
|
415 PRINT"SIN, COS, AND TAN OF":PRINT"ANGLE B: NOT ANGLE A!"
|
|
420 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
|
|
425 FORH=1TO7:PRINT:NEXT:GOSUB5000
|
|
430 FORH=1TO27:PRINT:NEXT:PRINT"REMEMBER:"
|
|
435 PRINT"COS EQUALS ADJACENT SIDE":PRINT"DIVIDED BY HYPOTENUSE"
|
|
440 PRINT:PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE COS(B)?"
|
|
445 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
|
|
450 IFA1<>.6THENPRINT"WRONG":PRINT"y/r=3/5=.6"
|
|
455 IFA1=.6THENPRINT"RIGHT!"
|
|
460 GOSUB6000
|
|
490 PRINT"SIN EQUALS OPPOSITE SIDE":PRINT"DIVIDED BY HYPOTENUSE."
|
|
500 PRINT:PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE SIN(B)?"
|
|
510 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
|
|
520 IFA1<>.8THENPRINT"WRONG":PRINT"x/r=4/5=.8"
|
|
530 IFA1=.8THENPRINT"RIGHT!"
|
|
535 GOSUB6000
|
|
550 PRINT"TAN EQUALS OPPOSITE SIDE":PRINT"DIVIDED BY THE"
|
|
555 PRINT"ADJACENT SIDE.":PRINT
|
|
560 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE TAN(B)?"
|
|
570 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1$
|
|
575 IFLEFT$(A1$,3)="1.3"THENPRINT"RIGHT!"
|
|
580 IFLEFT$(A1$,3)<>"1.3"THENPRINT"WRONG":PRINT"x/y=4/3=1.33"
|
|
600 GOSUB6000:PRINT"THIS IS THE END":PRINT"OF THE PROGRAM."
|
|
610 PRINT:PRINT"DO YOU WANT TO":INPUT"RUN IT AGAIN";A1$
|
|
620 IF LEFT$(A1$,1)="Y"THEN10
|
|
630 END
|
|
4000 FORH=0TO16:POKE54060+H,135:NEXT
|
|
4010 FORH=0TO7:POKE54127-32*H,143:NEXT
|
|
4020 FORH=0TO9:POKE54032-H*31,189:NEXT
|
|
4030 FORH=0TO9:POKE54042-H*32,136:NEXT
|
|
4040 POKE54063,207:POKE54128,45:POKE54129,89
|
|
4050 POKE54094,65:POKE54011,43:POKE54012,88
|
|
4060 POKE54036,120:POKE53876,114:POKE53881,121
|
|
4070 POKE53936,43:POKE53937,89:POKE54028,45:POKE54029,88
|
|
4080 POKE53755,66:POKE54041,210:RETURN
|
|
5000 POKE530,1:POKE57088,1
|
|
5100 IFPEEK(57088)=239THENFORH=1TO28:PRINT:NEXT:RETURN
|
|
5200 GOTO5000
|
|
6000 FORH=1TO6000:NEXT:FORH=1TO26:PRINT:NEXT:RETURN
|