Пример 2.4. Для заданного x вычислить S= х/1! + x2/2! + x3/3! + xn/n! Здесь 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

Другие записи

10.06.2016. Пример 2.5. Дан массив X(N). Получить новый массив Y(N) такой, что в нем сначала идут положительные числа, затем нулевые, и затем отрицательные из X.
Тест Данные Результат N=7  X=(-1, 2, 0, 4, -3,-2,0)  Y=(2, 4, 0, 0, -1, -3, -2) Школьный АЯ алг Новый Порядок (арг цел N, арг вещ таб Х[1:N], рез вещ таб Y[1:N]) нач цел…