中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 【原创】快速输出任意多的互质（素）的勾股数

plp626
银牌会员

钻石会员

积分 2278
发帖 1020
注册 2007-11-19
状态离线

『楼主』: 【原创】快速输出任意多的互质（素）的勾股数

下面代码双击运行

@echo off&if not %1.==. call%*&exit/b:: Code By plp626

title 输出任意多的互质（素）的勾股数&echo 稍等...

set MAX=30  &rem ::1000的开平方为31.6，这里设定MAX为30，就已经遍历1000以内的勾股质数

set "_isprime=set #r=+&for /l %%a in (1 1 6)do if ^!#r^! neq 0 (set/a #r=#1%%#2,#1=#2,#2=#r) else set ans=!#1!"

for /f "delims=" %%a in ('%~s0 :rtnum^|sort')do echo.%%a

pause&exit/b

:rtnum

setlocal enabledelayedexpansion&set "s=        "

for /l %%n in (1 1 %MAX%)do (set/a tp=%%n+1

for /l %%m in (!tp! 2 %MAX%)do (set #1=%%m&set #2=%%n&%_isprime%

        if !ans! equ 1 (set/a mm=%%m*%%m,nn=%%n*%%n,a=mm-nn,b=2*%%m*%%n,c=mm+nn

                set a=%s%!a!&set b=%s%!b!&set c=%s%!c!

        if !a! lss !b! (echo !a:~-7! !b:~-7! !c:~-7!) else echo !b:~-7! !a:~-7! !c:~-7!

)))

[ Last edited by plp626 on 2009-10-15 at 15:02 ]

山外有山，人外有人；低调做人，努力做事。

进入网盘(各种工具)~~ 空间~~cmd学习

2009-10-15 14:48

plp626
银牌会员

钻石会员

积分 2278
发帖 1020
注册 2007-11-19
状态离线

『第 2 楼』:

运行结果：

   3    4    5
   5    12    13
   7    24    25
   8    15    17
   9    40    41
   11    60    61
   12    35    37
   13    84    85
   15    112    113
   16    63    65
   17    144    145
   19    180    181
   20    21    29
   20    99    101
   21    220    221
   23    264    265
   24    143    145
   25    312    313
   27    364    365
   28    45    53
   28    195    197
   29    420    421
   31    480    481
   32    255    257
   33    56    65
   33    544    545
   35    612    613
   36    77    85
   36    323    325
   37    684    685
   39    80    89
   39    760    761
   40    399    401
   41    840    841
   43    924    925
   44    117    125
   44    483    485
   45 1012 1013
   47 1104 1105
   48    55    73
   48    575    577
   49 1200 1201
   51    140    149
   51 1300 1301
   52    165    173
   52    675    677
   53 1404 1405
   55 1512 1513
   56    783    785
   57    176    185
   57 1624 1625
   59 1740 1741
   60    91    109
   60    221    229
   60    899    901
   65    72    97
   68    285    293
   69    260    269
   75    308    317
   76    357    365
   84    187    205
   84    437    445
   85    132    157
   87    416    425
   88    105    137
   92    525    533
   93    476    485
   95    168    193
   96    247    265
100    621    629
104    153    185
105    208    233
105    608    617
108    725    733
111    680    689
115    252    277
116    837    845
119    120    169
120    209    241
120    391    409
123    836    845
129    920    929
132    475    493
133    156    205
135    352    377
136    273    305
140    171    221
141 1100 1109
145    408    433
147 1196 1205
152    345    377
155    468    493
156    667    685
159 1400 1409
160    231    281
161    240    289
165    532    557
165 1508 1517
168    425    457
168    775    793
175    288    337
180    299    349
184    513    545
185    672    697
189    340    389
195    748    773
200    609    641
203    396    445
204    253    325
205    828    853
207    224    305
215    912    937
216    713    745
217    456    505
220    459    509
225    272    353
228    325    397
231    520    569
232    825    857
235 1092 1117
240    551    601
245 1188 1213
252    275    373
255 1288 1313
259    660    709
260    651    701
261    380    461
265 1392 1417
273    736    785
276    493    565
279    440    521
280    351    449
280    759    809
287    816    865
297    304    425
300    589    661
301    900    949
308    435    533
315    572    653
315    988 1037
319    360    481
329 1080 1129
333    644    725
336    377    505
336    527    625
341    420    541
348    805    877
357 1276 1325
364    627    725
368    465    593
369    800    881
371 1380 1429
385    552    673
387    884    965
396    403    565
400    561    689
407    624    745
420    851    949
423 1064 1145
429    460    629
429    700    821
432    665    793
441 1160 1241
451    780    901
455    528    697
464    777    905
468    595    757
473    864    985
481    600    769
495    952 1073
504    703    865
533    756    925
539 1140 1261
540    629    829
555    572    797
559    840 1009
580    741    941
585    928 1097
611 1020 1189
615    728    953
616    663    905
645    812 1037
660    779 1021
696    697    985
731    780 1069

此帖被 +5 点积分

点击查看详情

山外有山，人外有人；低调做人，努力做事。

进入网盘(各种工具)~~ 空间~~cmd学习

2009-10-15 14:51

523066680
银牌会员

SuperCleaner

积分 2362
发帖 1133
注册 2008-2-2
状态离线

『第 3 楼』:

你丫这么猛，一晚上不见，干出这种事情，没说的。顶帖++分+跟进
还是不加分了，在我还没看懂之前，不乱加分。

此帖被 +5 点积分

点击查看详情

综合型编程论坛

我的作品索引

2009-10-15 15:12

(523066680)

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: