[Rosenkrantz]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

program SqSum_01;   {$APPTYPE CONSOLE}   uses   SysUtils, Math;   var   X_ARG: Double;   //------------------------------------------------------------------------------ // Функция вычисляет значение факториала N //------------------------------------------------------------------------------ function Factorial(N: Integer): Cardinal; begin   if N = 1 then Result := 1            else Result := Factorial(N - 1) * N; end;   //------------------------------------------------------------------------------ // Функция вычисляет значение очередного члена ряда с номером N //------------------------------------------------------------------------------ function SqTerm(N: Integer; X: Double): Double; begin   Result := Power(-1, N) * Power(X, 2 * N) / Factorial(2 * N); end;   //------------------------------------------------------------------------------ // Функция вычисляет сумму членов последовательности, // удовлетворяющих условию задачи //------------------------------------------------------------------------------ function SumTerms(N: Integer; E: Double): Double; var   Term: Double; begin   Result := 0.0;                // Сюда будем суммировать     while N > 0 do begin     Term := SqTerm(N, X_ARG);   // Вычисляем очередной член ряда     if Abs(Term) >= E then      // Проверяем условие       Result := Result + Term;  // Если модуль больше либо равен E - суммируем     Dec(N);                     // Переходим к следующему члену ряда   end; end;   begin   Write('X: ');   Readln(X_ARG);     Writeln;   Writeln('X = ', X_ARG:6:2);     Writeln('E = 2, N = 10: ', SumTerms(10, 2):10:2);   Writeln('E = 1, N = 10: ', SumTerms(10, 1):10:2);   Writeln('E = 0, N = 10: ', SumTerms(10, 0):10:2);     { Чтобы пользователь смог насладиться результатом, ожидаем нажатия Enter}   Writeln;   Writeln('Press [Enter].');   Readln; end.