Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
5
Добавлен:
18.07.2019
Размер:
1.81 Кб
Скачать
unit Unit1;

interface

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

type
TForm1 = class(TForm)
lbl1: TLabel;
btn1: TButton;
lbledt1: TLabeledEdit;
lbledt2: TLabeledEdit;
lbl2: TLabel;
lbl3: TLabel;
procedure btn1Click(Sender: TObject);
procedure lbledt1KeyPress(Sender: TObject; var Key: Char);
procedure lbledt1Change(Sender: TObject);
procedure lbledt2Change(Sender: TObject);
procedure lbledt2KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.btn1Click(Sender: TObject);
var a,e,x,S:Real;
j:Byte;
begin
begin
x:=strtofloat(lbledt1.text);
e:=strtofloat(lbledt2.Text);
a:=1;j:=0;S:=0;
if e>0 then
begin
repeat
S:=S+a;
j:=j+1;
a:=(Sqr(Sin(j*x)))/((Sqr(j)*j)+1);
until Abs(a/S)<=e;
Lbl1.Caption:='S='+FloatTostrF(S,ffFixed,10,5);
lbl2.Caption:='слагаемых в сумме='+IntToStr(j);
lbl3.Caption:='альтерн.знач'+FloatToStr(Exp(x));
end
else
ShowMessage('Данные не верны');


end;
end;


procedure TForm1.lbledt1KeyPress(Sender: TObject; var Key: Char);
begin
sisi(lbledt1.Text,Key);
end;

procedure TForm1.lbledt1Change(Sender: TObject);
var c:Boolean;
begin
xexe(lbledt1.Text,lbledt2.Text,c) ;
btn1.Enabled:=c;
end;

procedure TForm1.lbledt2Change(Sender: TObject);
var c:Boolean;
begin
xexe(lbledt1.Text,lbledt2.Text,c);
btn1.Enabled:=c;
end;

procedure TForm1.lbledt2KeyPress(Sender: TObject; var Key: Char);
begin
sisi(lbledt2.Text,Key)
end;

end.
Соседние файлы в папке 3 задание
  • #
    18.07.2019188 б5Project1.dpr
  • #
    18.07.2019876 б6Project1.res
  • #
    18.07.20196.17 Кб6Unit1.dcu
  • #
    18.07.201951 б5Unit1.ddp
  • #
    18.07.20191.39 Кб5Unit1.dfm
  • #
    18.07.20191.81 Кб5Unit1.pas