табулирование функции

[shalgan]

Добрый день,форумчане, поделитесь пожалуйста знаниями. Задача стоит такая:

3.y=1/(3*x*x+2*x+1);
Задание для выполнения:
1.Программно исследовать область определения заданной функции( см. вариант ).
2.C учетом проведенных исследований(точек разрыва) протабулировать функцию на заданном отрезке изменения аргумента от Хначального до Хконечного(Хн и Хк вводить в процессе работы программы).
3. Cохранить полученную таблицу значений функции в текстовом файле(выбор имени файла осуществлять динамически с помощью компонент страницы VCL DIALOGS.
4. Построить график заданной функции:
а) с использованием визуального компонента класса TChart;
б) на канве (свойство Canvas) компонента класса TPaintbox или класса TImage.


корни квадратного уравнения я нашел, вот код

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,x1,x2:real;
begin
 a:=strtofloat(edit1.text);
 b:=strtofloat(edit2.text);
 c:=strtofloat(edit3.text);
 d:=b*b/4*a*c;
 x1:=(-b+sqrt(d))/2;
 x2:=(-b-sqrt(d))/2;
 edit4.Text:=floattostr(x1);
 edit5.Text:=floattostr(x2);
end;

а вот с табуляции возникли проблемы, примеры,какие только нашел в интернете сделаны с шагом и с интервалом, шага у меня вроде как нету, а интервал получается от (-бесконечности до х1) от (х1 до х2)и от (х2 до + бесконечности). Вот как это все оформить в паскале? как описать бесконечность, и включая или не включая какие-то значения?В алгебре это делается скобками,а вот в паскале?

[Mad_Cat]

Хн и Хк вводить в процессе работы программы

причем тут бесконечность то
Шаг тоже вводите
и табулируйте исключая те x ,когда функция обращается в 0

if (x<>x1) and (x<>x2) then y:= ваша функция