Разложение функции в ряд

@Woopulk Naivett · Регистрация: 07.02.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте! Помогите, пожалуйста, с заданием:
Само задание и что получилось на данный момент в приложениях.
Задание

Что получилось:
111.rar

@FIL · 30.12.2014, 23:14

Комментарий модератора

Woopulk Naivett, задание следует перепечатывать на форум.

@Woopulk Naivett · 30.12.2014, 23:26 **[ТС]**

Прошу прощения.
Написать и отладить программу, которая выводит таблицу значений функции и ее разложения в ряд
для х изменяющихся в интервале от a до b c шагом h. Функцию s(x) вычислять с точностью до 0,0001. Вывести число итераций, необходимое для достижения заданной точности.
Вывести на экран таблицу значений функции
Y(x) и ее разложения в ряд S(x) для x изменяющихся от a до b с заданным количеством шагов M и точностью e. Близость значений
S(x) иY(x) во всем диапазоне значений x указывает на правильность вычисления S(x) и Y(x).
Алгоритм вывода на экран таблицы функции, оформить в виде подпрограммы (процедуры)

@Puporev · 31.12.2014, 12:17

Думаю нужно для функции в таблице (sh(x)=(e^x+e^-x)/2)
Вот мой вариант

Delphi

function y(x:real):real;
begin
y:=(exp(x)-exp(-x))/2;
end;
function s(x,e:real;var n:integer):real;
var t,w:real;
begin
n:=0;
t:=x;
result:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=t*x*x/(2*n*(2*n+1));
  result:=result+t;
 end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='0.1';
Edit2.Text:='1.0';
Edit3.Text:='0.1';
Edit4.Text:='0.0001';
end;
procedure TForm1.Button1Click(Sender: TObject);
var xn,xk,x,e,z:real;
    n:integer;
    st,s1:string;
begin
e:=0.0001;
xn:=0.1;
xk:=1.0;
x:=xn;
while x<=xk do
 begin
  z:=s(x,e,n);
  str(x:6:2,s1);
  st:=s1;
  str(z:18:4,s1);
  st:=st+s1;
  str(y(x):20:4,s1);
  st:=st+s1;
  str(n:15,s1);
  st:=st+s1;
  Memo1.Lines.Add(st);
  x:=x+0.1
 end;
end;

@Woopulk Naivett · 27.01.2015, 21:28 **[ТС]**

Посмотрите, пожалуйста, программа должна быть из двух модулей.
Не понимаю, как мне расписать свою функцию

Delphi

unit Unit1;
 interface
uses
 Windows,Messages,SysUtils,Variants,Classes,Graphics,
 Controls,Forms,Dialogs,Buttons,StdCtrls, unit2;
type
 TForm1 = class(TForm)
 Label1: TLabel;
 Edit1: TEdit;
 Edit2: TEdit;
 Edit3: TEdit;
 Label2: TLabel;
 Edit4: TEdit;
 Label3: TLabel;
 Button1: TButton;
 Memo1: TMemo;
 Button2: TButton;
 Label4: TLabel;
 procedure FormCreate(Sender: TObject);
 procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var Form1: TForm1;
 implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 memo1.Clear;
end;
procedure TForm1.Button1Click(Sender: TObject);
 var a,b,h,x,eps,s:extended;
 it:word;
begin
 a:=strtofloat(edit1.Text);
 b:=strtofloat(edit2.Text);
 h:=strtofloat(edit3.Text);
 eps:=strtofloat(edit4.Text);
 x:=a;
 repeat
 sum(x,eps,s,it);
 memo1.Lines.Add(floattostrf(x,fffixed,5,2)+
 '             '+floattostrf(s,fffixed,9,6)+
 '             '+floattostrf(y(x),fffixed,9,6)+
 '             '+inttostr(it));
 x:=x+h;
 until x>b+0.0000000001;
end;
end. 
 
 
 unit unit2;
 interface
 function y(x:extended):extended;
 procedure sum(x,eps:extended; var s:extended; var k :word);
 implementation
 function y;
 begin
 result:=(exp(x)-exp(-x))/2;
 end;
 procedure sum;
 var w:extended;
 begin
 s:=1; w:=1; k:=0;
 repeat
 inc(k);
 w:=-w*x*x/(2*k*(2*k+1));
 
 s:=s+w;
 until abs(w)<eps;
 end;
 end.

@Puporev · 27.01.2015, 21:48

Сообщение от Woopulk Naivett

как мне расписать свою функцию

Так у меня же написаны обе функции, которые используются в программе.

Delphi

1 2	function y(x:real):real; function s(x,e:real;var n:integer):real;

Добавлено через 1 минуту
Ну заменили имена переменных и их тип, так и замените их в теле функций.

@Woopulk Naivett 1 / 1 / 0 Регистрация: 07.02.2012 Сообщений: 8
		1
	Разложение функции в ряд 30.12.2014, 22:48. Показов 1787. Ответов 5 Метки нет (Все метки) Здравствуйте! Помогите, пожалуйста, с заданием: Само задание и что получилось на данный момент в приложениях. Задание Что получилось: 111.rar 0

@Woopulk Naivett 1 / 1 / 0 Регистрация: 07.02.2012 Сообщений: 8
	30.12.2014, 23:26 [ТС]	3
	Прошу прощения. Написать и отладить программу, которая выводит таблицу значений функции и ее разложения в ряд для х изменяющихся в интервале от a до b c шагом h. Функцию s(x) вычислять с точностью до 0,0001. Вывести число итераций, необходимое для достижения заданной точности. Вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от a до b с заданным количеством шагов M и точностью e. Близость значений S(x) иY(x) во всем диапазоне значений x указывает на правильность вычисления S(x) и Y(x). Алгоритм вывода на экран таблицы функции, оформить в виде подпрограммы (процедуры) 0

	27.01.2015, 21:48