Автоматизированная тележка с бункером перемещает материал из позиции «А» в «B», далее в позицию «C». Затем снова в позицию «А». Положение тележки в позициях контролируются концевыми выключателями S1, S2, S3. Тележка приводится в движение двигателем M1, обеспечивая движения вперед и назад. Затвор бункера приводится в движение двигателем M2, обеспечивая открытие и закрытие. Положения затвора бункера контролируются концевыми выключателями S6 (открыт), S7 (закрыт). Двигатели подключены через автоматические выключатели. Если тележка в позиции «A», затвор бункера закрыт. При нажатии кнопки Пуск S0 двигатель M1 перемещает тележку направо. Когда тележка достигает позиции «B», двигатель M1 останавливается, а двигатель M2 обеспечивает открытие затвора в течении 6 секунд. После этого двигатель M2 обеспечивает закрытие затвора. Если затвор полностью закрыт, двигатель M1 обеспечивает перемещение тележки в позицию «C». Когда тележка достигает позицию «C», двигатель M1 останавливается, а двигатель M2 обеспечивает открытие затвора в течении 4 секунд. После этого двигатель M2 обеспечивает закрытие затвора. Если затвор полностью закрыт, двигатель M1 обеспечивает перемещение тележки обратно в позицию «A». Сигнальная лампа H0 включена при движении тележки. Тележка останавливается при срабатывании автоматических выключателей и нажатии кнопки Стоп S13. Тележку можно отправить из позиции «B» в позицию «A» при нажатии кнопки S10. Эту процедуру можно выполнить до открытия затвора позиции «B» (когда тележка достигла позиции «B») или после истечения 6 секунд при выгрузке материала. Для корректной реализации необходимо использовать таблицу входов / выходов. сделать входы/ выходы.
Const N = 13; Var A:array[1..N] of integer; i,Min:integer; Begin Randomize; Min:=1; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(A[i],' '); if A[Min]>A[i] then Min:=i; End; WriteLn; WriteLn(Min) End.
Const N = 13; Var A:array[1..N] of integer; i,j,Min,B:integer; Begin Randomize; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(A[i],' '); End; WriteLn; WriteLn; For i:= 1 to N do Begin Min:=i; For j:=i+1 to N do if A[Min]>A[j] then Min:=j; B:=A[Min]; A[Min]:=A[i]; A[i]:=B; Write(A[i],' ') End; End.
Const N = 13; Var A:array[1..N] of integer; i,j,Max,B:integer; Begin Randomize; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(A[i],' '); End; WriteLn; WriteLn; For i:= 1 to N do Begin Max:=i; For j:=i+1 to N do if A[Max]<A[j] then Max:=j; B:=A[Max]; A[Max]:=A[i]; A[i]:=B; Write(A[i],' ') End; End.
