Special pythagorean triplet: Difference between revisions
Content added Content deleted
(→{{header|PL/M}}: Tweak) |
|||
Line 313: | Line 313: | ||
DECLARE ( LA, LB, LC, ABC ) LONG$INTEGER; |
DECLARE ( LA, LB, LC, ABC ) LONG$INTEGER; |
||
SQRT$1000 = SQRT( 1000 ); |
SQRT$1000 = SQRT( 1000 ); |
||
DO N = 1 TO SQRT$1000; |
DO N = 1 TO SQRT$1000; /* M AND N MUST HAD DIFFERENT PARITY, */ |
||
DO M = N + 1 TO SQRT$1000; |
DO M = N + 1 TO SQRT$1000 BY 2; /* I.E. ONE ODD, ONE EVEN */ |
||
/* NOTE: A = M2 - N2, B = 2MN, C = M2 + N2 */ |
/* NOTE: A = M2 - N2, B = 2MN, C = M2 + N2 */ |
||
/* A + B + C = M2 - N2 + 2MN + M2 + N2 = 2( M2 + MN ) = 2M( M + N )*/ |
/* A + B + C = M2 - N2 + 2MN + M2 + N2 = 2( M2 + MN ) = 2M( M + N )*/ |