• Program2.pas(29) : Нельзя преобразовать тип function(x: real;eps: real): real к real
    var
    a, i, s, r, j, t, x, eps: real;

    function v(x, eps: real): real;
    begin
    i := 1;s := 0;a := 1;t := 1; r := 1;
    while abs(sin(x) - s) > eps do
    begin

    while i <= x do
    begin
    a := a * i;
    r := r + 1
    end;

    s := s + t * power(x, i) / a;
    t := -t;
    a := 1;
    i := i + 2;
    end;
    v := s;
    end;

    begin
    read(x);
    read(eps);
    a := v;
    v(x, eps);
    write('sinx=', sin(x));
    write('по формуле ', a);
    write('количество итераций', i);
    end.
    Как исправить?

Ответы 1

  • Вот только программа эта, Вами составленная, не выдает результата - зацикливается при выполнении.
    • Автор:

      leo4
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years