Составить программу вычисления значений функции f(x) на отрезке [а; b] с шагом h. результат представить в виде таблицы, первый столбец которой — значения аргумента, вто¬рой — соответствующие значения функции: f(x)=xcos(1\x)+2 решить нужно в паскаль.
function f(x: real): real; begin f:=x*cos(1/x)+2; end;
begin write('a: '); read(a); write('b: '); read(b); write('h: '); read(h); writeln('Полученный результат:'); writeln(' x | f(x) '); while a<b do begin writeln(a:5:4,'|',f(a):5:4); a:=a+h; end; end.
uses crt;
var a,b,h: real;
function f(x: real): real;
begin
f:=x*cos(1/x)+2;
end;
begin
write('a: ');
read(a);
write('b: ');
read(b);
write('h: ');
read(h);
writeln('Полученный результат:');
writeln(' x | f(x) ');
while a<b do
begin
writeln(a:5:4,'|',f(a):5:4);
a:=a+h;
end;
end.