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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Практикум по решению задач на ЭВМ
else
begin
write(1);
n2:=n2+1
end;
end;
writeln(' ','n1=',n1,' ', 'n2=',n2);
repeat until keypressed;
end.
Лабораторная работа №25
Вычисления с некоторой точностью
1) Даны действительные числа x,
ε
(x<>0,
ε
>0. Вычислить с точностью
ε
бесконечную сумму и указать количество учтенных слагаемых.
а)
;
)12(!
)1(
0
12
∑
∞
=
+
+
−
k
kk
kk
x
б)
;
)34()!12(
)1(
0
34
∑
∞
=
+
++
−
k
kk
kk
x
в)
;
)14()!2(
)1(
0
14
∑
∞
=
+
+
−
k
kk
kk
x
г)
;)
2
(
))!1((
)1(
0
)1(2
2
∑
∞
=
+
+
−
k
k
k
x
k
д)
.)
2
(
)!1(!
)1(
0
12
∑
∞
=
+
+
−
k
k
k
x
kk
2) Вычислить бесконечную сумму с заданной точностью
0>
ε
:
∑
∞
=
−
1
!
)1(
i
i
i
program summa;
uses crt;
var
i:integer;a,p,s,e:real;
begin
writeln('vvedite tochnost epsilon');
readln(e);
s:=0;
i:=1;p:=1;{факториал}
a:=-1;{первое слогаемое}
87
                                          Практикум по решению задач на ЭВМ


       else
        begin
         write(1);
         n2:=n2+1
        end;
       end;
       writeln(' ','n1=',n1,' ', 'n2=',n2);
      repeat until keypressed;
     end.




   Лабораторная работа №25
                 Вычисления с некоторой точностью
1) Даны действительные числа x,ε (x<>0,ε>0. Вычислить с точностью
εбесконечную сумму и указать количество учтенных слагаемых.
      ∞
         (−1) k x 2 k +1
а) ∑k =0 k!( 2k + 1)
                         ;
                    k 4 k +3
б) ∑ (−1) x
     ∞
                                    ;
    k =0 ( 2k + 1)!( 4k + 3)
                 k 4 k +1
в) ∑ (−1) x
     ∞
                            ;
   k =0 ( 2k )!( 4k + 1)

г)
    ∞
            ( −1) k       x
   ∑
   k =0 (( k + 1)!)
                     2
                        ( ) 2 ( k +1) ;
                          2
д)
      ∞
            (−1) k    x
     ∑               ( ) 2 k +1.
     k =0 k!( k + 1)! 2



2) Вычислить бесконечную сумму с заданной точностью ε > 0 :                    ∞
                                                                                     (−1) i
                                                                              ∑
                                                                              i =1
                                                                                       i!
     program summa;
     uses crt;
     var
     i:integer;a,p,s,e:real;
     begin
        writeln('vvedite tochnost epsilon');
        readln(e);
        s:=0;
        i:=1;p:=1;{факториал}
        a:=-1;{первое слогаемое}


                                                         87

Страницы