Question

Дано целое число N (> 0). Вывести сумму 2 + 1/(2!) + 1/(3!) + ... + 1/(N!) (выражение N! — "N факториал" — обозначает произведение всех целых чисел от 1 до N: N! = 1•2•...•N). Полученное число является приближенным значением константы e = exp(1) (= 2.71828183...). Язык: Delphi 7

Answer 1

Var n,i:integer; f:longint; s:real;
begin
write('n = ');
readln(n);
f:=1; s:=2;
for i:=2 to n do
 begin
 f:=f*i;
 s:=s+1/f;
 end;
writeln('s = ',s);
end.

Пример:
n = 10
s = 2.71828180114638

Answer 2

Вот пример решения данной задачи на Delphi 7:

delphiCopy code
program CalculateEApproximation;

uses
  SysUtils;

function Factorial(N: Integer): Double;
var
  I: Integer;
begin
  Result := 1;
  for I := 2 to N do
    Result := Result * I;
end;

function CalculateEApproximation(N: Integer): Double;
var
  I: Integer;
begin
  Result := 2;
  for I := 2 to N do
    Result := Result + 1 / Factorial(I);
end;

var
  N: Integer;
  EApproximation: Double;
begin
  Write('Введите целое число N (> 0): ');
  ReadLn(N);

  if N <= 0 then
  begin
    WriteLn('Неверное значение N. Пожалуйста, введите целое число больше 0.');
    Exit;
  end;

  EApproximation := CalculateEApproximation(N);
  WriteLn('Приближенное значение константы e:', EApproximation:0:8);
  ReadLn;
end.

Эта программа сначала запрашивает у пользователя значение N. Затем она проверяет, что введенное значение больше 0. Если значение неверно, программа выводит сообщение об ошибке и завершается. В противном случае она вызывает функцию CalculateEApproximation, которая вычисляет приближенное значение константы e с использованием формулы, данной в задаче. Результат выводится на экран с точностью до 8 знаков после запятой.

Обратите внимание, что факториал чисел N может быть очень большим, поэтому для точности результата используется тип данных Double, который может обрабатывать большие числа с плавающей запятой.