Прямые погрешности ( прога ) / Unit1

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Math, Vcl.Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Edit6: TEdit;
Label4: TLabel;
Label5: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Edit7: TEdit;
Label6: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Button3: TButton;
Edit8: TEdit;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);








private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
st=2.776;
e=2;
var
sr,sx,delta,th,persent: real;
a : array [1..5] of real;
kvr : array [1..5] of real;
i : integer;
begin
th:=strtofloat(edit6.Text);
a[1]:=strtofloat(edit1.text);
a[2]:=strtofloat(edit2.text);
a[3]:=strtofloat(edit3.text);
a[4]:=strtofloat(edit4.text);
a[5]:=strtofloat(edit5.text);
for i := 1 to 5 do
begin
if a[i]=0 then ShowMessage ('Уточните выборку ,чтобы продолжить');
break;
end;
if th=0 then ShowMessage ('Пожалуйста , уточните приборную погрешность и повторите попытку');
sr:=(a[1]+a[2]+a[3]+a[4]+a[5])/5;
kvr[1]:=power((sr-a[1]),e);
kvr[2]:=power((sr-a[2]),e);
kvr[3]:=power((sr-a[3]),e);
kvr[4]:=power((sr-a[4]),e);
kvr[5]:=power((sr-a[5]),e);
sx:=exp(ln(((kvr[1]+kvr[2]+kvr[3]+kvr[4]+kvr[5])/20))*1/2);
delta:=exp((ln((power((st*sx),2))+(power(th,2)))*1/2));
label5.caption:=floattostr(sr);
label7.Caption:=floattostr(delta);
persent:= (delta/sr)*100;
label12.Caption:=floattostr(persent)+' %' ;
if persent < 5 then ShowMessage('В пределах 5%, поздравляю');
if persent >= 5 then ShowMessage('Нет, прости , здесь выброс');
end;


procedure TForm1.Button2Click(Sender: TObject);
const
vpn=1.67;
e=2;
var
v,sr,sx,kvrob : real;
kvr,a, ar : array [1..5] of real;
mx : array [1..4] of real;
i: integer;
begin
a[1]:=strtofloat(edit1.text);
a[2]:=strtofloat(edit2.text);
a[3]:=strtofloat(edit3.text);
a[4]:=strtofloat(edit4.text);
a[5]:=strtofloat(edit5.text);
sr:=(a[1]+a[2]+a[3]+a[4]+a[5])/5;
kvr[1]:=power((sr-a[1]),e);
kvr[2]:=power((sr-a[2]),e);
kvr[3]:=power((sr-a[3]),e);
kvr[4]:=power((sr-a[4]),e);
kvr[5]:=power((sr-a[5]),e);
kvrob:=(kvr[1]+kvr[2]+kvr[3]+kvr[4]+kvr[5])/4;
sx:=exp(ln(kvrob)*1/2);
for i := 1 to 5 do
begin
mx[1]:=Max(a[1],a[2]);
mx[2]:=Max(mx[1],a[3]);
mx[3]:=Max(mx[2],a[4]);
mx[4]:=Max(mx[3],a[5]);
end;
v:=(mx[4]-sr)/sx;
label20.caption:=floattostr(v);
if v>vpn then showmessage('Промах,сократи выбору на один экстремум');
if v<=vpn then showmessage('Промахов нет, живи спокойно');
end;

procedure TForm1.Button3Click(Sender: TObject);
var
cl : integer;
begin
cl:=0;
edit1.text:=inttostr(cl);
edit2.text:=inttostr(cl);
edit3.text:=inttostr(cl);
edit4.text:=inttostr(cl);
edit5.text:=inttostr(cl);
edit6.text:=inttostr(cl);
end;

end.