Получение решения в среде программирования Delphi.
Программа для вычисления прогиба, угла поворота, изгибающего момента и перерезывающей силы написанная в среде программирования Delphi.
Рис.18 Программа для вычисления прогиба, угла поворота, изгибающего момента и перерезывающей силы
Программный код:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Button1: TButton;
Image1: TImage;
Label7: TLabel;
Memo1: TMemo;
Label8: TLabel;
Memo2: TMemo;
Label9: TLabel;
Memo3: TMemo;
Memo4: TMemo;
BitBtn1: TBitBtn;
Label5: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Label6: TLabel;
Label10: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var l,q,c1,c2,v20,Q0,w,e,r,t,x:real;
begin
l:=strtofloat(edit1.Text);
q:=strtofloat(edit2.Text);
c1:=strtofloat(edit3.Text);
c2:=strtofloat(edit4.Text);
v20:=strtofloat(edit5.Text);
Q0:=strtofloat(edit6.Text);
x:=0;
while x<=l do
begin
if x<=c1 then begin w:=v20*x-Q0*x*x*x/6; e:=v20-Q0*x*x/2; r:=Q0*x; t:=Q0 end
else
begin if x>c2 then begin w:=v20*x-Q0*x*x*x/6+q*((x-c1)*(x-c1)*(x-c1)*(x-c1))/24-q*((x-c2)*(x-c2)*(x-c2)*(x-c2))/24;
e:=v20-Q0*x*x/2+q*sqr(x-c1)*(x-c1)/6-q*sqr(x-c2)*(x-c2)/6; r:=Q0*x-q*(sqr(x-c1)+q*sqr(x-c2))/2; t:=Q0-q*(x-c1)-q*(x-c2) end
else begin w:=v20*x-Q0*x*x*x/6+q*sqr(sqr(x-c1))/24; e:=v20-Q0*x*x/2+q*sqr(x-c1)*(x-c1)/6; r:=Q0*x+q*sqr(x-c1)/2; t:=Q0+q*(x-c1)
end
end;
memo1.lines.add(floattostr(w));
memo2.lines.add(floattostr(e));
memo3.lines.add(floattostr(r));
memo4.lines.add(floattostr(t));
x:=x+0.5;
end;
end;
end.
Ниже представлена блок-схема (Рис. 19)
нет
да
S=0
нет да
да
нет
Рис.19 Блок-схема
Выводы
Расчет балки на изгиб можно производить с использованием компьютера в вычислительной части расчёта. Применение табличного процессора Microsoft Excel, благодаря большому количеству встроенных функций, значительно ускоряет вычисления и позволяет не только производить расчёты на компьютере, но и получать электронный вариант эпюр. Решение данной задачи средствами пакета математических расчётов MathCAD позволяет быстро реализовать вычисления и наглядно представить их результаты графически. Программа на языке программирования Паскаль является реализацией цикла табулирования, типичной задачей курса информатики. Выполнение всех этих действий полностью подготовлено содержанием курса «Информатика», освоенного в I и II семестрах.