Special pythagorean triplet: Difference between revisions
Added Algol 68
m (→{{header|Wren}}: Added syntax highlighting to second version.) |
(Added Algol 68) |
||
Line 6:
* [[Pythagorean triples]]
<br><br>
=={{header|ALGOL 68}}==
{{trans|Wren}}
...but doesn't stop on the first solution (thus verifying there is only one).
<lang algol68># find the Pythagorian triplet a, b, c where a + b + c = 1000 #
FOR a TO 1000 DO
INT a2 = a * a;
FOR b FROM a + 1
WHILE INT a plus b = a + b;
a plus b < 1000
DO
INT c = 1000 - a plus b;
IF c > b THEN
IF a2 + b*b = c*c THEN
print( ( "a = ", whole( a, 0 ), ", b = ", whole( b, 0 ), ", c = ", whole( c, 0 ), newline ) );
print( ( "a + b + c = ", whole( a plus b + c, 0 ), newline ) );
print( ( "a * b * c = ", whole( a * b * c, 0 ), newline ) )
FI
FI
OD
OD</lang>
{{out}}
<pre>
a = 200, b = 375, c = 425
a + b + c = 1000
a * b * c = 31875000
</pre>
=={{header|Go}}==
{{trans|Wren}}
| |||