Shoelace formula for polygonal area: Difference between revisions
Shoelace formula for polygonal area (view source)
Revision as of 17:31, 26 February 2019
, 5 years ago→Fortran I: a correction
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
PatGarrett (talk | contribs) m (→Fortran I: a correction) |
||
Line 367:
DO 2 I=1,N
2 A=A+X(I)*Y(I+1)-X(I+1)*Y(I)
A=ABSF(A/2.)
PRINT 303,A
STOP
|