1.2 Программа технологического расчета

Program Raschet_chislennosti_rabochih;

var

q,n,K:integer;

Drg,Ttr, Ft:real;

PtRR,PtCvR,PtGR,PtOkrR,TOr,Teo,Tpv,diag,too,kol,rem,Te,Tp,A,Aeo,Ptel,el:

real;

Begin

Drg:=365; Ft:=1937;

Writeln ('Введите категорию дороги ');

Readln (k);

If (k=1) then n:=10000;

If (k=2) then n:=7000;

If (k=3) then n:=3000;

If (k=4) then n:=1000;

If (k=5) then n:=100;

Writeln ('Введите класс автомобилей');

Writeln ('легковые автомобили - 1');

Writeln ('грузовые автомобили - 2');

Readln (q);

If q=1 then Begin

TOr:=2; Te:=0.2; Tp:=0.2;

A:=0.04*n; end;

If q=2 then Begin

TOr:=2.8;

A:=0.004*n; end;

Ttr:=A*Drg*TOr;

diag:=Ttr*0.06;

too:=Ttr*0.4;

kol:=Ttr*0.27;

rem:=Ttr*0.16;

el:=Ttr*0.05;

PtRR:=diag/Ft;

PtCvR:=too/Ft;

PtGR:=kol/Ft;

PtOkrR:=rem/Ft;

Ptel:=el/Ft;

Writeln ('Программа для расчета численности производственных рабочих в дорожном СТО по постам');

Writeln ('Распределение численности производственных рабочих по постам');

Writeln ('--------------------------------------------------------------');

Writeln ('I Пост I Число производственных рабочих I');

Writeln ('----------------------------------------------------------------------------------------------------------------');

Writeln ('I Диагностические работы I ',PtRR:2:1,' I');

Writeln ('----------------------------------------------------------------------------------------------------------------');

Writeln ('I Техническое обслуживание I ',PtCvR:2:1,' I');

Writeln ('----------------------------------------------------------------------------------------------------------------');

Writeln ('I Тормозная система, углы установки колес, шиномонтажные работыI ',PtGR:2:1,' I');

Writeln ('----------------------------------------------------------------------------------------------------------------');

Writeln ('I Ремонтные работы I ',PtOkrR:2:1,' I');

Writeln ('----------------------------------------------------------------------------------------------------------------');

Writeln ('I Электротехнические работы I ',Ptel:2:1,' I');

Writeln ('----------------------------------------------------------------------------------------------------------------');

End.

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

Результаты расчета программы приведены в приложении А.

Анализ результатов показал, что в зависимости от категории дороги и, соответственно, ее интенсивности движения количество рабочих дорожного СТОА изменяется. По результатам расчета программы для дороги категории 1 и легковом классе автомобиля число рабочих зоны технического обслуживания 69, а для дороги 4 категории 7 рабочих. Также можно сделать вывод о зависимости количества рабочих от класса автомобиля. Для грузовых автомобилей на дороге категории 1 в зоне технического обслуживания требуется 10 работников (в сравнении с 69 для легковых автомобилей и такой же категории дороги).

Графические зависимости в виде графиков и диаграмм, а также блок-схема программы представлены на 2-х листах формата А1.