Помогите дописать код?
написать программу вывода на экран таблицы функции, которую оформить в виде процедуры. В качестве функции использовать по выбору Tg(x), ch(x) и sin2(x)
Необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от xn до xk с шагом h=(xn-xk)/10. Близость значений S(x) и Y(x) во всем диапазоне значений x указывает на правильность вычисления S(x) и Y(x).
Код: Выделить всё
const n=4;
xn=0.1;
xk=1.0;
var
Form1: TForm1;
implementation
{$R *.dfm}
function Cs(x:real):real;
var t:real;
i:integer;
begin
result:=1;
t:=1;
for i:=1 to n do
begin
t:=-t*x*x/((2*i-1)*(2*i));
result:=result+t;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var x,h:real;
k:integer;
begin
with StringGrid1 do
begin
colcount:=3;
rowcount:=12;
cells[0,0]:='x';
cells[1,0]:='S(x)';
cells[2,0]:='Y(x)';
end;
h:=(xk-xn)/10;
x:=xn;
k:=0;
while x<=xk do
begin
k:=k+1;
with StringGrid1 do
begin
cells[0,k]:=FloatToStrF(x,ffFixed,5,1);
cells[1,k]:=FloatToStrF(Cs(x),ffFixed,8,4);
cells[2,k]:=FloatToStrF(cos(x),ffFixed,8,4);
end;
x:=x+h;
end;
end;