Jump to content

Pythagorean triples: Difference between revisions

Pythagorean triples (view source)

Revision as of 15:43, 13 July 2011

60 bytes removed ,  13 years ago
m
→‎{{header|Ada}}
(Added Ada code)
Line 32:
Primitive_Cnt := Primitive_Cnt + 1;
Total_Cnt := Total_Cnt + Max_Perimeter / Perimeter;
New_Triangle(A-2*B+2*C, 2*A-B+2*C, 2*A-2*B+3*C, Max_Perimeter, Total_Cnt, Primitive_Cnt);
New_Triangle(A+2*B+2*C, 2*A+B+2*C, 2*A+2*B+3*C, Max_Perimeter, Total_Cnt, Primitive_Cnt);
New_Triangle(A+2*B+2*C-A, 2*A+B+2*C-2*A, 2*A+2*B+3*C-2*A, Max_Perimeter, Total_Cnt, Primitive_Cnt);
Max_Perimeter, Total_Cnt, Primitive_Cnt);
New_Triangle(2*B+2*C-A, B+2*C-2*A, 2*B+3*C-2*A,
Max_Perimeter, Total_Cnt, Primitive_Cnt);
end if;
end New_Triangle;
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/190265"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information