ВУЗ:
Составители:
Рубрика:
47
710 BMM = 0
720 FOR I = 1 TO D
730 TPOIL = Tpo(I, L)
740 IF TPOIL > BMM THEN BMM = TPOIL
750 NEXT I
760 FOR I = 1 TO D
770 RS(I, L) = BMM - Tpo(I, L)
780 NEXT I
790 FOR J = 1 TO D
800 Tph(L, J) = BMM: Tpo(L, J) = BMM + A(L, J)
810 NEXT J
820 NEXT L
830 FOR L = D - 1 TO 1 STEP -1
840 BMI = 10000: BMM = 0: KL = 1
850 FOR I = 1 TO D
860 THHIL = Thh(L, I)
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.
Находясь в текстовом редакторе Word 2000, создать новый
документ. Сразу же сохранить новый документ в свою личную
папку «D:\Заочн-5В\Фамилия…» под именем
«Отчет-5(Фамилия).doc».
2.
С помощью пункта меню «Окно» переключиться в документ
«Лабораторный практикум по курсу MМ.doc». Скопировать весь
текст до строки «Порядок работы» в «Отчет-5(Фамилия).doc».
