Добро пожаловать,
|
|
|
|
|
|
 Книги-online
Практикум — Глава 2. Алгоритмы, реализуемые с помощью циклов типа ДЛЯ
Пример 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 |
|
Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском
.
книги по программированию исходники компоненты шаблоны сайтов C++ PHP Delphi скачать
|
|
