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

interface

uses

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

type

Button1: TButton;

Chart1: TChart;

Series1: TLineSeries;

Series2: TLineSeries;

Button2: TButton;

SaveDialog1: TSaveDialog;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

public

end;

i,j,k,l,m,n:integer;

st,h,h_gl,h1,tpl,tust,ugol,d:double;

qm,alfa:double;

str,str1,sim:string;

f1,f2:textfile;

Form1: TForm1;

implementation

{$R.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

assignfile(f1,'berilgen_diametr.pas');

assignfile(f2,'jauap_biiktik.pas');

rewrite(f2);

q:=1.053;

β:=0,6;

P_pl:=1,8;

K:=12;

// алғашқы мәліметтерді шығару

write(f1,' munai shygymy ', q:10:3,' ',

‘munai kanygu kysymy', β:10:6);

writeln(f1);

write(f1,'kabat kysymy',P_pl:10:3,

'koif.', K:10:3);

writeln(f1);

//мұнай және су нефти

q:=q(1- β_b);

write(f2,'дебит',q:12:9);

writeln(f2);

P_zab:=P_pl-q;

write(f2, түп қысымы,P_zab:12:9);

writeln(f2);

end;

//алғашқы мәліметтерді шығару

write(f2, str:60);

writeln(f2);

for j:=1 to n do

write(f2,h_zab[j]:10:3,' ');

writeln(f2);

str:='температура таралуы түптен';

write(f2, str:40);

writeln(f2);

for j:=1 to n do

write(f2,temper_zab[j]:10:3,' ');

writeln(f2);

// алғашқы мәліметтерді шығару

str:= 'ұңғыма тереңдігі сағадан ';

write(f2, str:60);

writeln(f2);

for j:=1 to n do

write(f2,h_ust[j]:10:3,' ');

writeln(f2);

str:='температура таралуы сағадан';

write(f2, str:40);

writeln(f2);

for j:=1 to n do

write(f2,temper_ust[j]:10:3,' ');

writeln(f2);

closefile(f1);

closefile(f2);

for j:=1 to n do

Chart1.SeriesList[0].AddXY(temper_zab[j],h_zab[j]);

for j:=1 to n do

Chart1.SeriesList[1].AddXY(temper_ust[j],h_ust[j]);

end;

begin

begin

end;

end.

Шығым q – 1,053 т/тәул, Мұнайға қанығу қысым β – 0,6 МПа.

Қабат қысымы Ppl – 11,5·МПа; Коэффициент K – 2,49 МПа;

Нәтижелері:

Мұнай шығымы 0,42 т/тәул; Түп қысыммы 7,27 МПа.