Flop Magazin 33/Flop_Magazin_33_1995_01_Raster_cs_Side_B.atr/reseni32.lt

Text File | 2023-02-26 | 1KB | 1 lines

10 ? "}"¢20 ? "############################"¢30 ? "#                          #"¢40 ? "# Reseni hlavolamu z c. 32 #"¢50 ? "#                          #"¢60 ? "# (c)  1995.3 by Jan Walla #"¢70 ? "#                          #"¢80 ? "############################"¢90 DIM VYSL$(200),POM$(8)¢100 VYSL$(1)="0":VYSL$(199)=VYSL$:VYSL$(2)=VYSL$:VYSL$(200,200)="1"¢110 M=1:P=0:Q=1¢120 ------------------------------¢130 TRAP 130¢140 INPUT "Vloz cislo 1-100: ",N¢150 N=INT(N+0.5):IF N<1 OR N>100 THEN 130¢160 POKE 752,1:? :? ¢170 TRAP 40000¢180 ------------------------------¢190 TIME$= "000000":FOR I=1 TO N¢200   Q=M¢210   M=M*I:? "Pocitam: ";I;"!"¢220   IF M<10000 AND N=I THEN Q=M:GOTO 250¢230   IF M<10000 THEN GO# NXTI¢240   I=I-1:M=1¢250   W=W+CLOG(Q):FOR J=197 TO 197-W STEP -4¢260     POM$=STR$(VAL(VYSL$(J,J+3))*Q+P):POM=LEN(POM$)¢270     IF POM<=4¢280       IF POM=4¢290         VYSL$(J,J+3)=POM$¢300       ELSE ¢310         VYSL$(J,J+3)="0000"¢320         VYSL$(J+(4-POM),J+3)=POM$¢330       ENDIF ¢340       P=0¢350     ELSE ¢360       VYSL$(J,J+3)=POM$(POM-3,POM)¢370       P=VAL(POM$(1,POM-4))¢380     ENDIF ¢390     # NXTJ:NEXT J¢400   # NXTI:NEXT I¢410 ------------------------------¢420 POKE 752,0:? "Vysledek ";N;"! je:"¢430 FOR I=200-W TO 200¢440   IF VYSL$(I,I)="0"¢450   ELSE ¢460     POP :POP :GOTO 490¢470   ENDIF ¢480 NEXT I¢490 ? VYSL$(I,200)¢500 ? "Potrebny cas: ";TIME$¢