Приложения______________________________________263

getpoint: 'подпрограмма поиска точки у1 = у2: г1 = r2: 11 = 12 IF LEN(frst$) > 0 THEM OK% = О FOR i = 1 ТО npoints

IF points(i) = frst$ THEN

y2 = yc(i) : r2 = xr_(i) : 12 = xl(i) OK% = 1: EXIT FOR END IF NEXT i

IF OK% = 0 THEN PRINT "He определена точка " + frst$ END IP RETURN

drawl: 'подпрограмма построения отрезка УУ = y2 - yl: yn = ABS(yy): yd = SGN(yy) FOR j = 1 TO 2 IF э = 1 THEM

xl = 11: x2 = 12: my = 1: уш = 4 ELSE

xl = rl: x2 = r2: my == 4: ym = 1 END IF

xx = x2 - xl: am = ABS(xx): xd = SGN(xx) x = xl: у = yl

max = xn: IF yn > max THEN max = yn xerr = -max / 2: yerr = xerr FOR i = 1 TO max xerr = xerr + xn IF xerr > 0 THEN

xerr = xerr - max: x = x + xd END IF

yerr = yerr + yn IF yerr > 0 THEN

yerr = yerr - max: у = у + yd END IF GOSUB drawp NEXT i NEXT j RETURN

drawp: 'подпрограмма построения точки kclr = POINT(x, у)

IF kclr < 0 OR kclr = 5 THEN RETURN IF kclr = 0 THEN PRESET (x, y), my: RETURN IF kclr = ym THEN PRESET (x, y), 5: RETURN RETURN END