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
Пример 2.5. Дан массив X(N). Получить новый массив Y(N) такой, что в нем сначала идут положительные числа, затем нулевые, и затем отрицательные из X.
