Математическое моделирование вагонов в расчетах на ЭВМ - 46 стр.

UptoLike

ВУЗ: 

СамГУПС | Самара

Составители: 

Рубрика: 

46
130 REM ВВОД ПРОДОЛЖИТЕЛЬНОСТЕЙ РАБОТ
135 INPUT "ВВЕДИТЕ ФАМИЛИЮ: ", F$
140 A$(2, 5) = "(2-5)": A$(1, 2) = "(1-2)": A$(2, 3) = "(2-3)"
150 INPUT "ВВЕДИТЕ T(1-2),T(2-5),T(2-3): ", A(1, 2), A(2, 5), A(2, 3)
160 A$(4, 8) = "(4-8)": A$(8, 10) = "(8-10)": A$(2, 4) = "(2-4)"
170 INPUT "ВВЕДИТЕ T(4-8),T(8-10),T(2-4): ", A(4, 8), A(8, 10), A(2, 4)
180 A$(2, 6) = "(2-6)": A$(3, 7) = "(3-7)": A$(8, 11) = "(8-11)"
190 INPUT "ВВЕДИТЕ T(2-6),T(3-7),T(8-11): ", A(2, 6), A(3, 7), A(8, 11)
200 A$(8, 12) = "(8-12)": A$(5, 9) = "(5-9)": A$(15, 17) = "(15-17)"
210 INPUT "ВВЕДИТЕ T(8-12),T(5-9),T(15-17): ", A(8, 12), A(5, 9), A(15, 17)
220 A$(9, 16) = "(9-16)": A$(7, 18) = "(7-18)": A$(12, 13) = "(12-13)"
230 INPUT "ВВЕДИТЕ T(9-16),T(7-18),T(12-13): ", A(9, 16), A(7, 18), A(12, 13)
240 A$(12, 14) = "(12-14)": A$(14, 15) = "(14-15)": A$(16, 19) = "(16-19)"
250 INPUT "ВВЕДИТЕ T(12-14),T(14-15),T(16,19): ", A(12, 14), A(14, 15), A(16, 19)
260 A$(17, 20) = "(17-20)"
270 INPUT "ВВЕДИТЕ T(17,20): ", A(17, 20)
280 A(6, 9) = 0: A(10, 13) = 0: A(11, 13) = 0: A(13, 15) = 0: A(18, 20) = 0
285 A(19, 20) = 0
290 A$(6, 9) = "(6-9)": A$(10, 13) = "(10-13)": A$(11, 13) = "(11-13)"
300 A$(13, 15) = "(13-15)": A$(18, 20) = "(18-20)"
305 A$(19, 20) = "(19-20)"
310 REM ВЫЧИСЛЕНИЕ КРИТИЧЕСКОГО ПУТИ
320 FOR I = 1 TO D
330 B(I) = A(I, D)
340 NEXT I
350 FOR I = 1 TO D
360 BM = -10000
370 FOR J = 1 TO D
380 B = A(I, J) + B(J)
390 IF B < -100 THEN B = -10000
400 IF B < BM THEN GOTO 430
410 BM = B - .000001
420 B$ = "T" + A$(I, J) + "-" + B$(J)
430 NEXT J
440 C(I) = BM
450 C$(I) = B$
460 NEXT I
470 B2 = 0!
480 FOR I = 1 TO D
490 B1 = C(I) - B(I)
500 B2 = B2 + ABS(B1)
510 NEXT I
520 IF B2 < .001 THEN GOTO 620
530 FOR I = 1 TO D
540 B(I) = C(I)
550 B$(I) = C$(I)
560 NEXT I
570 IF K > D THEN GOTO 600
580 K = K + 1
590 GOTO 350
600 PRINT "ОШИБКА В ПРОГРАММЕ"
610 GOTO 1170
620 Tkp = C(1)
623 PRINT "ВЫПОЛНИЛ - "; F$
625 PRINT TAB(6); "КРИТИЧЕСКИЙ ПУТЬ="; Tkp; TAB(36); "ЧИСЛО ЗВЕНЬЕВ="; K
630 PRINT TAB(6); C$(1)
640 REM "НАХОЖДЕНИЕ РЕЗЕРВОВ ВРЕМЕНИ"
650 FOR I = 1 TO D
660 FOR J = 1 TO D
670 Tho(I, J) = Tkp: Thh(I, J) = Tkp - A(I, J): Tph(I, J) = 0: Tpo(I, J) = A(I, J)
680 NEXT J
690 NEXT I
700 FOR L = 1 TO D

Страницы