Osnovy_informatiki_-_5_Primery_programm-1
.pdff1 |
f2 |
f3 |
f4 |
f5 |
f6 |
f7 |
. |
. |
. |
a |
b |
c |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
a |
b |
c |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
a |
b |
c |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
a |
b |
c |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Пример 5. |
|
|
|
|
|
|||||
e x |
1 |
|
x |
|
x2 |
... |
xn |
n |
xi |
|
1! |
2! |
n! |
i 0 |
i! |
||||||
|
|
|
a0 |
1 |
|
|
|
ai |
ai 1 |
x |
, i 0 |
|
i |
||||
|
|
|
s0 a0
si |
si 1 |
ai |
var a,s,x:real; I,n:integer;
begin read(x,n); a:=1; S:=a;
for i:=1 to n do begin
a:=a*x/i;
S:=S+x;
end;
writeln(s);
end.
|
xi = F(xi-1) |
S:=x; |
Si= Si-1+xi |
for i:=1 to n do |
x0 = x, S0 =x |
|
|
begin |
|
x:=f(x); |
|
S:=S+x |
|
end; |
|
var a,s,x,e,i:real; begin
read(x,e);
a:=1;
S:=a;
I:=0;
while abs(a)>e do begin
I:=I+1;
a:=a*x/i;
S:=S+x;
end;
writeln(s);
end.
ex |
|
|
x |
x2 |
|
xn |
||
1 |
|
|
|
|
... |
|
... |
|
|
|
|
|
|
||||
|
|
1! |
2! |
|
n! |
ai
Пример 6.
z:=1;
s:=1;
x:=1;
for i:=1 to n do
begin
z:=-z; x:=x+0.1;
s:=s+z*x;
end;
Пример 7.
p:=1;
s:=p;
for i:=1 to n do begin
p:=p*y; //рекуррентное соотношение только s:=s+p/i;//для числителя
end;