Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Лаба 7 вар 9 / 3 / Unit1

.pas
Скачиваний:
14
Добавлен:
18.07.2019
Размер:
968 б
Скачать
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.
Соседние файлы в папке 3
  • #
    18.07.2019263 б15Project1.dpr
  • #
    18.07.2019876 б14Project1.res
  • #
    18.07.20194.83 Кб14Unit1.dcu
  • #
    18.07.201951 б14Unit1.ddp
  • #
    18.07.20191.34 Кб14Unit1.dfm
  • #
    18.07.2019968 б14Unit1.pas
  • #
    18.07.20193.36 Кб14Unit2.dcu
  • #
    18.07.2019328 б15Unit2.dfm
  • #
    18.07.2019311 б14Unit2.pas