Примеры программ на языке QBASIC


DECLARE SUB NtoCoord (N&, X&, Y&)
REM Определение расстояния между двумя точками
  INPUT "Введи номер первой точки : ", N&
  NtoCoord N&, x1&, y1&
  INPUT "Введи номер второй точки : ", N&
  NtoCoord N&, x2&, y2&
  dx = x1& - x2&: dy = y1& - y2&
  PRINT "Расстояние = ", SQR(dx * dx + dy * dy)
END

SUB NtoCoord (N&, X&, Y&)
DIM k AS LONG, j AS LONG, d AS LONG
  j = INT(SQR(N&) + .5)
  d = N& - j * j
  k = j \ 2
  IF (j MOD 2) <> 0 THEN
     IF d > 0 THEN
	X& = k + 1: Y& = -k + d
     ELSE
	X& = k + 1 + d: Y& = -k
     END IF
  ELSE
     IF d > 0 THEN
       X& = -k:  Y& = k - d
     ELSE
       X& = -k - d: Y& = k
     END IF
  END IF
END SUB