Программа определения производительности пахотного агрегата

Программа работает следующим образом.

Следует найти файл под названием plug2.exe и запустить его. После заставки появится запрос:

Введите исходные данные

удельную металлоемкость плуга, q = ?

коэффициент сопротивления протаскиванию, f = ?

коэффициент удельного сопротивление почвы,к = ?

глубина вспашки, a = ?

ширина захвата одного корпуса, b = ?

продолжительность смены, Т = ?

коэффициент использования рабочего

времени смены,t = ?

Введите номер трактора из списка

1 Т-4A

2 ДТ-75M

3 Т-150

4 Т-150К

5 МТЗ-82

На экран будут выведены результаты вычисления, например:

Трактор ДТ-75M

Передача км/ч Тяговое усилие кН Произв.агр. га/см

1 5.30 34.70 5.34

2 5.91 30.60 5.25

3 6.58 27.00 5.16

4 7.31 23.80 5.06

5 8.16 20.30 4.81

6 9.05 17.90 4.71

7 11.18 13.50 4.39

Нажмите "ВВОД"

После нажатия любой клавиши на экране появится график зависимости сменной производительности пахотного агрегата от передачи трактора

Ниже приведен текст программы plug2.exe, написанной на языке “Турбо-Паскаль”

uses CRT,Graph;

type mas1 = array[1..5,1..8] of real;

const xn = 50; yn = 150; xk = 600; yk = 10;

v : mas1 = ((3.47,4.03,4.66,5.2,6.35,7.37,8.55,8.55),

(5.3,5.91,6.58,7.31,8.16,9.05,11.18,11.18),

(7.65,8.62,9.72,10.62,11.44,12.91,14.54,15.89),

(7.45,8.53,10.08,13.36,16.27,18.62,22,30.07),

(2.5,4.26,7.24,8.9,10.54,12.33,15.15,17.95));

pt : mas1 = ((50,50,50,49.6,41.6,34.9,29.2,25.5),

(34.7,30.6,27,23.8,20.3,17.9,13.5,13.5),

(42.5,37,32.2,29.1,26.6,23.1,20,17.8),

(45,41,33.25,26.6,21.9,19.05,15.8,10.25),

(14,14,14,14,11.5,9.5,7.5,6));

name : array[1..5] of string =

(' Т-4A ',' ДТ-75M',' Т-150',' Т-150К',' МТЗ-82');

var c : char;

q,f,k,a,b,t,tau : real;

i,j,x,Code : integer;

w : mas1;

st : string;

grMode,ErrCode,grDriver,Regim : integer;

Procedure okno;

var x1,x2,y1,y2 : integer;

begin

ClrScr;

grDriver := CGA; Regim := CGAHi;

InitGraph (grDriver,Regim,'c:\tp6');

ErrCode := GraphResult;

if ErrCode = grOk then begin

SetTextStyle (1,0,2);

OutTextXY (100,50,' Пpогpамма опpеделения сменной ');

OutTextXY (100,85,' производительности пахотного ');

OutTextXY (100,120,' агрегата');

x1 := 1; x2 := 630; y1 :=10; y2 := 180;

line (x1,y1,x2,y1); line (x1,y2,x2,y2);

line (x1,y1,x1,y2); line (x2,y1,x2,y2);

Delay (1000); ClearDevice;

for i := 1 to 15 do begin

line (x1+5*i,y1+5*i,x2-5*i,y1+5*i);

line (x1+5*i,y2-5*i,x2-5*i,y2-5*i);

line (x1+5*i,y1+5*i,x1+5*i,y2-5*i);

line (x2-5*i,y1+5*i,x2-5*i,y2-5*i);

Delay (100); end;

CloseGraph; end

else begin writeln (GraphErrorMSG(ErrCode)); Halt end;

end;

begin

Okno;

write ('Введите удельную металлоемкость плуга, q = ? ');

readln (q);

write ('Коэффициент сопротивления протаскиванию, f = ? ');

readln (f);

write ('Коэффициент удельного сопротивление почвы,к = ? ');

readln (k);

write ('Глубина вспашки, a = ? ');

readln (a);

write ('Ширина захвата одного корпуса, b = ? ');

readln (b);

write ('Продолжительность смены, Т = ? ');

readln (t);

writeln ('Коэффициент использования рабочего');

write (' времени смены,t = ? ');

readln (tau);

for i:= 1 to 5 do

begin writeln (i:2,name [i]); end;

writeln ('Введите номер трактора '); c := ReadKey;

Val (c,i,Code);

writeln (' Трактор ',name[i]:6);

writeln (' Передача км/ч Тяговое усилие кН ',

'Произв.агр. га/см');

for j := 1 to 8 do

begin

w [i,j] := 0.09*pt[i,j]*v[i,j]*b*t*tau/

(q*9.81*f/1000 + 1.1*k*a*b );

writeln (j:6,v[i,j]:8:2,pt[i,j]:12:2,w[i,j]:23:2);

end;

writeln (' Нажмите "ВВОД"'); c := ReadKey;

grDriver := CGA; Regim := CGAHi;

InitGraph(grDriver,Regim,'c:\tp6');

ErrCode := GraphResult;

if ErrCode = grOk then begin

{----------------------------------}

SetTextStyle (1,0,1);

OutTextXY (25,0,'W');

SetTextStyle (2,0,6);

OutTextXY (xk-100,yn+5,'Передача ');

SetTextStyle (1,0,1);

OutTextXY (xk,yn+5,'V');

line(xn,yn,xn,yk);

line(xn,yn,xk,yn);

SetTextStyle (0,0,1);

for x := 1 to 8 do begin

str(x,st);

OutTextXY (xn+40*x,yn+5,st);

line(xn+40*x,yn+2,xn+40*x,yn-2) end;

for x := 0 to 10 do begin

line (xn-2,yn-10*x,xn+2,yn-10*x);

str(x,st);

OutTextXY (xn-25,yn-10*x,st) end;

moveto (xn+40,trunc(yn-10*w[i,1]));

for j := 2 to 8 do

{ Зависимость сменной пpоизводительности от скоpости }

lineto (xn+j*40,trunc(yn-10*w[i,j]));

SetTextStyle (1,0,1);

OutTextXY(100,5,

'Сменная пpоизводительность пахотного агpегата га/см');

OutTextXY(100,20,

' на pазличных пеpедачах тpактоpа '+name[i]);

c := ReadKey; CloseGraph end

else writeln (GraphErrorMsg(ErrCode))

end.

Приложение 3.