Listing of file='26' on disk='vmedia/glbr_22.wvd.zip'
# Sector 491, program filename = '26' 0005 SELECT R 0010 DIM A(3),S(3) 0039 PRINT "PROBLEM TYPES: 0=END PROGRAM,1=AAS,2=ASA,3=SSA,4=SAS,5=SSS" 0040 PRINT "INPUT PROBLEM TYPE" 0050 INPUT Z 0060 IF Z=0 THEN 999 0070 IF Z=1 THEN 420 0080 IF Z=2 THEN 390 0090 IF Z=3 THEN 470 0100 IF Z=4 THEN 350 0300 PRINT "INPUT 'SIDE,SIDE,SIDE'" 0305 INPUT S(1),S(2),S(3) 0310 A(1)=(S(2)^2+S(3)^2-S(1)^2)/2/S(2)/S(3) 0320 A(1)=ATN(SQR(1-A(1)^2)/A(1)) 0330 GOSUB 800 0340 GOTO 40 0350 PRINT "INPUT 'SIDE,ANGLE,SIDE'" 0355 INPUT S(3),A(1),S(2) 0360 S(1)=SQR(S(3)^2+S(2)^2-2*S(3)*S(2)*COS(A(1))) 0370 GOSUB 800 0380 GOTO 40 0390 PRINT "INPUT 'ANGLE,SIDE,ANGLE'" 0395 INPUT A(1),S(3),A(2) 0400 A(3)=3.1415927-A(1)-A(2) 0410 GOTO 440 0420 PRINT "INPUT 'ANGLE,ANGLE,SIDE'" 0425 INPUT A(3),A(2),S(3) 0430 A(1)=3.1415927-A(2)-A(3) 0440 S(1)=S(3)*SIN(A(1))/SIN(A(3)) 0450 S(2)=S(3)*SIN(A(2))/SIN(A(3)) 0460 GOSUB 825 0465 GOTO 40 0470 PRINT "INPUT 'SIDE,SIDE,ANGLE'" 0475 INPUT S(1),S(2),A(1) 0480 X=S(2)*SIN(A(1)) 0490 IF S(1)<X THEN 900 0500 S(3)=SQR(S(2)^2-X^2) 0502 IF S(1)>X THEN 510 0504 GOSUB 800 0506 GOTO 40 0510 Z=SQR(S(1)^2-X^2) 0530 S(3)=S(3)+Z 0540 GOSUB 800 0550 PRINT "ALTERNATE SOLUTION" 0560 S(3)=S(3)-2*Z 0565 A(3)=A(2)-A(1) 0570 A(2)=3.1415927-A(2) 0575 GOSUB 825 0580 GOTO 40 0800 A(2)=SIN(A(1))/S(1)*S(2) 0810 A(2)=ATN(A(2)/SQR(1-A(2)^2)) 0820 A(3)=3.1415927-A(1)-A(2) 0825 PRINT 0830 FOR I=1 TO 3 0835 IF A(I)<0 THEN 901 0840 PRINT "SIDE";I;"=";S(I) 0841 PRINT "OPPOSITE ANGLE=";A(I);"RADIANS" 0850 NEXT I 0860 PRINT 0870 RETURN 0900 PRINT 0901 PRINT "NO SOLUTION" 0902 PRINT 0910 GOTO 40 0999 SELECT D : END