MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues. 2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)

TRIG2

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
100 DIM AG(2), SD(3)
110 CLS: PRINT@4,"TRIGONOMETRIC FUNCTIONS"
120 PRINT@99,"QUIZ GIVEN ONE SIDE AND"
130 PRINT@131,"AND ONE ANGLE):"
140 PRINT@262,CHR$(136);: REM--DRAW TRIANGLE
150 PRINT@386,CHR$(136)+" "+CHR$(136);
160 FOR I=387 TO 389
170 PRINT@I,CHR$(140);: NEXT I
180 FOR I=294 TO 358 STEP 32
190 PRINT@I,CHR$(138);: NEXT I
200 FOR I=293 TO 355 STEP 31
210 PRINT@I,CHR$(137);: NEXT I
220 PRINT@385,"A";: PRINT@391,"C";
230 PRINT@231,"B";: PRINT@323,"3";
240 PRINT@327,"1";: PRINT@420,"2";
250 PRINT@237,"SIDE 1=";: PRINT@274,"2=";
260 PRINT@306,"3=";: PRINT@364,"ANGLE A=";
270 PRINT@402,"B=";: PRINT@434,"C= 90"
280 REM -- QUIZ
290 S=RND(3): A=RND(2): REM--SELECT RANDOM SIDE AND ANGLE
300 SD(S)=RND(99): AG(A)=RND(81)+4
310 A$=STR$(SD(S))
320 PRINT@214+(S*32),MID$(A$,2,6)
330 A$=STR$(AG(A))
340 PRINT@342+(A*32),MID$(A$,2,4)
350 REM -- FORMULAS
360 IF A=1 THEN AG(2)=90-AG(1)
370 IF A=2 THEN AG(1)=90-AG(2)
380 IF S<>1 THEN 400
390 SD(2)=SD(1)/TAN(AG(1)/57.2958279): GOTO420
400 IF S<>2 THEN 430
410 SD(1)=SD(2)*TAN(AG(1)/57.2958279)
420 SD(3)=SQR((SD(1)^2)+(SD(2)^2)) : GOTO450
430 SD(2)=SD(3)*COS(AG(1)/57.2958279)
440 SD(1)=SQR((SD(3)^2)-(SD(2)^2))
450 I=0: P=212: REM--QUIZ SIDES
460 IF NOT(I<3) THEN 510
470 I=I+1: IF I=S THEN 460
480 PRINT@P+(I*32),"";: INPUT A$
490 IF (VAL(A$)=<(SD(I)+1)) AND (VAL(A$)=>(SD(I)-1)) THEN 460
500 PRINT@P+(I*32),"": GOTO480
510 I=0: P=340: REM--QUIZ ANGLES
520 IF NOT (I<2) THEN 370
530 I=I+1: IF I=A THEN 570
540 PRINT@P+(I*32),"";: INPUT A$
550 IF (VAL(A$)=<(AG(I)+1)) AND (VAL(A$)=>(AG(I)-1)) THEN 520
560 PRINT@P+(I*32),"": GOTO540
570 PRINT@480,"PRESS R TO RESTART";: A$=INKEY$
580 IF A$="R" THEN 110
590 GOTO570