ВУЗ:
Составители:
Рубрика:
23
870 IF I = J THEN GOTO 890
880 IF THHIL < BMI THEN BMI = THHIL
890 NEXT I
900 FOR I = 1 TO D
910 AIL = A(I, L)
920 IF AIL < 0 THEN GOTO 950
930 IF I = J THEN GOTO 950
940 Tho(I, L) = BMI: Thh(I, L) = BMI - AIL
950 NEXT I
960 NEXT L
1000 K = 1
1010 FOR I = 1 TO D
1020 FOR J = 1 TO D
1030 IF A(I, J) < 0 THEN GOTO 1080
1035 IF I = J THEN GOTO 1080
1040 C1$(K) = A$(I, J): C2(K) = A(I, J): C3(K) = Tph(I, J)
1050 C4(K) = Tpo(I, J): C5(K) = Thh(I, J): C6(K) = Tho(I, J)
1060 C8(K) = RS(I, J): C7(K) = C6(K) - C4(K)
1070 K = K + 1
1080 NEXT J
1090 NEXT I
1100 PRINT TAB(6); "_______________________________________________________________"
1110 PRINT TAB(6); " КОД "; " Ti,j "; " Trn "; " Tro "; " Tpn "; " Tpo "; " R(I,J) "; " RS(I,J)"
1120 PRINT TAB(6); "_______________________________________________________________"
1130 FOR I = 1 TO K - 1
1140 PRINT TAB(6); C1$(I); TAB(14); C2(I); TAB(19); C3(I); TAB(24); C4(I); TAB(29); C5(I); TAB(40);
C6(I); TAB(52); C7(I); TAB(66); C8(I)
1150 NEXT I
1160 PRINT TAB(6); "_______________________________________________________________"
1165 PRINT TAB(6); "_______________________________________________________________"
1170 END
Задание
1. Произвести расчеты на ЭВМ при различных величинах времени
ремонтных операций, задаваясь их значениями, приведенными в
лабораторной работе №5.
2. Ввести в программу расчета критического пути статистические
характеристики распределения вероятностей времени ремонтных
операций, представляя их как случайные величины
