Добавил:
Xer1t
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лаба 7 вар 9 / 3 / Unit1
.pas unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Math;
type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var x, e, a, S:real; k:byte;
begin
x:=StrToFloat(LabeledEdit1.Text);
e:=StrToFloat(LabeledEdit2.Text);
a:=1; k:=1; S:=0;
repeat
S:=S+a;
k:=k+1;
a:=a*x*(k-1)/sqr(k);
until abs(a/S)<=e;
Label1.Caption:='S='+FloatTostrF(S,ffFixed,10,5);
Label2.Caption:='Слагаемых в сумме '+IntToStr(k-1);
Label3.Caption:='альтерн. знач. '+FloatToStr(exp(x));
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Math;
type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var x, e, a, S:real; k:byte;
begin
x:=StrToFloat(LabeledEdit1.Text);
e:=StrToFloat(LabeledEdit2.Text);
a:=1; k:=1; S:=0;
repeat
S:=S+a;
k:=k+1;
a:=a*x*(k-1)/sqr(k);
until abs(a/S)<=e;
Label1.Caption:='S='+FloatTostrF(S,ffFixed,10,5);
Label2.Caption:='Слагаемых в сумме '+IntToStr(k-1);
Label3.Caption:='альтерн. знач. '+FloatToStr(exp(x));
end;
end.