VPF::(Помог-те доп-ть код?)Табулирование значений функ

username12

Дата 20.12.2015, 17:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 4.11.2015

Репутация: нет
Всего: нет

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

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »