поможть....... Скласти програму обчислення значень функц f(x)=е^(-x)+ cos3xна вдрзку

Поможть....... Скласти програму обчислення значень функц f(x)=е^(-x
)+ cos3x
на вдрзку [A;B] в точках
Xi=A+iH, де H=(B-A)/M, А=-1, В=4, М=10.

Задать свой вопрос
1 ответ
Var
    x0, xk, dx, x: real;

function f(x: real): real;
begin
    f := exp(-x) + cos(3 * x);
end;

begin
    write('Введите просвет и шаг ([a,b] h) ');
    readln(x0, xk, dx);
    
    x := x0;
    writeln(' x ':10, ' ', ' f(x) ':10);
    
    repeat
        writeln(x:10:3, ' ', f(x):10:3);
        x := x + dx;
    until x gt; xk;
end.

Пример вывода
Введите просвет и шаг ([a,b] h) -1 4 0.5
        x        f(x)
    -1.000       1.728
    -0.500       1.719
     0.000       2.000
     0.500       0.677
     1.000      -0.622
     1.500       0.012
     2.000       1.096
     2.500       0.429
     3.000      -0.861
     3.500      -0.445
     4.000       0.862


, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт