@echo off&Setlocal enabledelayedexpansion&rem 小程936原创出品
call :参数
:100
echo.计算a的b次方 和a的b次方根
set /p ma="请输入a>："
set /p mb="请输入b>："
set /a a=ma
call :#lg
set /a q=a/mb,a=a*mb
call :#lo
set /a x=a,a=q
call :#lo
echo.%ma%的%mb%次方=%x%
echo.%ma%的%mb%次方跟=%a%
goto 100
:#ln
call :#lg
if %b%==1 set /a a-=2000
set /a a=a*23026/10000
goto :eof
:#l
:#log
if %b%==0 goto lg
call :#lg
if %c%==1 set /a a-=2000
set /a ld=a,a=b
call :#lg
if %c%==1 set /a a-=2000
set /a a=a*10000,a/=ld,a/=10
goto :eof
:#lg
if %a:~,1%==- (echo log参数不应为零或负数&goto :eof)
if %a%==0 (log参数不应为零或负数&goto :eof)
for /l %%i in (0,1,12) do (if "!a:~%%i,1!"=="" set la=%%i&goto lb)
:lb
set /a la-=1,a*=100
set /a a=%a:~,3%*3-300
set a=!log33:~%a%,3!
set /a a=la*1000+a
exit /b
:#lo
::由于批处理计算都是整数，所以不考虑a为负数的情况。
if %a%==- (set a=0&goto :eof)
set /a lb=a/1000,c=6-lb,lb*=10,a=(a-lb*100)*3
set la=!l33:~%a%,3!
set a=!lo:~%lb%,10!
if %c:~,1%==- (set /a a=a/100*la) else (set /a a=a*la/100)
exit /b
:参数
set log33= 0 4 9 13 17 21 25 29 33 37 41 45 49 53 57 61 64 68 72 76 79 83 86 90 93 97100104107111114117121124127
13013413714
0143146149
15215515816
1164167170173176179
18218518819
01931961992012042072102122
15217220223
22522823023323623824124324624825025325525826026226526727027227427627928128328628829029229429729930
13033053073
103123143163
18320322324
32632833033233433633834034234434634835035235435635836036236436536736937
13733753773
7838038238438638738939
13933943963
984004014034054074084104124
13415417418
42042242342542742843043143343543643843944144244444644744945045245345545645845946146246446546746847047147347447647747948048148348448648748949049149349449649749850050
15025045055
0750850951
15125135155
1651751952052
15225245255
2652852953053
15335345355
3753853954054254354454554754854955055
15535545555
5655855956056
15625635655
6656756856957
15725735745
7557657757958058
15825835845
8558758858959059
15925935945
955975985996006016026036046056066076096106116126
13614615616
6176
18619620621
6226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676676686696706716726736746756766776786796796806816826836846856866876886886896906916926936946956956966976986997007017027027037047057067077087087097107117127
13713714715
7167177
18719719720
72172272372372472572672772872872973073173273273373473573673673773873974074074174274374474474574674774774874975075175175275375475475575675775775875976076076176276376376476576676676776876976977077177277277377477577577677777777877978078078178278278378478578578678778778878979079079179279279379479479579679779779879979980080
18018028038
0380480580680680780880880981081081
18128128138
148148
15816816817
8
18818819820
82082
18228228238
2382482582582682782782882982983083
18318328338
3383483483583683683783883883983984084
18418428438
4384484484584684684784884884984985085
18518528528
5385485485585685685785785885985986086086
18628628638
6386486586586686686786786886986987087087
18728728738
7387487487587687687787787887987988088088
18818828838
8388488488588588688688788888888988989089089
18928928938
938948948958958968978978988988998999009009019019029039039049049059059069069079079089089099109109119119129129
13913914914
9
15915916916
9179
18918919919
920920921921922922923923924924925925926926927927928928929929930930931931932932933933934934935936936937937938938939939940940941941942942943943943944944945945946946947947948948949949950950951951952952953953954954955955956956957957958958959959960960960961961962962963963964964965965966966967967968968968969969970970971971972972973973974974975975975976976977977978978979979980980980981981982982983983984984985985985986986987987988988989989989990990991991992992993993993994994995995996996997997997998998999999999
set l33=1001001001011011011011021021021021031031031031041041041041041051051051051061061061061071071071071081081081081091091091091101101101101111111111111121121121121
13113113114
1141141141
15115115115
1161161161161171171171171
18118118119
119119119120120120121121121121122122122122123123123124124124124125125125126126126126127127127128128128129129129129
13013013013
1
13113113213
2
13213213313
3
13313413413
4
13513513513
6
13613613613
7
13713713813
8
13813913913
9140140140141141141142142142143143143144144144145145145146146146147147147148148148149149149
15015015015
1
15115115215
2
15215315315
3154154
15515515515
6
15615615715
7
15715815815
8
15915916016
0160161161161162162163163163164164164165165166166166167167167168168169169169170170171171171172172173173173174174175175175176176177177177178178179179179
18018018118
1
18218218218
3
18318418418
5
18518518618
6
18718718718
8
18818918919
01901911911911921921931931941941951951951961961971971981981991992002002002012012022022032032042042052052062062072072072082082092092102102112112122122
13213214214
2
15215216216
2172172
18218219219
22022022122122222222322322422422522522622622722822822922923023023123123223223323323423423523623623723723823823923924024024124224224324324424424524524624724724824824924925025125125225225325425425525525625625725825825925926026126126226226326426426526526626726726826926927027027127227227327427427527527627727727827927928028128128228228328428428528628628728828828929029029129229229329429429529629629729829929930030
13013023033
0330430530530630730830830931031031
13123133133
143
15316316317
3
18318319320
32
13213223233
2432432532632732732832933033033
13323333333
3433533633733733833934034034
13423433443
4434534634734834834935035
13523523533
5435535635635735835936036
13613623633
6436536636636736836937037
13723723733
7437537637737837837938038
13823833843
8538538638738838939039
13923933943
943953963973983994004014024034044054064064074084094104114124
13414415416
4174
18419420421
42242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346546646746846947047147247347447547647847948048148248348448548648848949049149249349449549749849950050
15025045055
0650750850951
15125135145
1551651851952052
15225245255
2652752853053
15325335355
3653753854054154254354554654754855055
15525535555
5655755856056
15625645655
6656856957057
15735745755
7757857958
15825835855
865875895905925935945965975986006016036046056076086106116126146
15617618619
6216226246256276286306316326346356376386406416436446466476496506526536556566586596616626646656676686706716736756766786796816826846856876896906926936956976987007017037057067087107117
13714716718
71972172372472672872973173373573673874074174374574674875075275375575775976076276476676776977177377477677878078278378578778979179379479679880080280480580780981
18138158178
1882082282482682883083283483683883984
18438458478
4985
18538558578
5986
18638658678
6987
18738758778
7988
18838858878
8989
18938958978
999029049069089109129149169
18920923925
927929931933935938940942944946948951953955957959962964966968971973975977979982984986989991993995998
set lo= 1 10 100 1000 10000 100000 1000000 10000000 1000000001000000000
goto :eof