TROJUHELNIK u'#"CRT:M1":MAX:@,*:Z(Y)(Yz)z  -B$" M ":"NADPIS"0" INFORMACE ................... I"," OBRAZEK ..................... O"," VYPOCET ..................... V"," KONEC ....................... K"1 H$"Z CINNOST " "INP" G$"I"  G$"O"  G$"V" G$"K" 2  )B$" Z ":"NADPIS"/" -- ....................... 1"," -- ....................... 2"," S-- ....................... 3"," -- ....................... 4"," A,B,C ....................... 5"8H$"Z ZPUSOB ZADANI ":"INP")((G$))((G$) )  (G$) , 4, Q, , B$" -- ":"NADPIS"3" =BC, B, G .... 1"." =AC, A, G .... 2"." =AB, A, B .... 3"1H$"CO ZADAVAT ? " "INP")((G$))((G$)@)  (G$) !, &, +!!" = BC = ";BC:"PIP":S1BC#""B = ";BETA:"PIP":U1BETA##"G = ";GAMA:"PIP":U2GAMA$"":ALFAU3:ACS2:ABS3 % !&" = AC = ";AC:"PIP":S1AC#'"A = ";ALFA:"PIP":U1ALFA#("G = ";GAMA:"PIP":U2GAMA)"":BETAU3:BCS2:ABS3 * !+" = AB = ";AB:"PIP":S1AB#,"A = ";ALFA:"PIP":U1ALFA#-"B = ";BETA:"PIP":U2BETA."":GAMAU3:BCS2:ACS3 /""0U34(U1U2)*1S2S1(U14)(U34)*2S3S1(U24)(U34)34B$" -- ":"NADPIS"35" A, =AC, =AB .... 1".6" B, =BC, =AB .... 2".7" G, =BC, =AC .... 3"18H$"CO ZADAVAT ? " 9"INP"):((G$))((G$)@) 9;(G$) <, A, F#<"A = ";ALFA:"PIP":U1ALFA!=" = AC = ";AC:"PIP":S1AC!>" = AB = ";AB:"PIP":S2AB!?"":BETAU2:GAMAU3:BCS3 @ #A"B = ";BETA:"PIP":U1BETA!B" = BC = ";BC:"PIP":S1BC!C" = AB = ";AB:"PIP":S2AB!D"":ALFAU2:GAMAU3:ACS3 E #F"G = ";GAMA:"PIP":U1GAMA!G" = BC = ";BC:"PIP":S1BC!H" = AC = ";AC:"PIP":S2AC!I"":ALFAU2:BETAU3:ABS3 J K""4LS3(S1S1S2S2S1S2(U14))MS(S1S2S3)3NU2(4)(((SS3)(SS2)(S(SS1))))OU34(U1U2)PQB$" S-- ":"NADPIS"0R" =AC<=BC, A ..... 1".S" =BC<=AC, B ..... 2".T" =AB<=AC, B ..... 3".U" =AC<=AB, G ..... 4".V" =AB<=BC, A ..... 5".W" =BC<=AB, G ..... 6"1XH$"CO ZADAVAT ? " Y"INP")Z((G$))((G$)@) Y$[(G$) \, a, f, k, p, u!\" = AC = ";AC:"PIP":S2AC!]" = BC = ";BC:"PIP":S1BC#^"A = ";ALFA:"PIP":U1ALFA!_"S":BETAU2:GAMAU3:ABS3 ` !a" = BC = ";BC:"PIP":S2BC!b" = AC = ";AC:"PIP":S1AC#c"B = ";BETA:"PIP":U1BETA!d"S":ALFAU2:GAMAU3:ABS3 e !f" = AB = ";AB:"PIP":S2AB!g" = AC = ";AC:"PIP":S1AC#h"B = ";BETA:"PIP":U1BETA!i"S":GAMAU2:ALFAU3:BCS3 j !k" = AC = ";AC:"PIP":S2AC!l" = AB = ";AB:"PIP":S1AB#m"G = ";GAMA:"PIP":U1GAMA!n"S":BETAU2:ALFAU3:BCS3 o !p" = AB = ";AB:"PIP":S2AB!q" = BC = ";BC:"PIP":S1BC#r"A = ";ALFA:"PIP":U1ALFA!s"S":GAMAU2:BETAU3:ACS3 t !u" = BC = ";BC:"PIP":S2BC!v" = AB = ";AB:"PIP":S1AB#w"G = ";GAMA:"PIP":U1GAMA!x"S":ALFAU2:BETAU3:ACS3 y"S"zUUS2(U14)S1*{U2(4)(UU(UUUU))|U34(U1U2)*}S3S1(U34)(U14)~B$" -- ":"NADPIS"*" Z "%" , :""" -<<+",@" = BC = ";BC:"PIP"" = AC = ";AC:"PIP"" = AB = ";AB:"PIP"S(BCACAB)5ALFA(4)(((SAC)(SAB)(S(SBC))))BBAC(ALFA4)BC,BETA(4)(BB(BBBB))GAMA4(ALFABETA) B$" A,B,C ":"NADPIS"*" Z "&" ",@"A() = ";AX:"PIP""A() = ";AY:"PIP""B() = ";BX:"PIP""B() = ";BY:"PIP""C() = ";CX:"PIP""C() = ";CY:"PIP"+AB((BXAX)(BXAX)(BYAY)(BYAY))+AC((CXAX)(CXAX)(CYAY)(CYAY))+BC((CXBX)(CXBX)(CYBY)(CYBY))1AA((BXAX)(CXAX)(BYAY)(CYAY))(ABAC)1ALFA44(AA(AAAA))1BB((AXBX)(CXBX)(AYBY)(CYBY))(ABBC)1BETA44(BB(BBBB))GAMA4(ALFABETA) P(B$" V ":"NADPIS":"MELODY"OVABACBCSOV"OS(S(SAB)(SAC)(SBC))VAAC(GAMA4)VBBC(GAMA4)VCBC(BETA4)-TA((ACACABAB)BCBC)-TB((BCBCABAB)ACAC)-TC((BCBCACAC)ABAB)0OA(ACAB(ALFA4))(ACAB)0OB(BCAB(BETA4))(BCAB)0OG(BCAC(GAMA4))(BCAC)RACABBC(OS) QOSSD(RRRQ)P !" S :"0" A() =";AX;( );" A() =";AY0" B() =";BX;( );" B() =";BY0" C() =";CX;( );" C() =";CY"" S :"," T() =";Z((AXBXCX)@)," T() =";Z((AYBYCY)@)"PRESS":"NADPIS"" D :"" = BC =";Z(BC)" = AC =";Z(AC)" = AB =";Z(AB)!" O : =";Z(OV)!" O : S =";Z(OS)"PRESS":"NADPIS"" D :"" T =";Z(TA)" T =";Z(TB)" T =";Z(TC)" V :"" V =";Z(VA)" V =";Z(VB)" V =";Z(VC)"PRESS":"NADPIS"" V :"#" A =";Z(ALFA);"{"#" B =";Z(BETA);"{"#" G =";Z(GAMA);"{"" D :" " O() =";Z(OA) " O() =";Z(OB) " O() =";Z(OG)"PRESS":"NADPIS"&" P :" " =";Z(R))" P :" " =";Z(Q)*" V :"&" (S,S') =";Z(D)"PRESS": B$" O ":"NADPIS">, ,f, ,x, ,, -p, ,"A",,,-i, ,"B",,,-n,P,"C",,,-4, ,"",,,-0, ,"",,,-,,"",,,0, , ,,, 0, ,,,, 0*,,"A",,,0f, , ,,fff,H0f, ,,,fff,H09,,"B",,,0x, , ,, ,00x, ,,, ,00 , ,"G",,,"z,,, .,l,"T",,,"x, ,x, Bx, ,p,,,:,.T,H,"V",,,",T,4,TzH",T,f, ",Z,,N-,b,"S",,,-,b,"'",,,-?,f,"",,,.I,*,"",,," ,P,,,TzH" ,P,+,$",L, ,V0+,$,p,,s333,0*,4-,:,"S",,,-,*,"",,,.-,,"",,,"PRESS": B$" I ":"NADPIS"," T "," ",", , , "" ."." T ,"&"- :"-") "-" , "%" 180{ ( );"+ ") "% " ( );"+ ") "+ " " " ( S);",") , :""" -<<+ ( );",") , .""PRESS": "NADPIS",?,:"TROJUHELNIK JP SOFT 88"?,:""?,:""QXY@0:,XY:" ":XY?,8:""@,@,:B$,: "PRESS"1H$"S COKOLIV " "INP" "PIP"0! ,@:(H):`,:""MELODY"#:"O3C1DE";"O4C1DE" $: %"GET"&G$:G$"" %' ("INP"),@:H$;*"GET":"PIP" +"", - CHYBA.B$"":"NADPIS"/:0,@0"S , ERROR"1"PRESS": 23