How to resolve the algorithm Shoelace formula for polygonal area step by step in the PowerBASIC programming language

Published on 12 May 2024 09:40 PM
#Powerbasic

How to resolve the algorithm Shoelace formula for polygonal area step by step in the PowerBASIC programming language

Table of Contents

Problem Statement

Given the n + 1 vertices x[0], y[0] .. x[N], y[N] of a simple polygon described in a clockwise direction, then the polygon's area can be calculated by: (Where abs returns the absolute value) Write a function/method/routine to use the the Shoelace formula to calculate the area of the polygon described by the ordered points:

Show the answer here, on this page.

Let's start with the solution:

Step by Step solution about How to resolve the algorithm Shoelace formula for polygonal area step by step in the PowerBASIC programming language

Source code in the powerbasic programming language

#COMPILE EXE
#DIM ALL
#COMPILER PBCC 6

FUNCTION ShoelaceArea(x() AS DOUBLE, y() AS DOUBLE) AS DOUBLE
LOCAL i, j AS LONG
LOCAL Area AS DOUBLE

  j = UBOUND(x())
  FOR i = LBOUND(x()) TO UBOUND(x())
    Area += (y(j) + y(i)) * (x(j) - x(i))
    j = i
  NEXT i
  FUNCTION = ABS(Area) / 2
END FUNCTION

FUNCTION PBMAIN () AS LONG
  REDIM x(0 TO 4) AS DOUBLE, y(0 TO 4) AS DOUBLE
  ARRAY ASSIGN x() = 3, 5, 12, 9, 5
  ARRAY ASSIGN y() = 4, 11, 8, 5, 6
  CON.PRINT STR$(ShoelaceArea(x(), y()))
  CON.WAITKEY$
END FUNCTION

You may also check:How to resolve the algorithm Statistics/Basic step by step in the C programming language
You may also check:How to resolve the algorithm Filter step by step in the Fortran programming language
You may also check:How to resolve the algorithm Multisplit step by step in the BBC BASIC programming language
You may also check:How to resolve the algorithm Interactive programming (repl) step by step in the Ol programming language
You may also check:How to resolve the algorithm Undefined values step by step in the MUMPS programming language