Polluks: Category

2015-09-10T21:37:55Z

Luis46coco: Created page with " 100 DIM AG(2), SD(3) 110 CLS: PRINT@4,"TRIGONOMETRIC FUNCTIONS" 120 PRINT@98,"FIND VALUES (ENTER ONE SIDE" 130 PRINT@130,"AND ONE ANGLE):" 140 PRINT@262,CHR$(136);: REM--..."

2013-03-25T15:27:09Z

Created page with " 100 DIM AG(2), SD(3) 110 CLS: PRINT@4,"TRIGONOMETRIC FUNCTIONS" 120 PRINT@98,"FIND VALUES (ENTER ONE SIDE" 130 PRINT@130,"AND ONE ANGLE):" 140 PRINT@262,CHR$(136);: REM--..."

New page

100 DIM AG(2), SD(3)
110 CLS: PRINT@4,"TRIGONOMETRIC FUNCTIONS"
120 PRINT@98,"FIND VALUES (ENTER ONE SIDE"
130 PRINT@130,"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 -- FIND VALUES
290 S=0: P=212: REM--FIND SIDE
300 IF NOT (S<3) THEN 290
310 S=S+1
320 PRINT@P+(S*32),"";: INPUT A$
330 IFVAL(A$)=0 THEN 300
340 IF (VAL(A$)>0) AND (VAL(A$)<99999) THEN SD(S)=VAL(A$): GOTO360
350 PRINT@P+(S*32),"": GOTO320
360 A=0: P=340: REM--FIND ANGLE
370 IF NOT(A<2) THEN 360
380 A=A+1
390 PRINT@P+(A*32),"";: INPUT A$
400 IFVAL(A$)=0 THEN 370
410 IF (VAL(A$)>=1) AND (VAL(A$)<=89) THEN AG(A)=VAL(A$): GOTO430
420 PRINT@P+(A*32),"": GOTO390
430 REM -- FORMULAS
440 IF A=1 THEN AG(2)=90-AG(1)
450 IF A=2 THEN AG(1)=90-AG(2)
460 IF S<>1 THEN 480
470 SD(2)=SD(1)/TAN(AG(1)/57.2958279): GOTO500
480 IF S<>2 THEN 510
490 SD(1)=SD(2)*TAN(AG(1)/57.2958279)
500 SD(3)=SQR((SD(1)^2)+(SD(2)^2)): GOTO530
510 SD(2)=SD(3)*COS(AG(1)/57.2958279)
520 SD(I)=SQR((SD(3)^2)-(SD(2)^2))
530 P=212: REM--PRINT SIDES
540 FOR I=1 TO 3
550 IF I=S THEN 580
560 A$=STR$(SD(I))
570 PRINT@P+(I*32)," "+MID$(A$,2,8)
580 NEXT I
590 P=340: REM--PRINT ANGLE
600 FOR I=1 TO 2
610 IF I=A THEN 640
620 A$=STR$(AG(I))
630 PRINT@P+(I*32)," "+MID$(A$,2,8)
640 NEXT I
650 PRINT@480,"PRESS K TO RESTART";: A$=INKEY$
660 IF A$="R" THEN 110
670 GOTO650

← Older revision		Revision as of 17:37, 10 September 2015
Line 57:		Line 57:
	660 IF A$="R" THEN 110		660 IF A$="R" THEN 110
	670 GOTO650		670 GOTO650

			[[Category:BASIC]]

TRIG1 - Revision history

Polluks: Category

Luis46coco: Created page with " 100 DIM AG(2), SD(3) 110 CLS: PRINT@4,"TRIGONOMETRIC FUNCTIONS" 120 PRINT@98,"FIND VALUES (ENTER ONE SIDE" 130 PRINT@130,"AND ONE ANGLE):" 140 PRINT@262,CHR$(136);: REM--..."