0

Вот собственно код

program Epsilon;
var
  e: real; {Переменная для хранения значения точности}
  k: integer; { Переменная для хранения значения аргумента}
  s: real;   { Переменная для хранения значения члена ряда}
  sum: real;   { Переменная для хранения значения суммы}

begin
  write('Введите значение точности вычислений: ');
  Readln(e);
  sum:= 0; {Начальные установки переменных}
  k:= 1;
  s:= 1/2;   
  while e < s do
    begin
      sum:= sum + s; {Вычисление суммы}
      inc(k);             {Приращение аргумента}
      s:= 1/exp(k*ln(2)); {Вычисление значения члена ряда}
    end;
  writeln('Сумма: ', sum:0:4);
  readln;
end.
6
  • 1
    Читать ввод пользователя как строку, а потом самому её разбирать и приводить к требуемому значению. Либо просто просить ввести точность в виде количества знаков после запятой (2, 3 и т.п.), а потом делать e := power(10, -e);
    – Alekcvp
    30 апр 2020 в 9:32
  • Не совсем понял как это будет реализовано в коде
    – user385915
    30 апр 2020 в 9:40
  • Первый вариант - длинно и сложно, второй - я написал. Просите ввести количество знаков для точности (степень), читаете их в e, потом делаете как я написал выше. Т.е. если вам нужна точность 10^-3, то вы вводите 3. Единственное - я не знаю что за pascal и есть ли в нём функция power() или в каком она модуле.
    – Alekcvp
    30 апр 2020 в 9:43
  • 3
    Можно вводить 1e-2, 1e-3. 30 апр 2020 в 9:49
  • О, точно, я и забыл про это :)
    – Alekcvp
    30 апр 2020 в 10:14

0

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.