DIM A, B, T, M, R AS INTEGER
A = -19: B = 19
M = A: R = F(A)
FOR T = A TO B
IF F(T) < R THEN
M = T
R = F(T)
END IF
NEXT T
PRINT R-M
FUNCTION F(x)
F = (x*x-90)*(x*x-90) + 6
END FUNCTION
DIM A, B, T, M, R AS INTEGER
A = -19: B = 19
M = A: R = F(A)
FOR T = A TO B
IF F(T) <= R THEN
M = T
R = F(T)
END IF
NEXT T
PRINT R-M
FUNCTION F(x)
F = (x*x-90)*(x*x-90) + 6
END FUNCTION
DIM A, B, T, M, R AS INTEGER
A = -9: B = 9
M = A: R = F(A)
FOR T = A TO B
IF F(T) < R THEN
M = T
R = F(T)
END IF
NEXT T
PRINT M+R
FUNCTION F(x)
IF x>0 THEN
F = (x*x-10)*(x*x-10) + 9
ELSE
F = (x*x-6)*(x*x-6) + 6
END IF
END FUNCTION
DIM A, B, T, M, R AS INTEGER
A = -9: B = 9
M = A: R = F(A)
FOR T = A TO B
IF F(T) <= R THEN
M = T
R = F(T)
END IF
NEXT T
PRINT M+R
FUNCTION F(x)
IF x>0 THEN
F = (x*x-10)*(x*x-10) + 9
ELSE
F = (x*x-6)*(x*x-6) + 6
END IF
END FUNCTION
DIM A, B, T, M, R AS LONG
A = -20: B = 20
M = A: R = F(A)
FOR T = A TO B
IF F(T) < R THEN
M = T
R = F(T)
END IF
NEXT T
PRINT M + 27
FUNCTION F(x)
F = 2 * (x * x - 100) * (x * x - 100) + 5
END FUNCTION
abs
и iabs
возвращают абсолютное значение своего входного параметра.DIM A, B, M, R, T AS INTEGER
A = -10 : B = 10
M = A : R = F(A)
FOR T = A TO B
IF F(T + 1) <= R THEN
M = T : R = F(T)
END IF
NEXT T
PRINT M - R
FUNCTION F(x)
F = abs(9 - (x - 3) * (x - 3)) - 2
END FUNCTION
DIM A AS LONG
DIM T AS LONG
DIM N AS LONG
FUNCTION F (x AS INTEGER) AS LONG
F = 2*(x-7)*(x-7)+7*x+7
END FUNCTION
FUNCTION G (x AS INTEGER) AS LONG
G = 3*x*x - 107
END FUNCTION
A = 0: N = 20
FOR T = 1 TO 20
IF F(N) >= G(T) THEN
A = A + 1
END IF
NEXT T
PRINT A
DIM A, B, T, M, R AS INTEGER
A = -11: B = 11
M = A: R = F(A)
FOR T = A TO B
IF F(T) < R THEN
M = T
R = F(T)
END IF
NEXT T
PRINT M+R
FUNCTION F(x)
IF X>0 THEN
F = x*x + 4
ELSE
F = x*x + 5
END IF
END FUNCTION
DIM A, B, T, M, R AS INTEGER
A = -11: B = 11
M = A: R = F(A)
FOR T = A TO B
IF F(T) <= R THEN
M = T
R = F(T)
END IF
NEXT T
PRINT M+R
FUNCTION F(x)
IF X>0 THEN
F = x*x + 4
ELSE
F = x*x + 5
END IF
END FUNCTION
DIM A, B, T, M, R AS INTEGER
A = -11: B = 11
M = A: R = F(A)
FOR T = A TO B
IF F(T) < R THEN
M = T
R = F(T)
END IF
NEXT T
PRINT M+R
FUNCTION F(x)
F = 2*(x*x-50)*(x*x-50)+6
END FUNCTION
DIM A, B, T, M, R AS INTEGER
A = -11: B = 11
M = A: R = F(A)
FOR T = A TO B
IF F(T) <= R THEN
M = T
R = F(T)
END IF
NEXT T
PRINT M+R
FUNCTION F(x)
F = 2*(x*x-50)*(x*x-50)+6
END FUNCTION