1 REM Ins{nt av 2314
10 ; CHR$(12)CUR(0,2)"TRIANGELL\SNING"
20 ; 
30 DIM A(3),S(3)
40 P=PI
50 ; "L\SNINSM\JLIGHETER"; : ; : ; "1=VSV  2=SVS 3=VVS  4=SSV  5=SSS  6=SLUT"
60 ; : ; : ; "V[LJ METOD!";
70 INPUT X
80 ON X GOTO 90,150,220,260,350,520
90 ; "VINKEL1,SIDA,VINKEL2";
100 INPUT A(1),S(3),A(2)
110 A(3)=P-A(1)-A(2)
120 S(1)=S(3)*SIN(A(1))/SIN(A(3))
130 S(2)=S(3)*SIN(A(2))/SIN(A(3))
140 GOTO 400
150 ; "SIDA1,VINKEL,SIDA2";
160 INPUT S(3),A(1),S(2)
170 S(1)=SQR(S(3)^2+S(2)^2-2*S(3)*S(2)*COS(A(1)))
180 A(2)=SIN(A(1))/S(1)*S(2)
190 A(2)=ATN(A(2)/((SQR(1-A(2)^2%))))
200 A(3)=P-A(1)-A(2)
210 GOTO 400
220 ; "VINKEL1,VINKEL2,SIDA";
230 INPUT A(3),A(2),S(3)
240 A(1)=P-A(2)-A(3)
250 GOTO 120
260 ; "SIDA1,SIDA2,VINKEL";
270 INPUT S(1),S(2),A(1)
280 T=S(2)*SIN(A(1))
290 IF S(1)<T THEN 480
300 S(3)=SQR(S(2)^2%-T^2%)
310 IF S(1)<T THEN 340
320 Y=SQR(S(1)^2%-T^2%)
330 S(3)=S(3)+Y
340 GOTO 180
350 ; "SIDA1,SIDA2,SIDA3";
360 INPUT S(1),S(2),S(3)
370 A(1)=(S(2)^2%+S(3)^2%-S(1)^2%)/2/S(2)/S(3)
380 A(1)=ATN((SQR(1-A(1)^2%))/A(1))
390 GOTO 180
400 ; 
410 FOR I=1 TO 3
420 IF A(I)<0 THEN 480
430 ; "SIDA";I;"=";INT(S(I)*1000+.5)/1000
440 ; "MOTSATTA VINKELN=";INT(A(I)*1000+.5)/1000;"RADIANER"
450 NEXT I
460 ; 
470 GOTO 60
480 ; 
490 ; CHR$(12)"INGEN L\SNING"
500 ; 
510 GOTO 60
520 REM 
530 END