DIM A, B, T, M, R AS INTEGER
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
FUNCTION F(x)
F=19*(x-19)*(x-17)+17;
END FUNCTION
DIM T, M AS INTEGER
M=0
FOR T=1 TO 20
M=M+F(T)*T
NEXT T
PRINT M
FUNCTION F(x)
IF (X%2)=0 THEN
F=1
ELSE
F=-1
END FUNCTION
DIM T, M, N AS INTEGER
M=0: n=10
FOR T=1 TO N
M=M+F(T)
NEXT T
PRINT M
FUNCTION F(x)
IF X<3 THEN
F=1
ELSE
F=F(x-1)+F(X-2)
END FUNCTION
DIM A, B, T, M, R AS INTEGER
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