unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
mmo1: TMemo;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
edt4: TEdit;
btn1: TButton;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
edt1.Text:='0,1';
edt2.Text:='1';
edt3.Text:='0,15';
edt4.Text:='0,0001';
end;
procedure TForm1.btn1Click(Sender: TObject);
var xn,xk,x,y,e,a,s,h:Extended;
n:Integer;
begin
mmo1.Clear;
mmo1.Lines.Add('Result=');
xn:=StrToFloat(edt1.Text);
mmo1.Lines.Add('xn='+FloatToStrF(xn,ffFixed,8,3));
xk:=StrToFloat(edt2.Text);
mmo1.Lines.Add('xk='+FloatToStrF(xk,ffFixed,8,3));
h:=StrToFloat(edt3.Text);
mmo1.Lines.Add('h='+FloatToStrF(h,ffFixed,8,3));
e:=StrToFloat(edt4.Text);
mmo1.Lines.Add('e='+FloatToStrF(e,ffFixed,8,4));
x:=xn;
repeat
a:=1;
s:=1;
n:=0;
while (Abs(a)>e) do begin
n:= n+1;
a:=a*sqr(x)/(2*n*(2*n-1));
s:=s+a;
end;
y:= (Exp(-x)+Exp(x))/2;
mmo1.Lines.Add('pri x='+FloatToStrF(x,fffixed,8,2));
mmo1.Lines.Add('summa='+FloatToStrF(s,fffixed,8,4));
mmo1.Lines.Add('y='+FloatToStrF(y,fffixed,8,4));
mmo1.Lines.Add('n='+IntToStr(n));
x:=x+h;
until x>xk
end;
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.