10 ? "}"¢20 ? "****************************"¢30 ? "* . . , . *"¢40 ? "* Reseni hlavolamu z c. 30 *"¢50 ? "* *"¢60 ? "****************************"¢70 ? ¢80 REM --------------¢90 REM ¢100 REM ¢110 TIME$= "000000":DIM A(11),B(11)¢120 FOR I=2 TO 8 STEP 2¢130 POM=10-I:IF I+2>POM THEN POM=I+2¢140 FOR J=POM TO 10 STEP 2¢150 FOR K=10-I TO 11¢160 IF K=I THEN GO# ERR¢170 IF K=J THEN GO# ERR¢180 FOR N=1 TO 11:B(N)=0:NEXT N¢190 REM --------------¢200 REM ¢210 REM Vlastni vypocet¢220 REM ¢230 A(1)=I:B(A(1))=1¢240 A(3)=J:B(A(3))=1¢250 A(5)=K:B(A(5))=1¢260 REM --------------¢270 A(2)=21-A(1)-A(3)¢280 IF A(2)<1 OR A(2)>11 THEN GO# ERR¢290 IF B(A(2))=1 THEN GO# ERR¢300 B(A(2))=1¢310 REM --------------¢320 A(9)=21-A(1)-A(5)¢330 IF A(9)<1 OR A(9)>11 THEN GO# ERR¢340 IF B(A(9))=1 THEN GO# ERR¢350 B(A(9))=1¢360 REM --------------¢370 A(6)=21-A(9)-A(3)¢380 IF A(6)<1 OR A(6)>11 THEN GO# ERR¢390 IF B(A(6))=1 THEN GO# ERR¢400 B(A(6))=1¢410 REM --------------¢420 A(7)=21-A(3)-A(5)¢430 IF A(7)<1 OR A(7)>11 THEN GO# ERR¢440 IF B(A(7))=1 THEN GO# ERR¢450 B(A(7))=1¢460 REM --------------¢470 A(4)=21-A(1)-A(7)¢480 IF A(4)<1 OR A(4)>11 THEN GO# ERR¢490 IF B(A(4))=1 THEN GO# ERR¢500 B(A(4))=1¢510 REM --------------¢520 A(8)=21-A(7)-A(9)¢530 IF A(8)<1 OR A(8)>11 THEN GO# ERR¢540 IF B(A(8))=1 THEN GO# ERR¢550 B(A(8))=1¢560 REM --------------¢570 REM ¢580 REM 9 cisel je v poradku¢590 REM ¢600 O=0:P=10¢610 FOR N=1 TO 11:IF B(N)=0 THEN O=O+N:A(P)=N:P=P+1¢620 NEXT N¢630 IF A(1)+O=21 THEN GO# OK¢640 IF A(3)+O=21 THEN GO# OK¢650 IF A(7)+O=21 THEN GO# OK¢660 IF A(9)+O=21 THEN GO# OK¢670 GO# ERR¢680 REM --------------¢690 REM ¢700 REM spravne reseni!!¢710 REM ¢720 # OK¢730 ? A(1),A(2),A(3)¢740 ? A(4),A(5),A(6)¢750 ? A(7),A(8),A(9)¢760 ? ¢770 ? A(10),A(11)¢780 ? :? ¢790 REM --------------¢800 REM ¢810 REM konec cyklu¢820 REM ¢830 # ERR¢840 NEXT K:NEXT J:NEXT I¢850 REM --------------¢860 REM ¢870 REM konec programu¢880 REM ¢890 ? "****************************"¢900 ? "* , . *"¢910 ? "* Doba vypoctu: ";TIME$;" *"¢920 ? "* *"¢930 ? "****************************"¢
