 |
     |
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| [ домой ] | [ следующий ] [ начало главы ] [ предыдущий ] | [ содержание ] |
Здесь 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-программы
|
| [ домой ] | [ следующий ] [ начало главы ] [ предыдущий ] | [ содержание ] |
|
Книги-online