unit
Kursovaya1912;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, ComCtrls;
type
TForm1 =
class
(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
Chart1: TChart;
Series1: TLineSeries;
Memo1: TMemo;
Button3: TButton;
Button4: TButton;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
private
public
end
;
var
Form1: TForm1;
Y,X,Tet,M,Q:
array
[
1..50
]
of
real
;
I,q1,h,b:
real
;
n:
real
;
implementation
{$R *.dfm}
function
Rzp(p,t:
real
) :
real
;
begin
Result :=-p*t;
end
;
procedure
TForm1
.
Button1Click(Sender: TObject);
var
t,g1,h,l,b,c:
real
;
j:
integer
;
begin
q1:=StrToFloat(edit4
.
Text);
h:=StrToFloat(edit3
.
Text);
l:=StrToFloat(edit1
.
Text);
b:=StrToFloat(edit2
.
Text);
Y[
1
]:=StrToFloat(edit13
.
Text);
Y[
50
]:=StrToFloat(edit14
.
Text);
X[
1
]:=
0
;
Tet[
1
]:=StrToFloat(edit8
.
Text);
Tet[
50
]:=StrToFloat(edit7
.
Text);
M[
1
]:=StrToFloat(edit10
.
Text);
M[
50
]:=StrToFloat(edit9
.
Text);
Q[
1
]:=StrToFloat(edit12
.
Text);
Q[
50
]:=StrToFloat(edit11
.
Text);
n:=l/
50
;
I:=(b*h*h*h)/
12
;
for
j:=
1
to
50
do
begin
<b>Q[j]:=Rzp(q,X[j]);
X[j+
1
]:=X[j]+h;
end
;
end
;
procedure
TForm1
.
Button2Click(Sender: TObject);
begin
close;
end
;
end
.