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

Поможіть....... Скласти програму обчислення значень функції f(x)=е^(-x )+ cos3x на відрізку [A;B] в точках Xi=A+iH, де H=(B-A)/M, А=-1, В=4, М=10.
Гость
Ответ(ы) на вопрос:
Гость
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 > 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы