home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Flop Magazin 33
/
Flop_Magazin_33_1995_01_Raster_cs_Side_B.atr
/
reseni32.lt
< prev
next >
Wrap
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$¢