- :
While "" DO "";- : "",
Repeat "" Until "";- : "".
"" - (Boolean).
:
WHILE | REPEAT |
While "" (True), (False), , . . While . While , , , "" . : Begin "" end.
Repeat , (False), , (True), . . Repeat .
Repeat , "" . .
, , , .
a1, a2, a3,..., an,...
:
a1 + a2 + a3 +... + an+...
an - .
"Sn".
"S", . . , :
1 + 1/32 + 1/52 +... + 1/(2*N-1)<SUP2< sup> +...
S = Pi2/8 an = 1/(2*N-1)2, N = 1, 2, 3,...
. Eps=abs(S-Sn), Eps=abs(an), S . Eps_o=abs((S-Sn)/S), Eps_o=abs(an/Sn).
: Sn = Sn-1 + an
k1=-1, : k1:=-k1, an=k1*an. "N"- "N-1"-, , :
1 + 1/2! + 1/4! + 1/6! +... + 1/(2*N)! +...; N = 0, 1, 2,...
: an = an-1*k;
k = an/an-1 - ( ).
an = 1/(2*N)! = 1/(1*2*...*(2*N-2)*(2*N-1)*2*N)
an-1 = 1/(2*(N-1))! = 1/((2*N-2))! = 1/(1*2*...*(2*N-2))
k = an/an-1 = 1/((2*N-1)*2*N)
N! = 1*2*3*...*N; - "N", 0! = 1.
, , :
N:= 0; a:= 1; SN:= 1; S:= (e+1)/e; e:= 2.7182828; Repeat N:= N+1; k:= 1/((2*N-1)*2*N); a:= a*k; SN:= SN+a; Writeln(' Sn= ', Sn:11:6); Until abs(S-Sn) < eps; { eps - } Writeln(' S = ', SN:11:6);