,
S = Z0 + Z1 + Z2...+ Zn + Z n+1 +...
Sn+1 = S n + Z n+1 , n = 0, 1, 2,...
S0 = x
Z n +1 = Z n αn,
αn = Z n+1 / Z n,
αn = Z0 = x
REM
DIM X, N, EPS, S, Z, AL
INPUT ''X, EPS; X, EPS
S = X: Z = X: N = 0
DO
AL=-X^2/(2*N+2)/ (2*N+3)
Z = Z*AL
S=S+Z
N=N+1
LOOP UNTIL ABS(Z) <=EPS
PRINT sin ; x; =; S
END
QBASIC
.
.
.
, !(5), B867#(2,5), C$(2,4,6)
, .
: -, -, n- .
255.
.
DIM [SHARED] []
(, , ) .
DIM AR(1 TO 20)
DIM F%(1 TO 6, 1 TO 15)
DIM D$(1 TO 3, 1 TO 5, 1 TO 4)
. (1, 2,...,n), n .
1. 0 .
:
, , 1.
REM
DIM X(1 TO N), N, P, I
P = 1
FOR I = 1 TO N
INPUT ''x; X(I)
IF X(I) <> 0 THEN
P = P * X(I)
END IF
NEXT I
PRINT P=;P
END
2. Xmax Imax.
Xmax . , , .
REM
DIM X(1 TO N), N, I, XMAX, IMAX
FOR I = 1 TO N
INPUT ''x; X(I)
NEXT I
XMAX = X(1): IMAX = 1
FOR I = 1 TO N
IF XMAX < X(I) THEN
XMAX = X(I)
IMAX = I
END IF
NEXT I
PRINT Xmax=; XMAX; Imax=; IMAX
END
3. (M x N).
j - , i. S(j) = 0 j - . .
|
|
, j.
j ( ), .. .
, , .
REM
DIM N, M, I, J
DIM (1 TO M, 1 TO N), S(1 TO N)
FOR I = 1 TO M
FOR J = 1 TO N
INPUT ''A; A(I, J)
NEXT J
NEXT I
FOR J = 1 TO N
S(J) = 0
FOR I = 1 TO M
IF A(I, J) >= 0 THEN
S(J) = S(J) + A(I, J)
END IF
NEXT J
PRINT S(; J;)=; S(J)
NEXT I
END