[ домой ] [ следующий ] [ начало главы ] [ предыдущий ] [ содержание ]

Пример 2.4. Для заданного x вычислить
 
Здесь n! = 1. 2. 3 .... n (читается как "n-факториал").
 
Тест
 
Данные
Результат
X=1
n=3
 
Демонстрация
Школьный АЯ 
алг Сумма Ряда (арг вещ х, арг цел n, рез вещ S)
нач цел i, вещ P     | P - очередное слагаемое
  S := 1; P := 1
  нц для i от 1 до n
    P := - P*x /i    | получение очередного слагаемого
    S := S + P
  кц
кон
Turbo Pascal  
Program SumUp;
  Uses Crt;
  Var x, S, P : Real; 
                {P - очередное слагаемое}
      i, n : Integer;
BEGIN ClrScr;
  Write('Введите n = ');  ReadLn(n);
  Write('Введите x = ');  ReadLn(x); WriteLn;
  S := 1; P := 1;
  For i := 1 to n do
    begin
      P := - P*x /i; {получение очередного слагаемого}
      S := S + P
    end;
  WriteLn('О т в е т : S = ', S : 7 : 3 ); ReadLn
END. 
Блок-схема 
 
QBasic  
CLS
INPUT "Введите n = ", n
INPUT "Введите x = ", x
S = 1 : P = 1
FOR i = 1 TO n
  P = -P * x / i
  S = S + P
NEXT i
PRINT : PRINT "О т в е т : S = " ; S
END 
   Результат работы  
QBasic-программы 
 
Введите n = 3   <Enter>  
Введите x = 1   <Enter>  

Ответ:  S =  .3333333
 

[ домой ] [ следующий ] [ начало главы ] [ предыдущий ] [ содержание ]