Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > (Помог-те доп-ть код?)Табулирование значений функ

Автор: username12 20.12.2015, 17:00

Помогите дописать код?

написать программу вывода на экран таблицы функции, которую оформить в виде процедуры. В качестве функции использовать по выбору 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).

http://pixs.ru/showimage/Bezimyanni_1434551_19946091.png

http://pixs.ru/showimage/Bezimyanni_2023009_19946095.png

Код


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;