Разработать программу для расчета количества вспомогательных рабочих по видам работ для АТП

Writeln(R,'Spisochnoe: ',A2t:1:0,' chel.','  ','Shtatnoe: ',A2s:1:0,' chel.');

Writeln('______________________________________________________________');

Writeln(R,'______________________________________________________________');

A3t:=(0.25*(T1g+T2g+Ttrg)*0.10)/Ft;

A3s:=(0.25*(T1g+T2g+Ttrg)*0.10)/Fs;

Writeln('Transportnie raboti :');

Writeln(R,'Transportnie raboti :');

Writeln('Spisochnoe: ',A3t:1:0,' chel.','  ','Shtatnoe: ',A3s:1:0,' chel.');

Writeln(R,'Spisochnoe: ',A3t:1:0,' chel.','  ','Shtatnoe: ',A3s:1:0,' chel.');

Writeln('______________________________________________________________');

Writeln(R,'______________________________________________________________');

A4t:=(0.25*(T1g+T2g+Ttrg)*0.15)/Ft;

A4s:=(0.25*(T1g+T2g+Ttrg)*0.15)/Fs;

Writeln('Priem, hranenie i vidacha materialnih tsennostei :');

Writeln(R,'Priem, hranenie i vidacha materialnih tsennostei :');

Writeln('Spisochnoe: ',A4t:1:0,' chel.','  ','Shtatnoe: ',A4s:1:0,' chel.');

Writeln(R,'Spisochnoe: ',A4t:1:0,' chel.','  ','Shtatnoe: ',A4s:1:0,' chel.');

Writeln('______________________________________________________________');

Writeln(R,'______________________________________________________________');

A5t:=(0.25*(T1g+T2g+Ttrg)*0.15)/Ft;

A5s:=(0.25*(T1g+T2g+Ttrg)*0.15)/Fs;

Writeln('Peregon podvijnogo sostava :');

Writeln(R,'Peregon podvijnogo sostava :');

Writeln('Spisochnoe: ',A5t:1:0,' chel.','  ','Shtatnoe: ',A5s:1:0,' chel.');

Writeln(R,'Spisochnoe: ',A5t:1:0,' chel.','  ','Shtatnoe: ',A5s:1:0,' chel.');

Writeln('______________________________________________________________');

Writeln(R,'______________________________________________________________');

A6t:=(0.25*(T1g+T2g+Ttrg)*0.10)/Ft;

A6s:=(0.25*(T1g+T2g+Ttrg)*0.10)/Fs;

Writeln('Yborka proizvodstvennih pomeschenii :');

Writeln(R,'Yborka proizvodstvennih pomeschenii :');

Writeln('Spisochnoe: ',A6t:1:0,' chel.','  ','Shtatnoe: ',A6s:1:0,' chel.');

Writeln(R,'Spisochnoe: ',A6t:1:0,' chel.','  ','Shtatnoe: ',A6s:1:0,' chel.');

Writeln('______________________________________________________________');

Writeln(R,'______________________________________________________________');

A7t:=(0.25*(T1g+T2g+Ttrg)*0.10)/Ft;

A7s:=(0.25*(T1g+T2g+Ttrg)*0.10)/Fs;

Writeln('Yborka territorii :');

Writeln(R,'Yborka territorii :');

Writeln('Spisochnoe: ',A7t:1:0,' chel.','  ','Shtatnoe: ',A7s:1:0,' chel.');

Writeln(R,'Spisochnoe: ',A7t:1:0,' chel.','  ','Shtatnoe: ',A7s:1:0,' chel.');

Writeln('______________________________________________________________');

Writeln(R,'______________________________________________________________');

A8t:=(0.25*(T1g+T2g+Ttrg)*0.05)/Ft;

A8s:=(0.25*(T1g+T2g+Ttrg)*0.05)/Fs;

Writeln('Obslyjivanie kompressornogo oborydovaniya:');

Writeln(R,'Obslyjivanie kompressornogo oborydovaniya:');

Writeln('Spisochnoe: ',A8t:1:0,' chel.','  ','Shtatnoe: ',A8s:1:0,' chel.');

Writeln(R,'Spisochnoe: ',A8t:1:0,' chel.','  ','Shtatnoe: ',A8s:1:0,' chel.');

Writeln('______________________________________________________________');

Writeln(R,'______________________________________________________________');

A9t:=A1t+A2t+A3t+A4t+A5t+A6t+A7t+A8t;

A9s:=A1s+A2s+A3s+A4s+A5s+A6s+A7s+A8s;

Writeln('VSEGO VSPOMOGATELNIH RABOCHIH:');

Writeln(R,'VSEGO VSPOMOGATELNIH RABOCHIH:');

Writeln('Spisochnoe: ',A9t:1:0,' chel.','  ','Shtatnoe: ',A9s:1:0,' chel.');

Writeln(R,'Spisochnoe: ',A9t:1:0,' chel.','  ','Shtatnoe: ',A9s:1:0,' chel.');

Writeln('______________________________________________________________');

Writeln(R,'______________________________________________________________');

Writeln;

Writeln(R);

End;

Begin

Assign(R,'RESULT.txt');

Rewrite(R);

Writeln(R,'Gryppa 101429 Osipyk I.L.');

Writeln('RASCHET KOLICHESTVA VSPOMOGATELNIH RABOCHIH ');

Writeln('Tip podvignogo sostava: Samosval karierni ');

Writeln;

Writeln(R,'RASCHET KOLICHESTVA VSPOMOGATELNIH RABOCHIH ');

Writeln(R,'Tip podvignogo sostava: Samosval karierni ');

Writeln(R);

Zt2:Writeln('Viberite variant rascheta :');

Writeln('1 - Izmenyaem klass avtomobilya');

Writeln('2 - Izmenyaem chislo avtomobilei');

Writeln('3 - Izmenyaem sytochni probeg');

Writeln('4 - Izmenyaem kategoriu yslovi eksplyatatsii');

Read(A);

Writeln;

If A=1 Then

Begin

Writeln(R,'VARIANT RASCHETA 1');

Writeln(R,'__________________');

Writeln('Chislo avtomobilei: 100');

Writeln(R,'Chislo avtomobilei: 100');

Ai:=100;

Writeln('Sytochni probeg: 300 km');

Writeln(R,'Sytochni probeg: 300 km');

Lcc:=300;

Writeln('Kategoriya yslovi eksplyatatsii: 5');

Writeln(R,'Kategoriya yslovi eksplyatatsii: 5');

K1:=0.6;

K1tr:=1.5;

Writeln('Klimat: Ymerenni');

Writeln(R,'Klimat: Ymerenni');

K3:=1;

K2:=1;

K5:=1;

If (Ai<25) or (Ai=25) then K4:=1.55;

If (Ai>25) and ((Ai<50) or (Ai=50)) then K4:=1.33;

If (Ai>50) and ((Ai<100) or (Ai=100)) then K4:=1.19;

If (Ai>100) and ((Ai<150) or (Ai=150)) then K4:=1.10;

If (Ai>150) and ((Ai<200) or (Ai=200)) then K4:=1.05;

If (Ai>200) and ((Ai<300) or (Ai=300)) then K4:=1.0;

If (Ai>300) and ((Ai<400) or (Ai=400)) then K4:=0.92;

If (Ai>400) and ((Ai<500) or (Ai=500)) then K4:=0.89;

Writeln('Kolichestvo raboti dnei v gody: 365');

Writeln(R,'Kolichestvo raboti dnei v gody: 365');

Drg:=365;

Zt1:Writeln('Viberite klass avtomobilya:');

Writeln('Gryzopodiemnost 30 tonn - 1');

Writeln('Gryzopodiemnost 42 tonn - 2');

Read(B);

Case B of

1:Begin

  Writeln(R,'Gryzopodiemnost 30 tonn');

  Lrn:=200000;

  Dtotrn:=0.65;

  t1n:=20.5;

  t2n:=80;

  ttrn:=16;

  L1n:=2000;

  L2n:=10000;

  End;

2:Begin

  Writeln(R,'Gryzopodiemnost 42 tonni');

  Lrn:=200000;

  Dtotrn:=0.75;

  t1n:=22.5;

  t2n:=90;

  ttrn:=24;

  L1n:=2000;

  L2n:=10000;

  End;

End;

Writeln;

Writeln(R);

Rasch(K1,K1tr,K2,K3,K4,K5,Lrn,Dtotrn,t1n,t2n,ttrn,Lcc,Ai,Drg,L1n,L2n);

Writeln('Dlya izmeneniya gryzopodiemnosti vvedite  : 1');

Writeln('Dlya izmeneniya varianta rascheta vvedite : 2');

Writeln('Dlya vihoda iz programmi vvedite          : 3');

Readln(C);

Writeln;

Writeln(R);

If C=1 then GOTO Zt1;

If C=2 then GOTO Zt2;

If C=3 then GOTO Zt3;

End;

If A=2 Then

Begin

Writeln;

Writeln(R);

Writeln(R,'VARIANT RASCHETA 2');

Writeln(R,'__________________');

Writeln('Sytochni probeg: 350 km');

Writeln(R,'Sytochni probeg: 350 km');

Lcc:=350;

Writeln('Kategoriya yslovi eksplyatatsii: 5');

Writeln(R,'Kategoriya yslovi eksplyatatsii: 5');

K1:=0.6;

K1tr:=1.5;

Writeln('Klimat: Ymerenni');

Writeln(R,'Klimat: Ymerenni');

K3:=1;

K2:=1;

K5:=1;

Writeln('Kolichestvo raboti dnei v gody: 365');

Writeln(R,'Kolichestvo raboti dnei v gody: 365');

Drg:=365;

Writeln('Gryzopodiemnost 42 tonni');

Writeln(R,'Gryzopodiemnost 42 tonni');

Lrn:=200000;

Dtotrn:=0.75;

t1n:=22.5;

t2n:=90;

ttrn:=24;

L1n:=2000;

L2n:=10000;

Zt4:Write('Vvedite chislo avtomobilei _ ');

Readln(Ai);

Writeln(R,'Kolichestvo avtomobilei: ',Ai:1:0);

Writeln;

Writeln(R);

If (Ai<25) or (Ai=25) then K4:=1.55;

If (Ai>25) and ((Ai<50) or (Ai=50)) then K4:=1.33;

If (Ai>50) and ((Ai<100) or (Ai=100)) then K4:=1.19;

If (Ai>100) and ((Ai<150) or (Ai=150)) then K4:=1.10;

If (Ai>150) and ((Ai<200) or (Ai=200)) then K4:=1.05;

If (Ai>200) and ((Ai<300) or (Ai=300)) then K4:=1.0;

If (Ai>300) and ((Ai<400) or (Ai=400)) then K4:=0.92;

If (Ai>400) and ((Ai<500) or (Ai=500)) then K4:=0.89;

Rasch(K1,K1tr,K2,K3,K4,K5,Lrn,Dtotrn,t1n,t2n,ttrn,Lcc,Ai,Drg,L1n,L2n);

Writeln('Dlya izmeneniya chisla avtomobilei vvedite  : 1');

Writeln('Dlya izmeneniya varianta rascheta vvedite   : 2');

Writeln('Dlya vihoda iz programmi vvedite            : 3');

Readln(C);

Writeln;

Writeln(R);

If C=1 then GOTO Zt4;

If C=2 then GOTO Zt2;

If C=3 then GOTO Zt3;

End;

If A=3 Then

Begin

Writeln;

Writeln(R);

Writeln(R,'VARIANT RASCHETA 3');

Writeln(R,'__________________');

Writeln('Chislo avtomobilei: 100');

Writeln(R,'Chislo avtomobilei: 100');

Ai:=100;

Writeln('Kategoriya yslovi eksplyatatsii: 5');

Writeln(R,'Kategoriya yslovi eksplyatatsii: 5');

K1:=0.6;

K1tr:=1.5;

Writeln('Klimat: Ymerenni');

Writeln(R,'Klimat: Ymerenni');

K3:=1;

K2:=1;

K5:=1;

If (Ai<25) or (Ai=25) then K4:=1.55;

If (Ai>25) and ((Ai<50) or (Ai=50)) then K4:=1.33;

If (Ai>50) and ((Ai<100) or (Ai=100)) then K4:=1.19;

If (Ai>100) and ((Ai<150) or (Ai=150)) then K4:=1.10;

If (Ai>150) and ((Ai<200) or (Ai=200)) then K4:=1.05;

If (Ai>200) and ((Ai<300) or (Ai=300)) then K4:=1.0;

If (Ai>300) and ((Ai<400) or (Ai=400)) then K4:=0.92;

If (Ai>400) and ((Ai<500) or (Ai=500)) then K4:=0.89;

Writeln('Kolichestvo raboti dnei v gody: 365');

Writeln(R,'Kolichestvo raboti dnei v gody: 365');

Drg:=365;

Writeln('Gryzopodiemnost 42 tonni');

Writeln(R,'Gryzopodiemnost 42 tonni');

Lrn:=200000;

Dtotrn:=0.75;

t1n:=22.5;

t2n:=90;

ttrn:=24;

L1n:=2000;

L2n:=10000;

Zt5:Write('Vvedite sytochni probeg avtomobilei, km _ ');

Readln(Lcc);

Writeln(R,'Sytochni probeg avtomobilya ',Lcc:1:0, 'km');

Writeln;

Writeln(R);

Rasch(K1,K1tr,K2,K3,K4,K5,Lrn,Dtotrn,t1n,t2n,ttrn,Lcc,Ai,Drg,L1n,L2n);

Writeln('Dlya izmeneniya sytochnogo probega vvedite  : 1');

Writeln('Dlya izmeneniya varianta rascheta vvedite   : 2');

Writeln('Dlya vihoda iz programmi vvedite            : 3');

Readln(C);

Writeln;

Writeln(R);

If C=1 then GOTO Zt5;

If C=2 then GOTO Zt2;

If C=3 then GOTO Zt3;

End;

If A=4 Then

Begin

Writeln;

Writeln(R);

Writeln(R,'VARIANT RASCHETA 4');

Writeln(R,'__________________');

Writeln('Chislo avtomobilei: 100');

Writeln(R,'Chislo avtomobilei: 100');

Ai:=100;

Writeln('Sytochni probeg: 350 km');

Writeln(R,'Sytochni probeg: 350 km');

Lcc:=350;

Writeln('Klimat: Ymerenni');

Writeln(R,'Klimat: Ymerenni');

K3:=1;

K2:=1;

K5:=1;

If (Ai<25) or (Ai=25) then K4:=1.55;

If (Ai>25) and ((Ai<50) or (Ai=50)) then K4:=1.33;

If (Ai>50) and ((Ai<100) or (Ai=100)) then K4:=1.19;

If (Ai>100) and ((Ai<150) or (Ai=150)) then K4:=1.10;

If (Ai>150) and ((Ai<200) or (Ai=200)) then K4:=1.05;

If (Ai>200) and ((Ai<300) or (Ai=300)) then K4:=1.0;

If (Ai>300) and ((Ai<400) or (Ai=400)) then K4:=0.92;

If (Ai>400) and ((Ai<500) or (Ai=500)) then K4:=0.89;

Writeln('Kolichestvo raboti dnei v gody: 365');

Writeln(R,'Kolichestvo raboti dnei v gody: 365');

Drg:=365;

Writeln('Gryzopodiemnost 42 tonni');

Writeln(R,'Gryzopodiemnost 42 tonni');

Lrn:=200000;

Dtotrn:=0.75;

t1n:=22.5;

t2n:=90;

ttrn:=24;

L1n:=2000;

L2n:=10000;

Zt6:Write('Viberite kategoriu yslovii eksplyatatsii: 1, 2, 3, 4, 5  _');

Readln(D);

Writeln(R,'Kategoriya yslovii eksplyatatsii: ',D);

Writeln;

Writeln(R);

Case D of

  1: Begin K1:=1.0; K1tr:=1.0 ; End;

  2: Begin K1:=0.9; K1tr:=1.1 ; End;

  3: Begin K1:=0.8; K1tr:=1.2 ; End;

  4: Begin K1:=0.7; K1tr:=1.4 ; End;

  5: Begin K1:=0.6; K1tr:=1.5 ; End;

  End;

Rasch(K1,K1tr,K2,K3,K4,K5,Lrn,Dtotrn,t1n,t2n,ttrn,Lcc,Ai,Drg,L1n,L2n);

Writeln('Dlya izmeneniya kategorii yslovii eksplyatatsii  : 1');

Writeln('Dlya izmeneniya varianta rascheta vvedite        : 2');

Writeln('Dlya vihoda iz programmi vvedite                 : 3');

Readln(C);

Writeln;

Writeln(R);

If C=1 then GOTO Zt6;

If C=2 then GOTO Zt2;

If C=3 then GOTO Zt3;

End;

Zt3:Close(R);

End.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3. Анализ результатов технологического расчета.

Анализ  полученных результатов ведется  на основании данных таблиц 3.1-3.4 и графиков (см. графический материал, лист 2).

Таблица 3.1 – Результаты расчета количества вспомогательных рабочих при переменном классе автомобилей

Класс автомобиля	Число вспомогательных рабочих (штатное)	Число вспомогательных рабочих (списочное)
Малый 2	74	68
Средний 3	93	86

 

Таблица 3.2 – Результаты расчета количества вспомогательных рабочих при переменном количестве автомобилей

Количество автомобилей	Число вспомогательных рабочих (штатное)	Число вспомогательных рабочих  (списочное)
50	59	54
100	106	97
150	147	135

 

Таблица 3.3 – Результаты расчета количества вспомогательных рабочих при переменном среднесуточном пробеге

Среднесуточный пробег	Число вспомогательных рабочих (штатное)	Число вспомогательных рабочих  (списочное)
250	80	74
350	106	97
450	128	118

 

Таблица 3.4 – Результаты расчета количества вспомогательных рабочих при переменной категории эксплуатации

Категория условий эксплуатации	Число вспомогательных рабочих (штатное)	Число вспомогательных рабочих  (списочное)
3	82	76
4	95	88
5	106	97

 

 

 

Анализируя  графики (см. графический материал, лист 2), в частности график зависимости количества вспомогательных рабочих выполняющих от класса автомобилей, видим, что при увеличении класса с 2 до 3 (от малого до среднего) количество вспомогательных рабочих увеличивается от 74 до 93(штатное), от 68 до 86(списочное). Из этого графика вытекает, что увеличение класса автомобилей приводит к увеличению количества вспомогательных рабочих.

Чем больше количество автомобилей, тем больше и число вспомогательных рабочих. Увеличение количества автомобилей от 50 до 150 приводит к увеличению количества вспомогательных рабочих от 59 до 147(штатное), от 54 до 135(списочное).

Анализируя  график зависимости числа вспомогательных рабочих от среднесуточного пробега автомобилей, видим, что увеличении суточного пробега (со 250 км до 450 км) автомобилей приводит к увеличению числа вспомогательных рабочих от 80 до 128(штатное), от 74 до 118(списочное).

Изменяя категорию эксплуатации автомобилей, на графике видим увеличение количества вспомогательных рабочих. Однако увеличение происходит менее интенсивно по сравнению с предыдущими графиками. При изменении категории условий эксплуатации от 3 до 5  число вспомогательных рабочих изменяется на 20 – 25 %.

 

 

 

 

 

 

 

 

 

 

 

 

4. Алгоритм, программа и пример расчета ГСМ.

 

4.1 Алгоритм расчета ГСМ.

Предполагается  использовать следующие модели автомобилей: УАЗ-3303-02, УАЗ-33031, УАЗ-374101, УАЗ-39094, УАЗ-390942, УАЗ-3962, УАЗ-396259, УАЗ-39629, УАЗ-396292, УАЗ-450А, УАЗ-451А, УАЗ-452А, Урал-43202, Урал-4320-1112-10, Урал-49472.

Расчет топлива  за проделанную работу определяется по следующему выражению (4.1):

Где - количество топлива за проделанную работу автомобилем,

- суточный пробег автомобиля,

- удельная норма топлива на  100 км. Пробега автомобиля,

- транспортная работа (тон*км),

- удельная норма топлива на 100 тон*км,

Е – количество ездок,

- удельная норма топлива на  одну ездку,

Ч – количество часов включения работы дополнительного  оборудования,

- норма топлива для работы  дополнительного оборудования в  течении 1 часа,

- коэффициент учитывающий работу в зимнее время года,

- коэффициент учитывающий условия эксплуатации,

- коэффициент учитывающий наличие кондиционера или установок климат контроля,

- коэффициент учитывающий наличие багажника на крыше автомобиля,

 

Нормы масел  определяются по следующим выражениям:

;                                                                                        (4.2)

;                                                                                         (4.3)

;                                                                                          (4.4)

Где  , , - расчетное количество масел за эксплуатацию автомобиля соответственно моторного, трансмиссионного и специального масел.