Дано действительное число x и натуральное n. Описать функции: - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста. Преподаватель сказал сделать через function, я не очень понял как это. Не могли бы вы мне помочь!

Дано действительное число x и натуральное n. Описать функции:

Решение задачи: «Дано действительное число x и натуральное n. Описать функции:»

textual
Листинг программы
function logarifm(x : Real; n : Integer) : Real;
begin
  var S := -1.0;
  for var i := 1 to n do
    begin
      S *= -(x-1)/i;
      Result += S;
    end;
end;
 
begin
  var x := ReadLnReal('x =');
  var n := ReadLnInteger('n =');
  WriteLn(logarifm(x, n) : 10:8, NewLine, Ln(x) : 10:8);
end.

Объяснение кода листинга программы

  1. Введенные данные: — x (действительное число), — n (натуральное число).
  2. Создана функция logarifm(x: Real; n: Integer): Real.
  3. Внутри функции объявлена переменная S со значением -1.0.
  4. В цикле от 1 до n выполняется:
    • Значение S умножается на -(x-1)/i.
    • Результат прибавляется к переменной Result.
  5. Выход из функции: результат функции (значение переменной Result) возвращается в основную программу.
  6. В основной программе объявлены переменные x и n.
  7. Значение переменных x и n считывается с помощью функций ReadLnReal и ReadLnInteger соответственно.
  8. С помощью функции WriteLn выводится значение функции logarifm(x, n) с указанием формата вывода 10:8.
  9. С помощью функции Ln выводится значение переменной x с указанием формата вывода 10:8.
  10. Программа завершается.

Оцени полезность:

11   голосов , оценка 3.818 из 5
Похожие ответы