Developing.ru

Какова цель поста? Ты этот текст предлаешь исспользовать? Проверить? Я бы переделал так:
[syntax=Pascal]
type tf=function (x:real):real;
procedure f(a,b,dx:real; p:tf);
var x: real;
begin
x:=a;
while x<=b do
begin
writeln('x=',x,', F(x)=',p(x));
x:=x+dx;
end;
end;
[/syntax]

var x: real;
function f(x: real): real;
begin
   f:=sin(x); {тут вместо синуса вставляется ваша функция, указанная в задании}
end;
begin
  x:=a;
  while x<=b do
  begin
     writeln('x=',x,', F(x)=',F(x));
     x:=x+dx;
  end;
end.

Распространеннейшее школьное задание: построить таблицу значений функции F(x) на промежутке от a до b с шагом dx.

[code]
var x: real;
function f(x: real): real;
begin
f:=sin(x); {тут вместо синуса вставляется ваша функция, указанная в задании}
end;
begin
x:=a;
while x<=b do
begin
writeln('x=',x,', F(x)=',F(x));
x:=x+dx;
end;
end.
[/code]
Если даны начало и конец интервала и количество шагов N - в начале программы вычисляется dx=(b-a)/N