Поможіть....... Скласти програму обчислення значень функції 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
Не нашли ответ?
Похожие вопросы