Anonymous user
Law of cosines - triples: Difference between revisions
Added solution for Action!
(Added solution for Action!) |
|||
Line 81:
[(3, 5, 7), (7, 8, 13)]
Extra credit: 18394
</pre>
=={{header|Action!}}==
<lang Action!>PROC Test(INT max,angle,coeff)
BYTE count,a,b,c
PrintF("gamma=%B degrees:%E",angle)
count=0
FOR a=1 TO max
DO
FOR b=1 TO a
DO
FOR c=1 TO max
DO
IF a*a+b*b-coeff*a*b=c*c THEN
PrintF("(%B,%B,%B) ",a,b,c)
count==+1
FI
OD
OD
OD
PrintF("%Enumber of triangles is %B%E%E",count)
RETURN
PROC Main()
Test(13,90,0)
Test(13,60,1)
Test(13,120,-1)
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Law_of_cosines_-_triples.png Screenshot from Atari 8-bit computer]
<pre>
gamma=90 degrees:
(4,3,5) (8,6,10) (12,5,13)
number of triangles is 3
gamma=60 degrees:
(1,1,1) (2,2,2) (3,3,3) (4,4,4) (5,5,5) (6,6,6) (7,7,7) (8,3,7) (8,5,7) (8,8,8) (9,9,9) (10,10,10) (11,11,11) (12,12,12) (13,13,13)
number of triangles is 15
gamma=120 degrees:
(5,3,7) (8,7,13)
number of triangles is 2
</pre>
| |||