Помогите составить программу для вычисления и печати таблицы функции

[Astat1ne]

y=f(x) na otrezke [0:1] s shagom h:

arctg(0.2x)/1+x^2

Если можно,скиньте программу с заданной шапкой для таблицы

[Вадим Мошев]

Я помогу сделаю вам эту программу за небольшое денежное вознаграждение. Вы согласны? Ссылка у меня в подписи.

[abit]

Сообщение от Astat1ne

y=f(x) na otrezke [0:1] s shagom h:

arctg(0.2x)/1+x^2

Если можно,скиньте программу с заданной шапкой для таблицы

uses Math;

function f(x:double):double;
begin
  f:=arctan(0.2*x)/1+sqr(x);
end;

var
  h:double;
  x:double=0;
begin
  Write('Введите шаг (0..1] : '); Readln(h);
  writeln('     x     f(x)');
  writeln;
  while (x<=1) do
  begin
       writeln(x:8:4,f(x):8:4);
       x:=x+h;
  end;
  Readln;
end.

шаг задавать на интервале (0..1] через точку, например 0.08