10 CLS
20 PRINT "PARTS OF A TRIANGLE"
30 PRINT
40 DIM A(3),S(3)
50 P=3.1415927
60 PRINT "PROBLEM TYPES: 1=ASA,2=SAS,3=AAS,4=SSA,5=SSS,6=END PROGRAM"
70 PRINT "ENTER PROBLEM TYPE";
80 INPUT X
90 IF X=6 THEN 570  
100 IF X=5 THEN 400  
110 IF X=4 THEN 310  
120 IF X=3 THEN 270  
130 IF X=2 THEN 200  
140 PRINT "ENTER ANGLE,SIDE,ANGLE";
150 INPUT A(1),S(3),A(2)
160 A(3)=P-A(1)-A(2)
170 S(1)=S(3)*SIN(A(1))/SIN(A(3))
180 S(2)=S(3)*SIN(A(2))/SIN(A(3))
190 GOTO 450  
200 PRINT "ENTER SIDE,ANGLE,SIDE";
210 INPUT S(3),A(1),S(2)
220 S(1)=SQR(S(3)^2+S(2)^2-2*(3)*S(2)*COS(A(1)))
230 A(2)=SIN(A(1))/S(1)*S(2)
240 A(2)=ATN(A(2)/SQR(-A(2)*A(2)+1))
250 A(3)=P-A(1)-A(2)
260 GOTO 450  
270 PRINT "ENTER ANGLE,ANGLE,SIDE";
280 INPUT A(3),A(2),S(3)
290 A(1)=P-A(2)-A(3)
300 GOTO 170  
310 PRINT "ENTER SIDE,SIDE,ANGLE";
320 INPUT S(1),S(2),A(1)
330 T=S(2)*SIN(A(1))
340 IF S(1)<T THEN 530  
350 S(3)=SQR(S(2)^2-T^2)
360 IF S(1)<=T THEN 390  
370 Y=SQR(S(1)^2-T^2)
380 S(3)=S(3)+Y
390 GOTO 230  
400 PRINT "ENTER SIDE,SIDE,SIDE";
410 INPUT S(1),S(2),S(3)
420 A(1)=S(2)^2+S(3)^2-S(1)^2)/2/S(2)/S(3)
430 A(1)=-ATN(A(1)/SQR(-A(1)*A(1)+1))+1.5708
440 GOTO 230  
450 PRINT
460 FOR I=1 TO 3
470 IF A(I)<0 THEN 530  
480 PRINT "SIDE";I;"=";INT(S(I)*1000+.5)/1000
490 PRINT "OPPOSITE ANGLE=";INT(A(I)*1000+.5)/1000;"RADIANS"
500 NEXT I
510 PRINT
520 GOTO 70
530 PRINT
540 PRINT "NO SOULTION"
550 PRINT
560 GOTO 70
570 END