⇨ten*@sk* @e&en)¢¢ Od pana Vladim)ra Li&ky z Pardubic mi p@i&la velice zaj)mav% zpracovan* @e&en) hlavolam+ z ')sel 34 a 32 - jedn* se o @e&en) psan* v MAC65!¢¢ Pan Li&ka p)&e:¢¢.......................................¢¢¢ V*(en` pane,¢¢ pos)l*m V*m sv+j ohlas na "H*danku" z magaz)nu FLOP '. 34 ╱Prvo')sla$. Soubor PC6.COM , v d[lce 5-ti sektor+ je p@ilo(en na disket%.Stovku prvo')sel od 2,3,5,...do 523,541 vypo'te a vyp)&e na obrazovku za 6 s. Jen na okraj ke genezi tohoto "fajlu": Sestaven` strojov` program prvn) verse dal v`sledek za 10 s, druh* verse - s trochou triku - byla o 3 sekundy krat&). . Pak jsem vyrobil dopln%nou versi, dovoluj)c) vypsat voliteln% bu⇦ prvn) nebo druhou stovku prvo')sel: 2..542 za 7s,, 547..1223 za 10s. P@ilo(en* verse, PC6.COM, by mohla byt ')slov*na jako V.3.¢ Jen stru'n% k postupu: Prvn) 4 prvo')sla ╱2,3,5,7$ jsou dosazeny do tiskov[ho bafru ╱ ◆6000 a( ◆618F, 400 byte$. Na pozici ◆6191 je 00 jako delimitor, kter` zabr*n) v`po'tu 101. prvo')sla. Testovan* ')sla ╱lich*$ stoupaj) od 9, a nejprve se testuj) na d%litelnost p%ti, pak t@emi. Kdy( nejsou takto d%liteln*. prov*d) se vlastn) d%len) ╱FDIV ◆DB28 rutina$ ni(&)mi prvo')sly. ⇨)sla od 31 do 541 jsou testov*na d%len)m prvo')sly 7,11,13,17,19,23a 29 a pokud po d%len) z+st*v* zbytek, jsou zapisov*na do bafru jako prvo')sla.¢ Kdy( u( V*m, pane Walla, pos)l*m tuto disketu , nalo()m na ni - ex post - i @e&en) faktori*l+ ╱H*danka z ')sla 32$. Je to op%t stroj*kov` soubor FAK.COM ╱7 sektor+$, a proto(e je v ML, je krat&) a asi 4kr*t rychlej&), ne( soubor v TurboBasicu. Dovoluje vypo')tat p@esn` faktori*l libovoln[ho ')sla do 255, a to s ur'en)m po'tu platn`ch cifer.¢ Pro srovn*n) ╱TB/ML$: 99! - 24/6 s¢ 50! - 6/1 s¢ Faktori*l 255! se rovn* 0,33508.10 na 505, co( ov&em trv* ji( 56 sekund.¢ P@ipojuji t[( zdrojov` program FAK.LM a to jen pro p@)pad, (e by se dal uve@ejnit jako p@)klad pro pou()v*n) aritmetiky BCD v kursu programov*n) v assembleru.¢ ╱...$¢¢ Vladim)r Li&ka¢.......................................¢¢ Ob% @e&en) pova(uji za velmi dobr*. Mysl)m si tak[, (e uveden) listingu "FAK.LM" m+(e b`t p@)nosn[ pro program*tory. Upozornil bych pouze na to, (e pro ')sla v%t&) jak 146 nejsou v(dy v&echny ')slice korektn), co( z@ejm% souvis) s velikost) dekadick[ho @*du, kter` p@ekra'uje 256. P@esto p@ed jeho @e&en)m smek*m.¢¢ -JW-
