PROGRAM 7 PROGRAM PYTHAG C.....THIS PROGRAM FINDS ALL THE PRIMITIVE PYTHAGOREAN TRIPLETS WITH X AND Y C.....LESS THEN 500. C.....F012 ANTHONY F. ORTIZ **P59** C.....DECLARE VARIABLES FOR M, N, X, Y, AND Z. INTEGER M, N, X, Y, Z, K, NM, COUNT C.....OPEN THE OUT FILE 'F012P59.OUT'. OPEN (1, FILE = 'F012P59.OUT') C.....WRITE THE HEADER, TITLE, AND COLUMN HEADINGS IN THE OUT FILE. WRITE (1, *) ' F012 ANTHONY F. ORTIZ ', $' **P59**' WRITE (1, *) WRITE (1, *) ' COUNT M N X', $' Y Z' WRITE (1, *) C.....FIND THE PYTHAGOREAN TRIPLETS AND WRITE THEM TO THE OUT FILE. COUNT = 0 N = 0 10 N = N + 1 IF (N.GT.249) GOTO 40 M = N + 1 20 IF (M.GT.249) GOTO 10 X = 2 * M * N Y = M ** 2 - N ** 2 Z = M ** 2 + N ** 2 IF (X.GT.500) GOTO 10 IF (Y.GT.500) GOTO 10 DO 30 K = 2, 250 IF ((MOD (N, K).EQ.0).AND.(MOD (M, K).EQ.0)) THEN M = M + 1 GOTO 20 ENDIF 30 CONTINUE NM = N + M IF (MOD (NM, 2).NE.0) THEN COUNT = COUNT + 1 WRITE (1, 100) COUNT, N, M, X, Y, Z ENDIF 100 FORMAT (1X, 6I12) M = M + 1 GOTO 20 40 STOP END C.....OUTFILE: F012P59.OUT F012 ANTHONY F. ORTIZ **P59** COUNT M N X Y Z 1 1 2 4 3 5 2 1 4 8 15 17 3 1 6 12 35 37 4 1 8 16 63 65 5 1 10 20 99 101 6 1 12 24 143 145 7 1 14 28 195 197 8 1 16 32 255 257 9 1 18 36 323 325 10 1 20 40 399 401 11 1 22 44 483 485 12 2 3 12 5 13 13 2 5 20 21 29 14 2 7 28 45 53 15 2 9 36 77 85 16 2 11 44 117 125 17 2 13 52 165 173 18 2 15 60 221 229 19 2 17 68 285 293 20 2 19 76 357 365 21 2 21 84 437 445 22 3 4 24 7 25 23 3 8 48 55 73 24 3 10 60 91 109 25 3 14 84 187 205 26 3 16 96 247 265 27 3 20 120 391 409 28 3 22 132 475 493 29 4 5 40 9 41 30 4 7 56 33 65 31 4 9 72 65 97 32 4 11 88 105 137 33 4 13 104 153 185 34 4 15 120 209 241 35 4 17 136 273 305 36 4 19 152 345 377 37 4 21 168 425 457 38 5 6 60 11 61 39 5 8 80 39 89 40 5 12 120 119 169 41 5 14 140 171 221 42 5 16 160 231 281 43 5 18 180 299 349 44 5 22 220 459 509 45 6 7 84 13 85 46 6 11 132 85 157 47 6 13 156 133 205 48 6 17 204 253 325 49 6 19 228 325 397 50 6 23 276 493 565 51 7 8 112 15 113 52 7 10 140 51 149 53 7 12 168 95 193 54 7 16 224 207 305 55 7 18 252 275 373 56 7 20 280 351 449 57 7 22 308 435 533 58 8 9 144 17 145 59 8 11 176 57 185 60 8 13 208 105 233 61 8 15 240 161 289 62 8 17 272 225 353 63 8 19 304 297 425 64 8 21 336 377 505 65 8 23 368 465 593 66 9 10 180 19 181 67 9 14 252 115 277 68 9 16 288 175 337 69 9 20 360 319 481 70 9 22 396 403 565 71 10 11 220 21 221 72 10 13 260 69 269 73 10 17 340 189 389 74 10 19 380 261 461 75 10 21 420 341 541 76 10 23 460 429 629 77 11 12 264 23 265 78 11 14 308 75 317 79 11 16 352 135 377 80 11 18 396 203 445 81 11 20 440 279 521 82 12 13 312 25 313 83 12 17 408 145 433 84 12 19 456 217 505 85 13 14 364 27 365 86 13 16 416 87 425 87 13 18 468 155 493 88 14 15 420 29 421 89 14 17 476 93 485 90 15 16 480 31 481
BACK TO COMP150 PAGE.