Табулирование в Pascal

[M1xer]

Помогите пожалуйста с задачей:

F(x) - табулируемая функция; [A,B] - диапазон изменения аргумента;
n- количество точек; h- шаг табуляции. Результатом является таблица, содержащая три столбца: i - текущая точка расчета, Xi - значение аргумента, Yi - значение функции.

Для расчетов использовать следующие формулы:

\[h\frac{{B - A}} {{n - 1}}\]

;

\[Xi = A + i*h\]

;

\[Yi = F(Xi)\]

;

\[i = 0,1,2,...,n - 1\]

.


Исходные данные:
Y=F(x) = X-3/X^2+2
A=-4
B=4
n - не указано, надо найти
h=0.5

есть только набросок, не знаю првильный ли он, как сделать полностью

for i:=0 to round((b-a)/h) do
begin
xi:=a+i*h;
yi:=x1-3/xi/xi+2;
writeln(i,' ',xi,' ',yi);
end;

[ewert]

правильно, только, во-первых, правила приличия требует делать отступы и, во-вторых, квадрат немножко грамотнее записывать как sqr(xi).

(ну и там ещё по рассеянности x1 проскочило)