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

[Jonh Locke]

Дана функция
Безымянный.jpg
a=5
Необходимо написать программу на языке программирования Delphi 7 с выводом результатов:
а) в компоненту Memo в виде двух столбцов числовых данных с разделителем «пробел»
б) на компоненту Chart в виде графика типа Line.
в) в файл с расширением *.txt с разделителем столбцов числовых данных в виде пробела;

[zvoronz]

Ты хочешь что бы за тебя сделали?

[Jonh Locke]

Любая помощь приветствуется

[Jonh Locke]

.........up

[astecenko]

В программу должна вводится числовые значения А и Х
Далее возводите А в квадрат, и сравниваете с полученным результатом Х, если равно расчитываете результат по 2ому варианту, иначе проверяете если Х больше квадрата А рассчитываете результат по 1ому варианту, иначе рассчитываете по 3ему.

Что Вам конкретно не понятно? Где Ваши наработки?

[Jonh Locke]

program Project 1;
{$APPTYPE CONSOLE}
uses
SysUtils,
Math;

var
a,xn,xk,deltax,x,y:real;
t:text;
begin
Assignfile(t,'Project 1.txt');
rewrite(t);
a:=5;
xn:=-10;
xk:=10;
deltax:=0.2;
x:=xn;
while x<=xk do
begin
If (x>a*a) then
y:=(a*sqr(x)*(x+1)+a*x)/(1+x*x+x)
else
If (x=a*a)
y:=a+x;
If (x<a*a) then
y:=Sqrt(Abs(a+x))-8a
writeln(t,x:2:2,' ',y:2:2);
x:=x+deltax;
end;
closefile(t);
end.

Собственно довел до этого (видоизменил чужой вариант), что ещё исправить?