, .
1) N.
INPUT N
FOR I=1 TO N
IF N\I*I=N THEN PRINT I
NEXT I
END
2) Xn=1/(n^2+5n). , ε.
INPUT E
N=1
M1:
XN=1/(N^2+5*N)
IF XN<E PRINT N: STOP
N=N+1
GOTO M1
END
3) y=(5x-3)/(4*x-1) x 0 1 0,1.
OPTION BASE 1
DIM YP(11)
K=0
FOR X=0 TO 1 STEP 0.1
Y= (5*X-3)/(4*x-1)
IF Y>0 THEN K=K+1: YP(K)=Y
NEXT X
FOR I=1 TO K
PRINT YP(I);
NEXT I
END
4) (5,6), (I,J)=(2*I-J)/(1+I) .
OPTION BASE 1
DIM A(5.6)
FOR I=1 TO 5
FOR J=1 TO 6
A(I.,J)=(2*I-J)/(1+I)
IF A(I,J)<0 THEN A(I,J)=0
NEXT J
NEXT I
END
, .
1) .
, , , , S=S+X, X-c; S- . S .
1.
, .
N=6
OPTION BASE 1
DIM X(N),Y(N)
FOR I=1 TO N
READ X(I)
NEXT I
DATA 1.,0.,2.,5.,6.,7.
For I=1 to n
Read y(i)
NEXT I
DATA 2.,1.,-3.,7.,-2.,7.
S=0
FOR I=1 TO N-1
X=SQR((X(I+1)-X(I)^2+((Y(I+1)-Y(I))^2
S =S+X
NEXT I
END
2) .
, 1, p=p*x, x-, P- .
2. N!
N=5
NF=1
FOR I=1 TO N
NF=NF*I
NEXT I
PRINT N1=!;NF
END
3) .
, , . , , . . . .
3.
S=1+x=x^2/2!++x^n/n!+
x=0.2 c , =0.0001. , , , , x/k (k=1,2,).
Input X,E
S=1:K=1:U=1.
M1:
U=U*X/K
S=S+U
IF X/K<E THEN PRINT S:STOP
|
|
K=K+1
GOTO M1
END
. exp(x), .
5) .
y=f(x) , . , . . .
, .
1) N.
INPUT N
for i=1 to N
if N\i*1=N then print i
next i
end
2) Xn=1/(n^2+5*n). , .
INPUT E
n=1
m:
Xn=1/(n^2=5*n)
if X n<E print n: stop
n=n+1
goto m1
end
3) =(5-3)(4-1) 0 1 0,1.
OPTION BASE 1
DIMYP (11)
k=0
for x=0 to 1 step 0.1
=(5*x-3)/(4*x-1)
if >0 then k=k+1: YP (k)=Y
next x
for i=1 to k
print YP(i):
next i
end
4) (5,6), (i, j)=(2*i-j)/(1+i) .
option base 1
dim A(5,6)
for i=1 to 5
for j=5 to 6
A(i, j)=(2*i-j)/(1+i)
if A(i, j)<0 then A(i, j)=0
next j
next i
end
.
, .
1)
, , , , , S+S+X, -, S- . S .
1) , .
N=6
option base 1
dim X(N), Y(N)
for i=1 to N
read X(i)
next i
DATA 1.,0.,2.,5.,6.,7.
for i-1 to N
read Y(i)
next i
DATA 2.,1.,-3.,7.,-2.,7.
S=0
for i=1 to N-1
X=SQR((X(i+1)-X(i))^2+((Y(i+1)-Y(i))^2)
S=S+X
next i
end
2) .
, 1, , =*, - , - .
2. N!
N=5
NF=1
for i=1 to N
NF=NF*1
next i
print "N!=";NF
end
3) .
, , . , , . . . - .
|
|
3.
S=1++^2/2!++^n/n!+
=0.2 , =0.0001. , , , , /k (k=1,2,).
INPUT X, E
S=1. k=1: U=1.
m1:
U=U*X/k
S=S+U
IF x/k<E then print S: stop
k=k+1
goto m1
end
. (), .