2.3.3 Компьютерлік программаларды қолдану арқылы есептеу

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

D,dn,Mn,P,T,qn:double;

pn,po,Mg,z:double;

pg,wn,wg,Vo,Vo_1:double;

wx,wq,dg,qj:double;

str,str1:string;

f,f1,f2:textfile;

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

assignfile(f1,'ishod_dann.pas');

rewrite(f1);

assignfile(f2,'Rezultat_2.pas');

rewrite(f2);

D:=0.8;

dn:=0.000025;

Mn:=0.012;

P:=2000000;

T:=295;

qn:=185;

pn:=860;

po:=1.21;

Mg:=0.000014;

z:=0.98;

//вывод исходных данных

str:='исходные данные';

write(f1,str:30);

writeln(f1);

write(f1,'D= ', D:10:3,' ', 'dn=', dn:10:7,' ', 'Mn=', Mn:10:7,' ',

'P=', P:10:3,' ', 'T=', T:10:3);

writeln(f1);

write(f1,'qn=', qn:10:7,' ', 'pn=', pn:10:7,' ', 'po=', po:10:7,' ',

'Mg=', Mg:10:7,' ', 'z=', z:10:3);

//расчет pg

pg:=po*P*273/(101300*T*z);

//расчет wn

wn:=dn*dn*(pn-pg)*9.81/(18*Mg);

//расчет wg

wg:=wn/1.2;

//расчет Vo

Vo:=(wg*D*D*P)/(0.00547*T*z);

//расчет Vo_1

Vo_1:=84*D*D*P*dn*dn*(pn-pg)/(T*Mg*z);

//расчет wx

wx:=qn*4/(86400*3.14*D*D);

//расчет wq

wq:=1.2*wx;

//расчет dg

dg:=sqrt(18*Mn*wq/((pn-pg)*9.81));

//расчет qj

qj:=36964*D*D*dg*dg*(pn-pg)/Mn;

//Вывод результатов

str:='Результаты = write(f2,str:30); writeln(f2);

str1:='значения pg';

write(f2, str1:30);

writeln(f2);

write(f2,pg:10:5,' ');

writeln(f2);

str1:='значения wn';

write(f2, str1:30);

writeln(f2);

write(f2,wn:10:5,' ');

writeln(f2);

str:='Результаты =';

write(f2,str:30);

writeln(f2);

str1:='значения wg';

write(f2, str1:30);

writeln(f2);

write(f2,wg:10:5,' ');

writeln(f2);

str1:='значения Vo';

write(f2, str1:30);

writeln(f2);

write(f2,Vo:10:5,' ');

writeln(f2);

str:='Результаты =';

write(f2,str:30);

writeln(f2);

str1:='значения Vo_1';

write(f2, str1:30);

writeln(f2);

write(f2,Vo_1:10:5,' ');

writeln(f2);

str1:='значения wx';

write(f2, str1:30);

writeln(f2);

write(f2,wx:10:5,' ');

writeln(f2);

str:='Результаты =';

write(f2,str:30);

writeln(f2);

str1:='значения dg';

write(f2, str1:30);

writeln(f2);

write(f2,dg:10:5,' ');

writeln(f2);

str1:='значения qj';

write(f2, str1:30);

writeln(f2);

write(f2,qj:10:5,' ');

writeln(f2);

closefile(f1);

closefile(f2);

end;

end.

исходные данные

D= 0.800 dn= 0.0000250 Mn= 0.0120000 P=2000000.000 T= 295.000

qn=185.0000000 pn=860.0000000 po= 1.2100000 Mg= 0.0000140 z= 0.980

Результаты = значения pg 22.55903 значения wn 0.02038

Результаты =значения wg 0.01698

значения Vo13743.45713

Результаты =значения Vo_113904.24297 значения wx0.00426

Результаты =значения dg0.00037 значения qj 221.99952