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

2 сем / 7 лаба / 7.3 / Unit1

.pas
Скачиваний:
5
Добавлен:
18.07.2019
Размер:
1.52 Кб
Скачать
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, synta, StdCtrls, Buttons, ExtCtrls;

type
TForm1 = class(TForm)
le1: TLabeledEdit;
le2: TLabeledEdit;
btn1: TBitBtn;
l1: TLabel;
l2: TLabel;
l3: TLabel;
procedure btn1Click(Sender: TObject);
procedure le1KeyPress(Sender: TObject; var Key: Char);
procedure le1Change(Sender: TObject);
procedure le2KeyPress(Sender: TObject; var Key: Char);
procedure le2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.le1KeyPress(Sender: TObject; var Key: Char);
begin
Control(Key, le1.Text);
end;

procedure TForm1.le1Change(Sender: TObject);
begin
btn1.Enabled:=Control2(le1.Text);
end;

procedure TForm1.le2KeyPress(Sender: TObject; var Key: Char);
begin
Control(Key, le2.Text);
end;

procedure TForm1.le2Change(Sender: TObject);
begin
btn1.Enabled:=Control2(le1.Text);
end;


procedure TForm1.btn1Click(Sender: TObject);
var x, e, a, S:real; k:byte;
begin
x:=StrToFloat(le1.Text);
e:=StrToFloat(le2.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;
l1.Caption:='S='+FloatTostrF(S,ffFixed,10,5);
l2.Caption:='Слагаемых в сумме '+IntToStr(k-1);
l3.Caption:='альтерн. знач. '+FloatToStr(exp(x));
end;

end.
Соседние файлы в папке 7.3
  • #
    18.07.2019226 б5Project1.dpr
  • #
    18.07.2019876 б5Project1.res
  • #
    18.07.20195.88 Кб5Unit1.dcu
  • #
    18.07.201951 б5Unit1.ddp
  • #
    18.07.20191.5 Кб5Unit1.dfm
  • #
    18.07.20191.52 Кб5Unit1.pas