Leica tps1100, Руководство пользователя, Страница: 242 / 1154

GeoBASIC Reference Manual 2.GeoBasic Constructs
TPS1100-Version 1.30 2-13
' A2(2) = A1(2)
Note Neither the compiler nor the interpreter does any index-overflow
checking. Hence overwriting of data outside an array may occur and
may cause severe errors, if indexes are use that is bigger than the
defined upper bounds.
♦
Arrays cannot be compared directly — it must be done element by element.
Often it is useful to declare constants for the upper bound of an array. (For a
description of the
IF
and
WHILE
statement see Sections 2.6.2.1 and 2.6.3.1.
respectively.)
CONST MaxNoOfHeights AS Integer = 10 'want to have
' 10 heights
TYPE DIM HeightArrayType(MaxNoOfHeights) AS Double END
DIM HeightArray1 AS HeightArrayType 'first array
' of heights
DIM HeightArray2 AS HeightArrayType 'second array
' of heights
DIM iIndex AS Integer 'index for
' comparing
DIM lEqual AS Logical 'indicator for
' comparing
'now compare the arrays
lEqual = TRUE
'so far everything was equal
iIndex = 1 'start with the first element
'compare the elements, stop at the first difference
DO WHILE lEqual AND (iIndex <= MaxNoOfHeights)
lEqual = (HeightArray1( iIndex ) =
HeightArray2( iIndex ))
iIndex = 1
LOOP
'do some action according to the result of the
'comparison
IF lEqual THEN
'yes, they are equal
ELSE
'no, they are not equal;
'the first difference is at position iIndex - 1
END IF
♦
Now declare some larger arrays.
TYPE DIM DoubleArrayType ( 20 ) AS Double END