【原创】快速输出任意多的互质（素）的勾股数 - 中国DOS联盟论坛

运行结果：

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

第1楼　plp626	发表于 2009-10-15 14:48
银牌会员　发帖 1,020　积分 2,278
【原创】快速输出任意多的互质（素）的勾股数下面代码双击运行 @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* ]

第2楼　plp626	发表于 2009-10-15 14:51
银牌会员　发帖 1,020　积分 2,278
运行结果： 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

第3楼　523066680	发表于 2009-10-15 15:12
银牌会员　发帖 1,133　积分 2,362
你丫这么猛，一晚上不见，干出这种事情，没说的。顶帖++分+跟进还是不加分了，在我还没看懂之前，不乱加分。