Практикум по решению задач на ЭВМ. Тарова И.Н - 88 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
while abs(a)>=e do
begin
s:=s+a;
i:=i+1;
p:=p*i;
{факториал i}
if i mod 2=0 then
a:=1/p else a:=-1/p;
end;
writeln('сумма=',s:2:6);
writeln('i=',i);
repeat until keypressed;
end.
3) Даны действительные числа
ε
,,ba
, причем a>b>0,
0>
ε
. Последова-
тельности
образованы по закону:
,...,,...,,
2121
yyxx
byax
=
=
11
,
,
),(
2
1
11
11
−−
−−
−=+=
kk
kkkk
yxyyxx
, k=2, 3, …
program f1(input, output);
uses crt;
var k,n:integer; a,b,e,x1,y1,xk,yk,dif:real;
begin
writeln('a,b,epsilon');
readln(a,b,e);
k:=1;x1:=a;y1:=b;
repeat
k:=k+1;
xk:=(x1+y1)/2;
yk:=sqrt(x1+y1);
dif:=abs(xk-yk);
x1:=xk;
y1:=yk;
until dif<e;
n:=k;
writeln('xk=',xk,'k=',k);
repeat until keypressed;
end.
88
                                       Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


    while abs(a)>=e do
      begin
        s:=s+a;
        i:=i+1;
        p:=p*i;
        {факториал i}
        if i mod 2=0 then
        a:=1/p else a:=-1/p;
     end;
     writeln('сумма=',s:2:6);
     writeln('i=',i);
     repeat until keypressed;
  end.




3) Даны действительные числа a,b,ε , причем a>b>0, ε > 0 . Последова-
тельности x , x ,..., y , y ,... образованы по закону: x = a, y = b ,
            1 2        1 2                              1      1
      1
   x = ( x + y ), y = x           −y    , k=2, 3, …
   k       k −1   k −1   k   k −1   k −1
       2
  program f1(input, output);
  uses crt;
  var k,n:integer; a,b,e,x1,y1,xk,yk,dif:real;
   begin
      writeln('a,b,epsilon');
      readln(a,b,e);
      k:=1;x1:=a;y1:=b;
      repeat
        k:=k+1;
        xk:=(x1+y1)/2;
        yk:=sqrt(x1+y1);
        dif:=abs(xk-yk);
        x1:=xk;
        y1:=yk;
        until dif