Разработка программного продукта с использованием модуля. 2.11. Установка оборудования на рабочем месте.

2.10. Разработка программного продукта с использованием модуля:

Модуль:

Unit Droby;

Interface

Type

Natur=l..High(Longlnt);

Frac=Record

P: Longlnt;

Q: Natur

End;

Procedure Sokr(Var A: Frac);

Procedure Summa(A,B: Frac; Var C: Frac);

Procedure Raznost(A,B: Frac; Var C: Frac);

Procedure Proizvedenie(A,B: Frac; Var C: Frac);

Procedure Chastnoe(A,B: Frac; Var C: Frac);

Procedure Stepen(A: Frac; N: Natur; Var C: Frac);

Function Menshe(A,B: Frac): Boolean;

Function Bolshe(A,B: Frac): Boolean;

Function Ravno(A,B: Frac): Boolean;

Function MensheRavno(A,B: Frac): Boolean;

Function BolsheRavno(A,B: Frac): Boolean;

Function NeRavno(A,B: Frac): Boolean;

(Раздел реализации модуля}

Implementation

{Наибольший общий делитель двух чисел -

вспомогательная функция, ранее не объявленная}

Function NodEvklid(A,B: Natur): Natur;

Begin

While A O B Do

If A>B Then

If A Mod BOO Then A:=A Mod В

Else A:=B

Else

If В Mod AOO Then B:=B Mod A

Else B:=A;

NodEvklid:=A

End;

{Сокращение дроби}

Procedure Sokr;

Var M,N: Natur;

Begin

I f A.POO

Then

B e g in

I f A.P<0

Then M:=Abs(A.P)

Else M:=A.P; {Совмещение типов, т.к. А.Р

Longlnt}

N:=NodEvklid(M,A.Q);

A.P:=A.P Div N;

A.Q:=A.Q Div N

End

End;

Procedure Summa; {Сумма дробей}

Begin

{Знаменатель дроби}

C.Q:=(A.Q*B.Q) Div NodEvklid(A.Q, В.Q);

{Числитель дроби}

C.P:=A.P*C.Q Div A.Q+B.P*C.Q Div B.Q;

Sokr(C)

End;

Procedure Raznost; {Разность дробей}

Begin

{Знаменатель дроби}

C.Q:=(A.Q*B.Q) Div NodEvklid(A.Q,В.Q);

{Числитель дроби}

C.P:=A.P*C.Q Div A.Q-B.P*C.Q Div B.Q;

Sokr(C)

End;

Procedure Proizvedenie; {Умножение дробей}

Begin

{Знаменатель дроби}

C.Q:=A.Q*B.Q;

{Числитель дроби}

С.Р:=А.Р*В.Р;

Sokr(С)

End;

Procedure Chastnoe; {Деление дробей)

Begin

{Знаменатель дроби)

C.Q:=A.Q*B.P;

{Числитель дроби)

C.P:=A.P*B.Q;

Sokr(С)

End;

Procedure Stepen; {Возведение дроби в степень)

Var I: Natur;

Begin

C.Q:=1;

C.P:=1;

Sokr(A);

For I:=l To N Do

Proizvedenie(А,С,С)

End;

Function Menshe; {отношение '<' между дробями)

Begin

Menshe:=A.P*B.Q<A.Q*B.P

End;

Function Bolshe; {отношение '>' между дробями)

Begin

Bolshe:=A.P*B.Q>A.Q*B.P

End;

Function Ravno; {отношение '=' между дробями)

Begin

Ravno:=A.P*B.Q=A.Q*B.P

End;

Function BolsheRavno; {отношение '>=' между

дробями}

Begin

BolsheRavno:=Bolshe(А,В) Or Ravno(A,B)

End;

Function MensheRavno; {отношение '<=' между

дробями)

Begin

MensheRavno:=Menshe(А,В) Or Ravno(A,B)

End;

Function NeRavno; {отношение '<>' между дробями

Begin

NeRavno:=Not Ravno(A,B)

End;

{Раздел инициализации модуля}

Begin

End.

 

Программа:

Program Sum;

Uses Droby;

Var A: Array[1..100] Of Frac;

I,N: Integer;

S: Frac;

Begin

Write('Введите количество элементов массива:');

ReadLn(N);

S.P:=0; S.Q:=l; {Первоначально сумма равна нулю}

For I:=l To N Do {Вводим и суммируем дроби}

Begin

Write('Введите числитель',I,'-й дроби:');

ReadLn(A[I].P);

Write('Введите знаменатель ',1,'-й дроби:');

ReadLn(A[I].Q);

Summa(A[I],S,S);

End;

W r i t e L n (' О т в е т: ', S. P, ' / ', S. Q)

End.

2.11. Установка оборудования на рабочем месте:

Правильное размещение оборудования является основным звеном в организации безопасной работы производственного участка и цеха. При размещении оборудования необходимо соблюдать установленные минимальные разрывы между станками, между станками и отдельными элементами здания, правильно определять ширину проходов и проездов. Невыполнение правил и норм размещения оборудования приводит к загромождению помещений и травматизму.

Расположение оборудования на площади цеха или участка определяется в основном технологическим процессом и местными условиями.

При автоматизированном производстве (комплексные автоматические заводы или цеха, автоматические линии, поточное производство) оборудование размещается по ходу технологического процесса в единую цепочку с соблюдением расстояний между оборудованием и конструктивными элементами здания. На автоматических и поточных линиях большой протяженности для перехода с одной стороны линии на другую устраивают переходные мостики.

При многостаночном обслуживании оборудование располагают с учетом максимально возможного сокращения расстояний между рабочими местами. Если по условиям технологического процесса необходимо предусмотреть стеллажи или столы для заготовок и готовых изделий, то для этого отводится дополнительная площадь в соответствии с особенностями производства.

Размещение металлорежущих станков, слесарных верстаков и другого оборудования в цехах холодной обработки принимается таким, чтобы расстояние между отдельными станками или группами станков были достаточными для свободного прохода рабочих, занятых. их обслуживанием и ремонтом. Во всех случаях размещение оборудования должно обеспечивать достаточное число проходов для людей и проездов для транспорта, обеспечивающих безопасность сообщения. Ширина проходов и проездов назначается в зависимости от расположения оборудования, характера движения, способа транспортирования и размеров деталей, но при всех условиях принимается не менее 1 м. Для перевозки грузов автомашинами устраиваются проезды шириной 3,5 м. Загромождение проходов и проездов, а также рабочих мест различными предметами не разрешается.

Проходы и проезды требуется содержать в чистоте и порядке, границы их обычно отмечаются белой краской или металлическими светлыми кнопками. Ширина рабочей зоны принимается не менее 0,8 м. Расстояние между оборудованием и элементами зданий, а также размеры проходов и проездов определяются нормами технологического проектирования механических и сборочных цехов машиностроительных заводов.

В единичном и мелкосерийном производстве часто оборудование размещается по группам станков (токарные, фрезерные, расточные, шлифовальные и т. п. станки); однако необходимо стремиться к тому, чтобы расположение оборудования исключало возможность возникновения в процессе работы встречных потоков материалов, полуфабрикатов и людей. Целесообразно устраивать в пролетах между оборудованием одностороннее движение. При транспортировании различных заготовок в проходах (особенно заготовок большой длины) нельзя допускать, чтобы транспортные средства и заготовки стесняли рабочую зону или выходили за границы проезда, прохода.

Рабочее место является первичным звеном производства, оно представляет собой определенный участок производственной площади цеха, предназначенный для выполнения одним рабочим (или бригадой) порученной работы, специально приспособленный и технически оснащенный в соответствии с характером этой работы. От того, насколько правильно и рационально будет организовано рабочее место, зависит безопасность и производительность труда. Как правило, каждое рабочее место оснащено основным и вспомогательным оборудованием и соответствующим инструментом. Отсутствие на рабочем месте удобного вспомогательного оборудования или нерациональное его расположение, захламленность создают условия для возникновения травматизма.