DECLARE FUNCTION gets! (x1!, y1!, x2!, y2!, x3!, y3!) DIM arr(9, 2) DATA 2,3 DATA 1,1 DATA -6,5 DATA 23,88 DATA 9,21 DATA 131,1 DATA 76,14 DATA 46,57 DATA 17,8 FOR i = 0 TO 8: FOR j = 0 TO 1 READ arr(i, j) NEXT j, i smin = gets(arr(0, 0), arr(0, 1), arr(1, 0), arr(1, 1), arr(2, 0), arr(2, 1)) smax = smin FOR i = 0 TO 8: FOR j = i + 1 TO 8: FOR k = i + 2 TO 8 scurr = gets(arr(i, 0), arr(i, 1), arr(j, 0), arr(j, 1), arr(k, 0), arr(k, 1)) IF scurr < smin THEN smin = scurr IF scurr > smax THEN smax = scurr NEXT k, j, i PRINT smin; smax FUNCTION gets (x1, y1, x2, y2, x3, y3) sgets1 = (x1 - x3) * (y2 - y3) sgets2 = (x2 - x3) * (y1 - y3) gets = ABS(sgets1 - sgets2) / 2 END FUNCTION |