Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Северо-Кавказский горно-металлургический технологический университет (СКГМИ)

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Форма14-16 и литер и содерж.DOC

Скачиваний:

Добавлен:

01.07.2025

Размер:

288.77 Кб

Скачать

☆

1 / 51 2 3 4 5 > Следующая >>>

Форма 14

DIM a$(4) DIM b$(8)

b$(0) = " Данная программа служит для технологического проектирования комплекс-"

b$(1) = " ного процесса вертикальной планировки, комплексного процесса разработки"

b$(2) = " котлована экскаватором с погрузкой на транспорт, а также для проектиро-"

b$(3) = " вания простых и комплексных процессов." b$(4) = ""

b$(5) = " Текст программы составлен под руководством авторов пособия"

b$(6) = " ТЕХНОЛОГИЧЕСКИЕ ПРОЕКТИРОВАНИЕ ПРОЦЕССОВ ЗЕМЛЯНЫХ РАБОТ"

b$(7) = " проф., к.т.н. Уварова Владимира Федоровича, асс. Краснюк Людмилы Владиминовны и является приложением к данному"

b$(8) = " пособию."

а$(0) = " Вертикальная планировка строительной площадки "

а$(1) = " Разработка котлована экскаваторным комплектом машин "

а$(2) = " Проектирование простых процессов "

а$(3) = " О программе "

а$(4) = " Выход из программы "

CLS

COLOR 10

LOCATE 3, 17: PRINT "КУРСОВОЕ ПРОЕКТИРОВАНИЕ "

LOCATE 23, 17: PRINT "Используйте стрелки для выбора пункта в меню"

COLOR 4

LOCATE 1,1: PRINT "**********************************

LOCATE 25, 1: PRINT "*********************************

FOR k = 1 TO 25

LOCATE k, 1: PRINT "*";

LOCATE k, 79: PRINT "*"; NEXT k

COLOR 11, 5

LOCATE 10, 13: PRINT a$(0)

COLOR 14, О

LOCATE 11, 13:PRINTa$(1)

LOCATE 12, 13: PRINT a$(2)

LOCATE 13, 13: PRINT a$(3)

LOCATE 14, 13: PRINT a$(4)

DO: DO

scan$ = IN KEYS

LOOP UNTIL scan$ <> ""

IF LEN(scan$) > 1 THEN scan$ = RIGHT$(scan$, 1)

kod = ASC(scan$)

LOOP UNTIL kod = 72 OR kod = 80 OR kod = 13

SELECT CASE kod CASE 80

LOCATE 10 + meny, 13

COLOR 14, 0: LOCATE 10 + meny, 13: PRINT a$(meny)

meny = meny + 1

IF meny > 4 THEN meny = 0

LOCATE 10 + meny, 13:

COLOR 11, 5: PRINT a$(meny)

CASE 72

LOCATE 10 +meny, 13

COLOR 14, 0: LOCATE 10 + meny, 13: PRINT a$(meny)

meny = meny -1

IF meny < 0 THEN meny = 4

LOCATE 10 + meny, 13:

COLOR 11, 5: PRINT a$(meny)

CASE 13

SELECT CASE meny

CASE 0: RUN "c:\uvarov\ct)opMa14.bas"

CASE 1: RUN "c:\uvarov\dpopMa15.bas"

CASE 2: RUN "c:\uvarov\cpopMa16.bas"

CASE 3: GOTO read my

CASE 4: COLOR 0, 15: vixod = 1 END SELECT

END SELECT

LOOP UNTIL vixod = 1

END

readmy:

COLOR 7, 0

CLS

FOR k = 0 TO 8

LOCATE 4 + k, 4

PRINT b$(k) NEXT

COLOR 6, 0

LOCATE 20, 1

PRINT "**************************************"

scan$ = INKEY$

LOOP UNTIL scan$ <> ""

meny = 0: COLOR О, О GOTOm

1 DD = 8: CLS : COLOR 15, 9, 5: FOR I = 1 TO 24: PRINT " ": NEXT I:

CLS : PRINT " ВАРИАНТНОЕ ПРОЕКТИРОВАНИЕ"

2 PRINT " комплексно-механизированного процесса вертикальной планировки"

3 PRINT " строительной площадки скреперным (бульдозерным) комплектом машин"

10 DIM A$(27), DAN(25), X$(6, 3), Y$(5, 3), NM(3, 3), REZ(4, 3), NZ(3, 3), Z$(5, 3), MN(3, 3)

11 DIM W(3, 3, 3), PRN(3, 3)

12 DIM XPR$(6, 3), OPR$(6, 3), VSP$(16), S(3), S1(3), S2(3), T(3)

15 DATA 2,4,5,6,8,14,25

17 FOR I = 1 TO 7: READ UK(I): NEXT I: UK(8) = 26: UK(9) = 27 KEY 8, "/" + CHR$(13)

18 KEY 9, "*" + CHR$(13)

19 KEY 10, "-" + CHR$(13)

KEY OFF

20 REM PRINT "ВК-ввод данных автоматич":INPUT O$ :

IF O$="" THEN 450

30 A$(1) = "Схема площадки "

40 A$(2) = "Об'емы планировочной выемки и насыпи,тыс.м куб. "

50 A$(3) = "Проектный уклон площадки (i2) :"

60 A$ = "Введите обозначение заданного параметра, (например 2) "

70 A$(3) = A$(3) + CHR$(13) + " 1 -0.09" + CHR$(13) + " 2 -0.0"

80 B$ = CHR$(13)

90 A$(3) = A$(3) + B$ + A$

100 A$(4) = "Продолжительноть работ минимальная ,дни "

110 A$(5) = "Продолжительность работ максимальная ,дни "

120 A$(6) = "Количество рабочих смен в сутки "

130 A$(7) = "Средняя дальность перемещения грунта , м "

140 A$(8) = "Группа немерзлого грунта в состоянии природной влажности "

150 A$(10) = "Плотность грунта :" + B$ + " 1 - легкий" + B$ + "

2 - тяжелый"

160 A$(10) = A$(10) + B$ + " 3 -плотный" + B$ + A$

170 A$(9) = "Характеристика грунта (принимается по технической

части ЕНиРа)"

180 A$(11) = "Влажность грунта :" + B$

190 A$(11) = A$(11) + " 1 - связный природной влажности" + B$

200 A$(11) = A$(11) + " 2 - сыпучие" + B$ + " 3 -вязкие" + B$ + A$

210 A$(12) = "Трудность разработки грунта (с) "

220 A$(13) = "Применение окрылок :" + B$ + " 1 - да" + B$ + "

2 -нет" + B$ + A$

230 A$(14) = "Количество проходов катка по одному следу "

240 AB$ = "Размеры траншеи ,м :" + B$

250 A$(15) = AB$ + " длина "

260 A$(16) = " ширина (по низу траншеи) "

270 A$(17) = " глубина (у котлована) "

280 A$(18) = "Уклон дна траншеи (i1) "

290 A$(19) = "Количество рабочих смен для машинистов "

300 A$(20) = "Группа немерзлого грунта в состоянии природной

влажности "

310 A$(21) = A$(9)

320 A$(22) = "Влажность грунта :" + B$ + " 1 - природной

влажности" + B$

330 A$(22) = A$(22) + " 2 - повышенной влажности, сильно налипающий на стенки"

340 A$(22) = A$(22) + " и зубья ковша" + B$ + A$

350 A$(23) = "Характеристика условий работы в забое :" + B$ + " 1 - стесненные"

360 A$(23) = A$(23) + B$ + " 2 -забой свободен от подземных комму никаций" + B$ + A$

370 A$(24) = "Характеристика ковша :" + B$ + " 1 - с зубьями" + B$

380 A$(24) = A$(24) + " 2 - со сплошной кромкой" + B$ + A$

410 PRINT "":

415 VSP$(1) = "Об'емы планировочной выемки и насыпи,т ыс.м куб. "

417 VSP$(2) = "Продолжительноcть работ минимальная ,дни "

418 VSP$(3) = "Продолжительность работ максимальная ,дни "

420 VSP$(4) = "Количество рабочих смен в сутки "

421 MET$ = " I. Исходные данные, принимаемые по заданию"

422 VR$ = SPACE$(50)

423 KP = 4: KVAR = 1

424 GOSUB 6006

425 DAN(2) = VAL(OPR$(1, 1)): DAN(4) = VAL(OPR$(2, 1)): DAN(5) = VAL(OPR$(3, 1)): DAN(6) = VAL(OPR$(4, 1))

430 REM FOR I=13 TO 24:PRINT A$(I);:INPUT DAN(I):NEXT I

440 GOTO 520

450 DATA 1,135,1,20,24,2,100,2,1,3,1,14,1,10

460 DATA 145,1.6,1.2,0.021,2,1,1,1,1,2,1

470 FOR I = 1 TO 25: READ DAN(I): NEXT I

475 KEY 9, "*" + CHR$(13)

476 KEY 10, "-" + CHR$(13)

520 TP = (DAN(4) + DAN(5)) / 2

526 LOCATE 15, 6

575 VSM = DAN(2) * 1000 / (TP * DAN(6))

581 KL = (DAN(7) - 100) / 10

586 CLS

587 LOCATE 5, 5: PRINT "Укажите количество вариантов ";

588 LOCATE 5, 35: INPUT KVAR

IF KVAR = 1 OR KVAR = 2 THEN GOTO 590

LOCATE 10, 10: PRINT "Ошибка. "; : LOCATE 5, 34: PRINT " "; : GOTO 588

590 VSP$(1) = "Марка скрепера/бульдозера"

VSP$(2) = "Глубина резания ,м до"

VSP$(3) = "Толщина отсыпаемого слоя , до"

VSP$(4) = "Состав рабочих"

VSP$(5) = "Единица измерения"

VSP$(6) = "Норма времени на ед.,чел.-час."

MET$ = "II. ИСХОДНЫЕ ДАННЫЕ, ПРИНИМАЕМЫЕ ПО ЕНиРу "

VR$ = "***Процесс разработки и перемещения грунта*** ВАРИАНТЫ"

630 KP = 6

635 GOSUB 6006

640 FOR J = 1 TO 6: FOR I = 1 TO KVAR: X$(J, I) = OPR$(J, I): NEXT I: NEXT J

699 VSP$(1) = "Марка рыхлителя"

VSP$(2) = "Состав рабочих"

VSP$(3) = "Единица измерения"

700 VSP$(4) = "Глубина разрыхляемого слоя ,м до"

703 VSP$(5) = "Норма времени на ед.,чел.-час."

VR$ = "**** Процесс рыхления грунта **** ВАРИАНТЫ"

KP = 5

728 GOSUB 6006

729 FOR J = 1 TO 5: FOR I = 1 TO KVAR: Y$(J, I) = OPR$(J, I): NEXT I: NEXT J

REM Процесс уплотнения грунта

VSP$(1) = "Марка катка"

VSP$(2) = "Состав рабочих"

VSP$(3) = "Единица измерения"

VSP$(4) = "Толщина уплотняемого слоя ,м до"

VSP$(5) = "Норма времени на ед.,чел.-час."

VR$ = "**** Процесс уплотнения грунта **** ВАРИАНТЫ"

KP = 5

GOSUB 6006

FOR J = 1 TO 5: FOR I = 1 TO KVAR: Z$(J, I) = OPR$(J, I): NEXT I: NEXT J

800 FOR I = 1 TO KVAR

810 P(4 + I) = VAL(X$(6, I)): PN = (8! * 100) / P(4 + I): NM(2, I) = VSM / PN: PRN(2, I) = PN / 100

820 MN(2, I) = DAN(2) * 1000 * P(4 + I) / 100 / 8!

1010 RU(I) = VAL(Y$(5, I))

1020 PN = (8! * 100) / RU(I): PRN(1, I) = PN / 100

1030 NM(1, I) = VSM / PN

1040 MN(1, I) = DAN(2) * 1000 * RU(I) / 100 / 8!

1050 CLS : LOCATE 1, 5

1160 PK = VAL(Z$(5, I)): PNK = 8! * 1000 / PK: PRN(3, I) = PNK / 1000

1170 TLK = VAL(Z$(4, I))

1210 NM(3, I) = VSM / TLK / PNK: MN(3, I) = DAN(2) / TLK * PK / 8!

1215 NEXT I

1217 IF DAN(10) = 3 THEN JN = 1 ELSE JN = 2

1218 IFLAG = 0

1220 COLOR 15, 9, 5: CLS : LOCATE 25, 1: PRINT "F8-Выход из программы"

LOCATE 5, 5: PRINT " РЕЗУЛЬТАТЫ РАСЧЕТОВ КОМПЛЕКТОВ МАШИН"

1230 PRINT " ПО ТЕХНИЧЕСКИМ ПОКАЗАТЕЛЯМ "

1235 PRINT " "

PRINT "---------------------------------------------------------------"

1240 PRINT " номер: Марка / нормативное количество машин / :"

1250 PRINT " варианта :----------------------------------------------------"

1260 PRINT " :Рыхлители : Скреперы : Катки :"

1270 PRINT "--------------------------------------------------------------:"

1280 FOR I = 1 TO KVAR

1285 PRINT " "; I;

1286 PRINT " "; : PRINT Y$(1, I); STRING$(17 - LEN(Y$(1, I)), " ");

1287 TT$ = X$(1, I): PRINT TT$; STRING$(17 - LEN(TT$), " ");

1288 TT$ = Z$(1, I): PRINT TT$; STRING$(17 - LEN(TT$), " ")

1289 PRINT " ";

1290 FOR J = 1 TO 3

1295 P$ = " "

1300 PRINT USING "#########.##"; NM(J, I); : PRINT P$;

1310 NEXT J: PRINT " ": PRINT "-------------------------------------------"

1320 NEXT I

1325 C$ = " После ознакомления нажать клавишу ВВОД"

1330 LOCATE 24, 5: PRINT C$; : INPUT CC$:

IF CC$ = "/" THEN RUN "RASCHET"

1340 TY$(2) = "СКРЕПЕР": TY$(1) = "РЫХЛИТЕЛЬ": TY$(3) = "КАТОК"

1345 IF DAN(25) = 2 THEN TY$(2) = "Бульдозер"

1350 TH$ = " "

VSP$(1) = "Стоимость машино-смены ,руб."

VSP$(2) = "Инвентарно-расчетная стоимость ,руб."

VSP$(3) = "Нормативное годовое количество смен работы "

VR$ = " ВАРИАНТЫ"

MET$ = "III. ИСХОДНЫЕ ДАННЫЕ ,ПРИНИМАЕМЫЕ ПО

МЕТОДИЧЕСКИМ УКАЗАНИЯМ"

KP = 3

1390 FOR H = 1 TO 3

1392 J = 3: IF H = 1 THEN J = 2

1394 IF H = 2 THEN J = 1

SRK$ = TY$(J)

VR$ = TY$(J) + " ВАРИАНТЫ"

1395 GOSUB 6006

IF IFLAG = 1 THEN 1217

IFLAG = 0

1418 PRINT ""

1376 J = H:HH = J:IF J = 1THEN HH = 2ELSE IF J = 2THEN HH =1

1377 FOR PO = 1 TO 3: FOR I = 1 TO KVAR

1378 W(HH, PO, I)=VAL(OPR$(PO, I)): PRINT " ":NEXT I:NEXT PO

NEXT H

1419 FOR I = 1 TO KVAR

1389 S(I) = 0: S1(I) = 0: S2(I) = 0

FOR J = 1 TO 3

1388 CT = W(J, 1, I): CC = W(J, 2, I): MG = W(J, 3, I)

1420 S(I) = S(I) + NM(J, I): S1(I) = S1(I) + CC * MN(J, I) / MG

1425 S2(I) = S2(I) + CT * NM(J, I)

1430 NEXT J

1440 T(I) = S(I) * 100 / VSM: S2(I) = S2(I) / VSM * 108

1445 REZ(1, I) = T(I): REZ(3, I) = S2(I): REZ(4, I) = S1(I) * 112 / (DAN(2) * 1000) * .15 + S2(I)

1450 NEXT I

1455 CLS : IFLAG = 0

1480 PRINT " РЕЗУЛЬТАТЫ РАСЧЕТОВ"

1490 PRINT " процессов вертикальной планировки строительной площадки"

1500 PRINT " "

1510 PRINT "----------------------------------------------------------------- "

1520 PRINT " NN Наименование : Варианты"

1530 PRINT " п/п показателей :----------------------------------"

1540 PRINT " : 1 : 2 : 3"

1550 PRINT "------------------------------------------------------------------"

1560 H$(1) = " 1 Трудоемкость разработки "

1570 G$(1) = " 100 куб.м ,ч-см. "

1580 H$(2) = " 2 Машиноемкость ведущего"

1590 G$(2) = " процесса,м-см. "

1600 H$(3) = " 3 Себестоимость разработки"

1610 G$(3) = " 100 куб.м грунта,руб. "

1620 H$(4) = " 4 Приведенные затраты на "

1630 G$(4) = G$(3)

1632 FOR I = 1 TO KVAR: REZ(2, I) = MN(2, I): NEXT I

1640 FOR L = 1 TO 4

1650 PRINT H$(L): PRINT G$(L);

1660 FOR I = 1 TO KVAR

1670 PRINT USING "######.##"; REZ(L, I);

1680 NEXT I: PRINT " "

1690 NEXT L

1694 PRINT "-----------------------------------------------------------------"

1695 VV$ = " ": VG$ = "**************"

1700 COLOR 10, 9, 5: PRINT VV$; " Укажите номер выбранного варианта "; : INPUT NV$

IF NV$ = "/" THEN RUN "RASCHET"

IF NV$ = "1" OR NV$ = "2" THEN 1705 ELSE PRINT "ОШИБКА."; : GOTO 1700

1705 NV = VAL(NV$)

CLS : COLOR 15, 9, 5

REM ИСХОДНЫЕ ДАННЫЕ ПРИНЯТОГО УРОВНЯ ПРОИЗВОДИТЕЛЬНОСТИ ТРУДА

VSP$(1) = "Рыхлитель"

VSP$(2) = "Скрепер"

VSP$(3) = "Каток"

MET$ = " Исходные данные принятого уровня производительности труда, %% "

VR$ = " ------------------------------------------------------------"

KP = 3

KVAR = 1

GOSUB 6006

IF IFLAG = 1 THEN 1455

FOR I = 1 TO 3: UR(I) = VAL(OPR$(I, 1)): KOLS(I) = 1: NEXT I

REM ИСХОДНЫЕ ПОКАЗАТЕЛИ ДЛЯ РАСЧЕТА ЗАХВАТОК ПО ПРИНЯТОМУ ВАРИАНТУ

VSP$(1) = "Глубина рыхления и резания грунта ,м"

VSP$(2) = "Толщина отсыпаемого и уплотняемого слоя ,м "

MET$ = " Исходные показатели для расчета захваток по принятому варианту"

VR$ = ""

KP = 2

GOSUB 6006

GL = VAL(OPR$(1, 1)): TLK = VAL(OPR$(2, 1))

1810 FOR J = 1 TO 3

1815 KOLS(J) = 1

1817 NZ(J, NV) = 1

1850 IF NM(J, NV) < 1 THEN 2500

1860 NP = NM(J, NV) * 100 / UR(J)

1900 KM(J) = INT(NP) + 1

1910 Y(J) = NM(J, NV) / KM(J) * 100

1960 MP(J) = TP * DAN(6) * KM(J): TR(J) = NZ(J, NV) * MP(J): PR(J) = VSM / KM(J)

1970 GOTO 2590

2500 REM

2510 REM PRINT " решение об увеличении потока работы ";TY$(J);

2530 KM(J) = 1: YPRD = NM(J, NV) * 100: KOL = 1

2540 FOR K = 1.5 TO 20 STEP .5

2550 KOLS(J) = K: YN = NM(J, NV) * 100 * K

2560 IF YN > UR(J) THEN 2580

2565 YPRD = YN

2570 NEXT K

2580 KOLS(J) = KOLS(J) - .5: Y(J) = YPRD: PR(J) = KOLS(J) * VSM: MP(J) = DAN(2) * 1000 / PR(J): TR(J) = NZ(J, NV) * MP(J)

2590 NEXT J

2595 PR(3) = PR(3) / TLK

2596 REM PRINT " Печатать результаты? Если да - введите цифру 1 ";:INPUT PRP:IF PRP=1 THEN GOSUB 5000

2600 GOTO 3000

2605 F$ = " "

2610 PRINT F$; " Наименование : Наименование процесса"

2620 PRINT F$; " принятых характеристик : --------------------------"

2630 PRINT F$; " : рыхление разработка уплотнение"

2640 PRINT "--------------------------------------------------------------------"

2660 PRINT " 1. Уровень производи -"

2670 PRINT " тельности труда,% ";

2680 PRINT Y(1), Y(2), Y(3)

2690 PRINT " 2. Трудоемкость,ч-см. ";

2700 PRINT TR(1), TR(2), TR(3)

2710 PRINT " 3. Производ-ность,"; TX8$; "/м-см ";

2720 PRINT PR(1), PR(2), PR(3)

2730 PRINT " 4. Машиноемкость,м-см. ";

2740 PRINT MP(1), MP(2), MP(3)

2742 PRINT " 5. Количество машин ";

2744 PRINT KM(1), KM(2), KM(3)

2750 PRINT "--------------------------------------------------------------------"

2760 PRINT " К О Н Е Ц Р А Б О Т Ы"

2770 STOP

3000 F1$ = "#####.##": F2$ = "####.##": F3$ = "###.##"

3001 TLK = VAL(Z$(4, NV))

3005 IM$(1) = " Рыхление "

3006 IM$(2) = " Разработка"

3007 IM$(3) = " Уплотнение"

3010 CLS : LOCATE 25, 1: PRINT " "

PRINT " Форма N 7"

PRINT " "

PRINT " Т Е Х Н О Л О Г И Ч Е С К И Е Р А С Ч Е Т Ы"

PRINT " "

PRINT "-------------------------------------------------------------------------"

PRINT "NN :Наименование :Единица : Объем : Нормативные характеристики процесса"

PRINT "п/п: процесса :измерения: работ :---------------------"

PRINT " : : :(количе- :Трудоем-:Машиноем:Произво-: Требуемые"

PRINT " : : :ство ед. :кость :кость :дитель- : машины"

PRINT " : : :измер.) :чел-см. :маш.-см.:ность :------ :-----"

PRINT " : : : : : :ед./см. :кол-во : Марка"

PRINT "-------------------------------------------------------------------------------"

15 Уваров в. Ф., Краснюк л. В.

PRINT " 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9"

PRINT "-------------------------------------------------------------------------------"

3025 FOR J = 1 TO 3

3026 IF J = 3 THEN KF = TLK ELSE KF = 1

3027 E1$ = " |100 куб.м|": IF J = 3 THEN KD = 1 ELSE KD = 10

3028 E2$ = " |1000 кв.м|": IF J = 3 THEN E$ = E2$ ELSE E$ = E1$

3030 PRINT USING "##"; J; : PRINT IM$(J); E$; : PRINT USING F1$; DAN(2) * KD / KF;

3040 PRINT " |"; : PRINT USING F2$; MN(J, NV); : PRINT " |";

3050 PRINT USING F2$; MN(J, NV); : PRINT " |";

3060 PRINT USING F2$; PRN(J, NV); : PRINT " |";

3070 PRINT USING F3$; NM(J, NV); : PRINT " |";

3080 IF J = 2 THEN PRINT X$(1, NV)

3081 IF J = 1 THEN PRINT Y$(1, NV)

3082 IF J = 3 THEN PRINT Z$(1, NV)

3090 NEXT J

3100 PRINT "------------------------------------------------------------------------------"

3110 PRINT "": PRINT " Для продолжения нажать клавишу ВВОД "; : INPUT UU$

3115 CLS : LOCATE 25, 1

PRINT "F10-Возврат к началу данной табл."

PRINT " -------------------------------------------------------------------------------"

PRINT " : П р и н я т ы е п а р а м е т р ы п р о ц е с с а"

PRINT " :---------------------------------------------------------------------------"

PRINT " :Уро- :Ко-: Сос- :Чис.:Чис.:Кол.:Продол:Продол:Трудо-:Машино:Произ-:Поток"

PRINT " N:вень :лич: тав :раб.:раб.:раб.:житель:житель:емк-ть:емк-ть:водит.:работ"

PRINT " :пр-ти:ма-: зве- :в :в :смен:ность :ность : : : : в"

PRINT " :труда:шин: на :сме-:день: в :работы:работы: : : :смену"

PRINT " : : : :ну : :сутк: : : : : :"

PRINT " : % : : :чел.:чел.: : дни :смены :ч.-см :м.-см ед./см:ед./см"

PRINT "-------------------------------------------------------------------------------"

PRINT " 1: 10 :11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21"

PRINT "-------------------------------------------------------------------------------"

3130 NS = DAN(6): T$ = " "

3135 PRO(1) = PR(1) / 100: PRO(2) = PR(2) / 100: PRO(3) = PR(3) / 1000

3140 F5$ = "#####": F6$ = "###.##": B$(1) = LEFT$(Y$(2, NV), 7): B$(2) = LEFT$(X$(4, NV), 7): B$(3) = LEFT$(Z$(2, NV), 7)

3142 F51$ = "###.#"

3145 FOR J = 1 TO 3: L = LEN(B$(J)): IF L < 7 THEN B$(J) = STRING$(7 - L, " ") + B$(J)

3146 NEXT J

3150 FOR J = 1 TO 3: PRINT USING "##"; J; : PRINT T$; : PRINT USING F51$; Y(J); : PRINT T$; : PRINT USING "###"; KM(J); : PRINT T$; : PRINT B$(J); T$;

3160 PRINT USING "###"; KM(J); : PRINT T$; : PRINT USING "####"; KM(J) * NS; : PRINT T$;

3165 POT = VSM / 100 * KOLS(J)

3166 IF J = 3 THEN POT = VSM / 1000 / TLK * KOLS(J): PRO(3) = POT / KM(J)

3170 PRINT USING F5$; NS; : PRINT T$; : PRINT USING F6$; TP / KOLS(J); : PRINT T$; : PRINT USING F6$; TP / KOLS(J) * NS; : PRINT T$; : PRINT USING "####.##"; TR(J); : PRINT T$; : PRINT USING "####.##"; MP(J); : PRINT T$; : PRINT USING F6$; PRO(J); _

: PRINT T$;

3175 PRINT USING "###.##"; POT

3180 NEXT J

3190 PRINT "___________________________________________________________"

3192 PRINT " Для продолжения нажать клавишу ВВОД или F10 "

3200 INPUT UU$: IF UU$ = "-" THEN 3010: IF UU$ = "/" THEN RUN "RASCHET"

3210 CLS

LOCATE 25, 1: PRINT "F8-Выход из программы"

LOCATE 1, 1

PRINT " Результаты расчета площадей захваток , кв.м "

3215 PRINT " ---------------------------------------------": PRINT ""

3220 PRINT " Рыхлителей :..............."

3230 PRINT " Скреперов :.(разработка).."

3235 PRINT " : (отсыпка) .."

3240 PRINT " Катков :..............."

3250 K = GL: NS = 4: ND = 55: KOLS(4) = KOLS(3): KOLS(3) = KOLS(2)

3260 FOR J = 1 TO 4: IF J > 2 THEN K = TLK

3270 LOCATE NS, ND: PRINT USING "########"; VSM * KOLS(J) / K: NS = NS + 1: NEXT J

LOCATE 15, 1: PRINT " КОНЕЦ РАБОТЫ"

3271 INPUT PR$

3276 IF PR$ = "/" THEN RUN "RASCHET" ELSE 3271

6006 CLS

KEY OFF

LOCATE 25, 1

PRINT "F8-Выход из программы F9-Возврат к предыдущему значению "

IF KP = 3 AND SRK$ = "СКРЕПЕР" THEN LOCATE 25, 1: PRINT "F8-Выход из прогр. F9-Возврат к пред. значен. F10-Возврат к пред. таблице"

LOCATE 1, 5

PRINT MET$

COLOR 10, 9, 5: PRINT " "

PRINT VR$

6007 IF KP > 2 AND KP > 4 THEN GOTO 6008

FOR I = 1 TO 3: PRINT " ": NEXT I: GOTO 6009

6008 PRINT " ------------------------------"

PRINT " : 1 : 2 : 3 :"

PRINT " :--------:---------:----------":

6009 COLOR 15, 9, 5

FOR I = 1 TO KP: FOR J = 1 TO KVAR: OPR$(I, J) = "НЕ ЗАДАНЫ": NEXT J: NEXT I

IF KP = 6 THEN FOR J = 1 TO KVAR: OPR$(5, J) = "100 куб.м": NEXT J

IF KP = 5 THEN IF VSP$(1) = "Марка рыхлителя" THEN FOR J = 1 TO KVAR: OPR$(3, J) = "100 куб.м": NEXT J ELSE FOR J = 1 TO KVAR: OPR$(3, J) = "1000 куб.м": NEXT J

6010 FOR I = 1 TO KP: PRINT VSP$(I): PRINT : NEXT I

6011 COLOR 14, 9, 5

6012 NS = 7: NDN = 10

6015 FOR J = 1 TO KP: ND = 39 + NDN

6020 FOR I = 1 TO KVAR: LOCATE NS, ND: PRINT OPR$(J, I): ND = ND + 10: NEXT I

6025 NS = NS + 2: NEXT J

6026 SP$ = SPACE$(10)

6030 NDN = 10: J = 0

6035 J = J + 1: I = 0: ND = 29 + NDN: NS = (J - 1) * 2 + 8

IF KP = 6 AND J = 5 THEN 6035

IF KP = 5 AND J = 3 THEN 6035

6038 I = I + 1: ND = ND + 10:

6039 LOCATE NS, ND: LINE INPUT OPR$:

IF OPR$ = "/" THEN RUN "RASCHET"

IF OPR$ = "" THEN IF OPR$(J, I) = "НЕ ЗАДАНЫ" THEN PRINT CHR$(7): GOTO 6039 ELSE GOTO 6055

6040 IF OPR$ <> "*" THEN GOTO 6046

IF J = 1 AND I = 1 THEN PRINT CHR$(7); : LOCATE NS, ND: PRINT SP$; : GOTO 6039

6042 LOCATE NS, ND: PRINT SP$

6043 IF I > 1 THEN 6045 ELSE I = KVAR

6044 J = J - 1: NS = (J - 1) * 2 + 8: ND = I * 10 + 39: GOTO 6039

6045 I = I - 1: NS = (J - 1) * 2 + 8: ND = I * 10 + 39: GOTO 6039

6046 IF OPR$ <> "-" THEN 6047:

LOCATE NS, ND: PRINT SP$

IFLAG = 1: RETURN

6047 OPR$(J, I) = OPR$:

LOCATE NS, ND: PRINT SP$: LOCATE NS - 1, ND: PRINT SP$

6048 LOCATE NS - 1, ND: PRINT OPR$(J, I)

6055 IF I < KVAR THEN 6038

6060 IF J < KP THEN 6035

6065 LOCATE 20, 5

6070 PRINT "Нажмите клавишу ВВОД ": LINE INPUT U$

IF U$ = "/" THEN RUN "RASCHET"

6080 IF U$ = "" THEN RETURN

6090 J = KP: I = KVAR: NS = (J - 1) * 2 + 8: ND = I * 10 + 39: GOTO 6039

6105 RETURN

7000 STOP

9999 'SAVE "UWPN1",A

Форма 15

1 CLS : COLOR 15, 9, 5: CLS : PRINT " ВАРИАНТНОЕ ПРОЕКТИРОВАНИЕ "

2 PRINT " комплексно-механизированного процесса разработки котлована"

3 PRINT " экскаваторным комплектом машин"

4 PRINT "": PRINT " I. Исходные данные, принимаемые по заданию"

5 PRINT " -----------------------------------------------"

9 DIM DOP1(3, 2)

10 DIM A$(27), DAN(25), NM(8, 2), MN(8, 2), REZ(4, 3), NZ(8, 2), X$(8, 4, 3), Y(8, 2), Z(8, 2)

11 DIM W(3, 3, 3), PRN(8, 2), TRN(8, 2), TR(3, 2), MP(3, 2), YY(3, 2), KM(3, 2), PR(3, 2)

12 REM продолжительность смены

13 T = 8: PRKOR5 = 0

15 DATA 1,4,6,7

17 FOR I = 1 TO 4: READ UK(I): NEXT I

22 ED$(2) = "100 м3 ": ED$(3) = ED$(2)

26 ED(2) = 100: ED(3) = 100: GOTO 92

27 NS(2) = D: NS(3) = D: RETURN

92 IM$(2) = "Разработка котлована": IM$(3) = "Перевозка грунта "

99 A$(1) = "Об'ем грунта котлована ,куб.м "

100 A$(4) = "Продолжительноть работ ,дни "

102 MK$(1) = " ": MK$(2) = "Марка экскаватора": MK$(3) = "Марка автосамосвала"

104 MK$(4) = " ": MK$(5) = " ": MK$(6) = MK$(2): MK$(7) = " ": MK$(8) = "Марка бульдозера"

110 A$(5) = "Продолжительность работ максимальная ,дни "

120 A$(6) = "Количество рабочих смен в сутки "

130 A$(7) = "Средняя дальность перемещения грунта котлована до отвала, км"

290 A$(19) = "Количество рабочих смен для машинистов "

KEY 8, "/" + CHR$(13)

KEY 9, "*" + CHR$(13)

KEY 10, "-" + CHR$(13)

VSP$(1) = "Объем грунта котлована, куб.м "

VSP$(2) = "Продолжительноть работ, дни "

VSP$(3) = "Количество рабочих смен в сутки "

VSP$(4) = "Средн. дальность перемещен. грунта котлована до отвала,км"

MET$ = " I. Исходные данные,принимаемые по заданию"

MR$ = " -----------------------------------------------"

KP = 4: KVAR = 1

GOSUB 6006

FOR I = 1 TO 4: DAN(UK(I)) = VAL(OPR$(I, 1)): NEXT I

435 PRINT ""

520 TP = DAN(4): L = DAN(7): D = DAN(6): NSM = D: GOSUB 27

526 LOCATE 15, 6

530 DATA Э-302,Э-504,М.-5р.,М.-6р.,8.42,4.79

535 REM

545 REM

550 DATA МАЗ-205,ЯАЗ-210,2.8,5.3,17,17,1.33,2,1.9,1.9,0.5,0.5,1.4,1.4,1.25,1.25

551 REM

555 DATA 35726.82,49443.9,11512800,15575040,214,388,57000,73176,3304080,8583120,214,388

590 CLS : LOCATE 1, 5

MET$ = "II. ИСХОДНЫЕ ДАННЫЕ ,ПРИНИМАЕМЫЕ ПО ЕНиРу "

VSP$(1) = "Марка экскаватора"

VSP$(2) = "Состав рабочих"

VSP$(3) = "Единица измерения"

VSP$(4) = "Норма времени на ед.,чел.-ч."

MR$ = "***Процесс разработки котлована***"

KP = 4: KVAR = 2

GOSUB 6006

FOR I = 1 TO KP: FOR J = 1 TO KVAR: X$(2, I, J) = OPR$(I, J): NEXT J: NEXT I

660 TN$ = "Единица измерения"

708 TX1$ = "Норма времени на ед.,чел.-час."

732 ND = 36: LOCATE NS, ND

734 Y(2, 1) = DAN(1) / 100: Y(3, 1) = Y(2, 1)

735 ND = ND + 41: NS = NS + 2: NS1 = NS1 + 2: VR(2) = Y(2, 1): VR(3) = Y(2, 1): PROB$ = " И ЭКСКАВАТОРОВ"

736 CLS :

MET$ = "III. ИСХОДНЫЕ ДАННЫЕ ,ПРИНИМАЕМЫЕ ПО МЕТОДИЧЕСКИМ УКАЗАНИЯМ"

MR$ = "***Процесс транспортирования грунта***"

VSP$(1) = "Марка автосамосвала"

VSP$(2) = "Состав рабочих"

VSP$(3) = "Объем грунта в кузове автосамосвала, куб.м."

VSP$(4) = "Средняя скорость, км/ч"

VSP$(5) = "Время маневрирования при загрузке, мин."

VSP$(6) = "Время разгрузки с маневрированием, мин."

KP = 6: KVAR = 2

GOSUB 6006

FOR J = 1 TO KP: FOR I = 1 TO KVAR: ZN$(J, I) = OPR$(J, I): NEXT I: NEXT J

MR$ = "***Процесс разработки котлована***"

VSP$(1) = "Вместимость ковша экскаватора, куб.м"

VSP$(2) = "Коэффицент наполнения ковша грунтом"

VSP$(3) = "Коэффицент разрыхления грунта в ковше"

KP = 3: KVAR = 2

GOSUB 6006

FOR J = 1 TO KP: FOR I = 1 TO KVAR: ZN$(6 + J, I) = OPR$(J, I): NEXT I: NEXT J

745 H(1) = 3: H(2) = 8: H(3) = 9: H(4) = 5: H(5) = 6: H(6) = 4: H(7) = 7

760 FOR J = 1 TO 7: NOM = H(J): FOR I = 1 TO 2: Z(J, I) = VAL(ZN$(NOM, I)): NEXT I: NEXT J

770 X$(3, 1, 1) = ZN$(1, 1): X$(3, 1, 2) = ZN$(1, 2)

790 REM РАСЧЕТЫ

800 FOR I = 2 TO 3

805 IF (I = 2) OR (I = 3) THEN KV = 2 ELSE KV = 1

810 FOR J = 1 TO KV: IF I = 3 THEN 840

815 NVR=VAL(X$(I, 4, J)): TRN(I, J) =VR(I) * NVR / T: MN(I, J) =TRN(I, J)

817 PROD(I, J)=INT(MN(I, J) / D + 1): IF DAN(4) = 0 THEN TP = PROD(I, J)

820 PRN(I, J) = ED(I) / NVR * T

825 VRSM(I) = VR(I) * ED(I) / (TP * NS(I))

830 NM(I, J) = VRSM(I) / PRN(I, J)

835 IF I <> 3 THEN 1215

840 REM АВТОСАМОСВАЛЫ

845 TNZ = Z(1, J) * T * 60 / PRN(2, J)

850 TNN = 60 * L/Z(6, J):TNP = TNN: TM(J) = TNN + TNP + Z(4, J) + Z(5, J)

855 TNC = TNZ + TM(J): NM(3, J) = TNC / TNZ

1215 NEXT J: NEXT I

1217 FOR I = 1 TO 2: PRN(3, I) = PRN(2, I) * NM(2, I) / NM(3, I): TRN(3, I) = NM(3, I) * TRN(2, I): MN(3, I) = TRN(3, I): NEXT I

1220 COLOR 15, 9, 5: CLS

LOCATE 25, 1: PRINT "F8-Выход из программы"

LOCATE 5, 5: PRINT " РЕЗУЛЬТАТЫ РАСЧЕТОВ КОМПЛЕКТОВ МАШИН"

1230 PRINT " ПО ТЕХНИЧЕСКИМ ПОКАЗАТЕЛЯМ "

1235 PRINT " ": PRINT "--------------------------------------------------------"

1240 PRINT " номер | Марка / нормативное количество машин / |"

1250 PRINT " варианта |----------------------------------------------"

1260 PRINT " | Экскаваторы | Автосамосвалы | "

1270 PRINT "--------------------------------------------------------|"

1280 FOR I = 1 TO 2

1285 PRINT " "; I;

1286 PRINT " "; : PRINT X$(2, 1, I); STRING$(17 - LEN(X$(2, 1, I)), " ");

1287 TT$ = X$(3, 1, I): PRINT TT$; STRING$(17 - LEN(TT$), " ")

1289 PRINT " ";

1290 REM FOR J=2 TO 3

1295 P$ = " "

1300 DD$ = "##.##": PRINT " "; : PRINT USING DD$; NM(2, I); : PRINT P$; " ("; : PRINT USING DD$; NM(3, I); : PRINT " х "; : PRINT USING DD$; NM(2, I); : PRINT "="; : PRINT USING DD$; NM(3, I) * NM(2, I);

1310 PRINT " ) ": PRINT "--------------------------------------------------------|"

1320 NEXT I

1325 C$ = " После ознакомления нажать клавишу ВВОД "

1330 LOCATE 24, 5: PRINT C$; : INPUT CC$

IF CC$ = "/" THEN RUN "RASCHET"

CLS

1340 TY$(2) = "ЭКСКАВАТОР": TY$(3) = "АВТОСАМОСВАЛ"

1350 TH$ = " "

VSP$(1) = "Стоимость машино-смены, руб."

VSP$(2) = "Инвентарно-расчетная стоимость, руб."

VSP$(3) = "Нормативное годовое количество смен работы "

MET$ = "III. ИСХОДНЫЕ ДАННЫЕ ,ПРИНИМАЕМЫЕ ПО МЕТОДИЧЕСКИМ УКАЗАНИЯМ"

KP = 3

1390 FOR H = 2 TO 3

1392 COLOR 10, 9, 5

MR$ = TY$(H) + " ВАРИАНТЫ"

1395 GOSUB 6006

IF IFLAG = 1 THEN 1220

IFLAG = 0

1418 PRINT ""

1377 FOR PO = 1 TO 3: FOR I = 1 TO KVAR

1378 W(H, PO, I) = VAL(OPR$(PO, I)): PRINT " ": NEXT I: NEXT PO

NEXT H

1419 FOR I = 1 TO KVAR

1389 S(I) = 0: S1(I) = 0: S2(I) = 0

FOR J = 2 TO 3

1388 CT = W(J, 1, I): CC = W(J, 2, I): MG = W(J, 3, I)

KH = 1: IF J = 3 THEN KH = NM(J, I)

1420 S(I) = S(I) + KH: S1(I) = S1(I) + CC * MN(J, I) / MG

1425 S2(I) = S2(I) + CT * KH

1430 NEXT J

1440 T(I) = S(I) * 100 / PRN(2, I): S2(I) = S2(I) / PRN(2, I) * 108

1445 REZ(1, I) = T(I): REZ(3, I) = S2(I): REZ(4, I) = S1(I) * 112 / (VR(2) * ED(2)) * .15 + S2(I)

1450 NEXT I

1455 CLS

LOCATE 25, 1: PRINT "F8-Выход из программы"

1480 PRINT " РЕЗУЛЬТАТЫ РАСЧЕТОВ"

1490 PRINT " процессов разработки котлована "

1500 PRINT " "

1510 PRINT "------------------------------------------------------------- "

1520 PRINT " NN Наименование | Варианты |"

1530 PRINT " п/п показателей |----------------------------- "

1540 PRINT " | 1 | 2 | "

1550 PRINT "------------------------------------------------------------- "

1560 H$(1) = " 1 Трудоемкость разработки "

1570 G$(1) = " 100 куб.м ,ч.-см. "

1580 H$(2) = " 2 Машиноемкость ведущего"

1590 G$(2) = " процесса,м.-см. "

1600 H$(3) = " 3 Себестоимость разработки"

1610 G$(3) = " 100 куб.м грунта,руб. "

1620 H$(4) = " 4 Приведенные затраты на "

1630 G$(4) = G$(3)

1632 FOR I = 1 TO 2: REZ(2, I) = MN(2, I): NEXT I

1640 FOR L = 1 TO 4

1650 PRINT H$(L): PRINT G$(L);

1660 FOR I = 1 TO 2

1670 PRINT USING "#########.##"; REZ(L, I);

1680 NEXT I: PRINT " "

1690 NEXT L

1694 PRINT "-------------------------------------------------------------- "

1695 VV$ = " ": VG$ = "**************"

1700 COLOR 10, 9, 5: PRINT VV$; " Укажите номер выбранного варианта "; : INPUT NV$

IF NV$ = "/" THEN RUN "RASCHET"

IF NV$ = "1" OR NV$ = "2" THEN 1705 ELSE PRINT " Ошибка"; : GOTO 1700

1705 NV = VAL(NV$)

CLS : COLOR 15, 9, 5

MET$ = "IV. Исходные данные принятого уровня производительности труда , %% :"

MR$ = " -------------------------------------------------------------------------"

VSP$(1) = "*** Экскаватор ***"

VSP$(2) = "*** Автосамосвал ***"

KP = 2: KVAR = 1

GOSUB 6006

FOR J = 1 TO KP: UR(J + 1) = VAL(OPR$(J, 1)): NEXT J

IF IFLAG = 1 THEN 1455

CLS

LOCATE 25, 1: PRINT "F8-Выход из программы"

1718 S$ = " "

LOCATE 1, 1

1719 PRINT "": PRINT ""

1720 PRINT " Допустимо увеличение скорости самосвала ?": PRINT S$ + "Если да-введите цифру 1 "

1721 PRINT S$ + "Если нет-введите цифру 2": PRINT S$ + "Цифра ";

1722 INPUT RZR$

IF RZR$ = "/" THEN RUN "RASCHET"

1800 RZR = VAL(RZR$): IF DAN(4) = 0 THEN 2591

1805 REM Задана продолжительность работ

1807 VO(1) = DAN(1): VC = DAN(1)

1810 FOR J = 2 TO 2

1815 KOLS(J) = 1

1817 NZ(J, NV) = 1

1818 KF(1) = 1: KE = 1: IF NM(J, NV) < 1 THEN 2591

1820 PP$ = " Есть возможность доставки дополнительного ('дробного') экскаватора ?"

1821 PRINT PP$: PRINT " Если да -введите цифру 1 "

1822 PRINT " Если нет - цифру 0": PRINT SPACE$(34); : INPUT PRC$

IF PRC$ = "/" THEN RUN "RASCHET"

PRC = VAL(PRC$): PRC1 = 1

1825 GOTO 2000

1855 IF PRC = 1 THEN 2000

1860 NP = NM(J, NV) * 100 / UR(J)

1900 KM(J, 1) = INT(NP) + 1

1910 YY(J, 1) = NM(J, NV) / KM(J, 1) * 100

1960 MP(J, 1) = TP * NS(J) * KM(J, 1): TR(J, 1) = NZ(J, NV) * MP(J, 1): PR(J, 1) = VRSM(J) / KM(J, 1)

1970 GOTO 2590

2000 REM нормат. кол. экскаваторов >1 и допустима работа с дробным экскав.

2005 KE = 2: NP = NM(2, NV) / UR(2) * 100: NPC = INT(NP): NPD = NP - NPC: MPC = D * TP * NPC: MPD = D * TP * NPD

2006 IF PRC = 0 THEN 2050

2010 VC = DAN(1) * NPC / NP: VD = DAN(1) - VC: NVR = VAL(X$(2, 3, NV)): VO(1) = VC: VO(2) = VD

2015 NVR = VAL(X$(2, 4, NV)): MNC = VC * NVR / 100 / T: MND = VD * NVR / 100 / T: NMC = VC / PRN(2, NV) / (D * TP): NMD = VC / PRN(2, NV) / (D * TP)

2020 AA = INT(MPD): RR = MPD - AA: IF RR < .5 THEN MPD = AA + .5 ELSE MPD = AA + 1

2030 YY(2, 2) = MND / MPD * 100: YY(2, 1) = UR(2): PR(2, 1) = VC / MPC: PR(2, 2) = VD / MPD

2035 MP(2, 1) = MPC: MP(2, 2) = MPD: KM(2, 1) = NPC: KM(2, 2) = 1

2037 TR(2, 1) = MP(2, 1): TR(2, 2) = MP(2, 2): KF(1) = VC / DAN(1): KF(2) = VD / DAN(1)

2040 GOTO 2594

2050 KE = 1: MP = MPC + MPD: NP = NPC: MP1 = MP / NP:

2055 MP1C = INT(MP1): IF (MP1 - MP1C) <= .5 THEN MP1 = MP1C + .5 ELSE MP1 = MP1C + 1

2056 MP(2, 1) = MP1 * NP: YY(2, 1) = MN(2, NV) / MP(2, 1) * 100: KM(2, 1) = NP: TR(2, 1) = MP(2, 1)

2058 PR(2, 1) = DAN(1) / MP(2, 1) / NP: GOTO 2594

2590 NEXT J: GOTO 2594

2591 KM(2, 1) = 1: MP(2, 1) = MN(2, NV) * 100 / UR(2): AA = INT(MP(2, 1)): IF AA >= .5 THEN MP(2, 1) = AA + 1 ELSE MP(2, 1) = AA

2592 TR(2, 1) = MP(2, 1): YY(2, 1) = MN(2, NV) / MP(2, 1) * 100: TP = MP(2, 1) / NSM: PR(2, 1) = VR(2) * 100 / MP(2, 1)

2593 VNOV = DAN(1) / MP(2, 1): NMKOR(2) = VNOV / PRN(2, NV): NMKOR(3) = NMKOR(2) * NM(3, NV): PRKOR5 = 1

2594 REM Автосамосвал - принятые хар-ки

2595 QQ = Z(7, NV) * Z(2, NV) / Z(3, NV): NKP = Z(1, NV) / QQ: NKP1 = INT(NKP): RR = NKP - NKP1

2596 IF RR < .25 THEN NKP = NKP1 ELSE IF RR < .5 THEN NKP = NKP1 + .5 ELSE NKP = NKP1 + 1

2597 FOR NO = 1 TO KE: TPZ = NKP * QQ * T * 60 / PR(2, NO): NP = 1 + TM(NV) / TPZ: NN1 = INT(NP): GOSUB 7590

2599 NEXT NO

3000 F1$ = "#####.##": F2$ = "####.##": F3$ = "###.##"

3015 CLS

LOCATE 25, 1: PRINT "F8-Выход из программы"

LOCATE 3, 1

PRINT ""

PRINT " "

PRINT " Т Е Х Н О Л О Г И Ч Е С К И Е Р А С Ч Е Т Ы"

PRINT " "

PRINT " Начало формы N 7"

PRINT "| ---------------------------------------------------------------------------"

PRINT "| п/п| процесса |измерения| работ |--------|--------|--------|-------------"

PRINT "| | | |измер.) |чел-см. |маш.-см.|ность, |------|-------"

PRINT "|----|----------|---------|---------|--------|--------|--------|------|-------"

PRINT "| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9"

PRINT "|-----------------------------------------------------------------------------"

3025 FOR J = 2 TO 3

3027 E1$ = "|"

3028 E2$ = "|"

3030 PRINT USING "##"; J; : PRINT " "; MID$(IM$(J), 1, 10); E1$; ED$(J); E2$; : PRINT USING F1$; VR(J);

3040 PRINT " |"; : PRINT USING F2$; MN(J, NV); : PRINT " |";

3050 PRINT USING F2$; MN(J, NV); : PRINT " |";

3060 PRINT USING F2$; PRN(J, NV) / 100; : PRINT " |";

3069 IF J = 2 THEN KH = 1 ELSE KH = NM(2, NV)

3070 PRINT USING F3$; NM(J, NV) * KH; : PRINT " |";

3081 PRINT X$(J, 1, NV)

3085 LL = LEN(IM$(J)) - 10: PRINT " "; MID$(IM$(J), 11, LL)

3090 NEXT J

3100 PRINT "------------------------------------------------------------------------------"

3110 PRINT "": PRINT " Для продолжения нажать клавишу ВВОД "; : INPUT UU$

IF UU$ = "/" THEN RUN "RASCHET"

3115 CLS

LOCATE 25, 1: PRINT "F8-Выход из программы F10- Возврат к началу таблицы"

LOCATE 3, 1

PRINT " Т Е Х Н О Л О Г И Ч Е С К И Е Р А С Ч Е Т Ы"

PRINT " "

PRINT " Продолжение формы 7"

PRINT "|-----------------------------------------------------------------------------"

PRINT "|NN | П р и н я т ы е х а р а к т е р и с т и к и п р о ц е с с а"

PRINT "|п/п|------------------------------------------------------------------------"

PRINT "| |уро- |кол.|сос-|число|число| кол.|продол|продол|трудо-||машино|произ-|поток"

PRINT "| |пр-ти|шин |зве-|чих в|чих в|смен |ность |ность |сть, |сть, | |в"

PRINT "| | | | | | |сутки| | | | | ед./ |"

PRINT "| | % | | |чел. | чел.| |дни |смены |ч.-см |м.-см.|м.-см.|ед/см"

PRINT "|---|-----|----|----|-----|-----|-----|------|------|------|------|------|-----"

PRINT "| 1 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21"

PRINT "|-------------------------------------------------------------------------------"

3120 IF KE = 1 THEN SM$(1) = " " ELSE SM$(1) = "' ": SM$(2) = "''"

3130 NS = DAN(6): T$ = " "

3140 F5$ = "###.#": F6$ = "###.##": B$(3) = "Вод.": B$(2) = LEFT$(X$(2, 2, NV), 5)

3142 F51$ = "###.#"

3143 FOR J = 2 TO 3

3145 L = LEN(B$(J)): IF L < 5 THEN B$(J) = STRING$(5 - L, " ") + B$(J)

3146 NEXT J

3147 FOR NO = 1 TO KE

3150 FOR J = 2 TO 3: PRINT USING "##"; J; : PRINT SM$(NO) + T$; : PRINT USING F51$; YY(J, NO); : PRINT T$; : PRINT USING "#.#"; KM(J, NO); : PRINT T$; : PRINT B$(J); T$;

3155 PP = PR(J, NO) / 100

3160 PRINT USING "##.##"; KM(J, NO); : PRINT T$; : PRINT USING "##.##"; KM(J, NO) * NS; : PRINT T$;

3165 POT = PR(J, NO) * KM(J, NO) / 100: TTT = MP(J, NO) / KM(J, NO)

3166 DOP1(J, NO) = TTT

3170 PRINT USING F5$; NS(J); : PRINT T$; : PRINT USING F6$; TTT / NS; : PRINT T$; : PRINT USING F6$; TTT; : PRINT T$; : PRINT USING F6$; TR(J, NO); : PRINT T$; : PRINT USING F6$; MP(J, NO); : PRINT T$; : PRINT USING F6$; PP; : PRINT T$;

3175 PRINT USING "###.##"; POT

3180 NEXT J: PRINT "": NEXT NO

3190 PRINT "__________________________________________________________"

PRINT " Для продолжения нажать клавишу ВВОД "

3192 INPUT JJJ$: IF JJJ$ = "/" THEN RUN "RASCHET" ELSE IF JJJ$ = "-" THEN 3015

IF PRC1 = 1 THEN 7700

3193 IF PRKOR5 = 1 THEN 8700

GOTO 3274

7700 CLS

LOCATE 25, 1: PRINT "F8-Выход из программы F10-Возврат к предыдущей таблице"

KF(1) = VC / DAN(1): KF(2) = VD / DAN(1)

7701 LOCATE 3, 1

PRINT " Т Е Х Н О Л О Г И Ч Е С К И Е Р А С Ч Е Т Ы"

PRINT " "

PRINT " Конец формы 7"

8000 F1$ = "#####.##": F2$ = "####.##": F3$ = "###.##"

PRINT "| ---------------------------------------------------------------------------"

PRINT "| п/п| процесса |измерения| работ |--------|--------|--------|---------"

PRINT "| | | |измер.) |чел-см. |маш.-см.|ность, |------|-------"

PRINT "|----|--------|-------|---------|--------|--------|--------|------|-------"

PRINT "| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9"

PRINT "|---------------------------------------------------------------------------"

8025 FOR NO = 1 TO KE: BB = KF(NO): FOR J = 2 TO 3

8027 E1$ = "|"

8028 E2$ = "|"

8030 PRINT USING "##"; J; : PRINT SM$(NO); : PRINT " "; MID$(IM$(J), 1, 10); E1$; ED$(J); E2$; : PRINT USING F1$; VR(J) * BB;

8040 PRINT " |"; : PRINT USING F2$; MN(J, NV) * BB; : PRINT " |";

8050 PRINT USING F2$; MN(J, NV) * BB; : PRINT " |";

8060 PRINT USING F2$; PRN(J, NV) / 100; : PRINT " |";

8062 NMM = DAN(1) * BB / DOP1(J, NO) / PRN(J, NV)

8069 REM IF J=2 THEN KH=1 ELSE KH=NM(2,NV)

8070 PRINT USING F3$; NMM; : PRINT " |";

8081 PRINT X$(J, 1, NV)

8085 LL = LEN(IM$(J)) - 10: PRINT " "; MID$(IM$(J), 11, LL)

8090 NEXT J: PRINT "": NEXT NO

8100 PRINT "------------------------------------------------------------------------------"

8110 PRINT " Для продолжения нажать клавишу ВВОД "

INPUT UU$: IF UU$ = "/" THEN RUN "RASCHET" ELSE IF UU$ = "-" THEN 3115 ELSE GOTO 3274

8700 F1$ = "#####.##": F2$ = "####.##": F3$ = "###.##"

CLS

LOCATE 25, 1: PRINT "F8-Выход из программы F10-Возврат к предыдущей таблице"

LOCATE 3, 1

PRINT " Т Е Х Н О Л О Г И Ч Е С К И Е Р А С Ч Е Т Ы"

PRINT " "

PRINT " Конец формы 7"

PRINT "| ---------------------------------------------------------------------------"

PRINT "| п/п| процесса |измерения| работ |--------|--------|--------|-----------"

PRINT "| | | |измер.) |чел-см. |маш.-см.|ность, |------|-------"

PRINT "|----|------|---------|---------|--------|--------|--------|------|-------"

PRINT "| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9"

PRINT "|--------------------------------------------------------------------------"

9025 FOR J = 2 TO 3

9027 E1$ = "|"

9028 E2$ = "|"

9030 PRINT USING "##"; J; : PRINT SM$(NO); : PRINT " "; MID$(IM$(J), 1, 10); " "; E1$; ED$(J); E2$; : PRINT USING F1$; VR(J) * BB;

9040 PRINT " |"; : PRINT USING F2$; MN(J, NV) * BB; : PRINT " |";

9050 PRINT USING F2$; MN(J, NV) * BB; : PRINT " |";

9060 PRINT USING F2$; PRN(J, NV) / 100; : PRINT " |";

9062 NMM = NMKOR(J)

9069 REM IF J=2 THEN KH=1 ELSE KH=NM(2,NV)

9070 PRINT USING F3$; NMM; : PRINT " |";

9081 PRINT X$(J, 1, NV)

9085 LL = LEN(IM$(J)) - 10: PRINT " "; MID$(IM$(J), 11, LL)

9090 NEXT J

9100 PRINT "-----------------------------------------------------------------------------"

9110 PRINT " Для продолжения нажать клавишу ВВОД "

INPUT JJ$: IF JJ$ = "-" THEN 3115 ELSE IF JJ$ = "/" THEN RUN "RASCHET"

3274 PRINT " КОНЕЦ РАБОТЫ"

LOCATE 23, 1: PRINT " Нажмите любую клавишу"; : LINE INPUT UU$

3276 RUN "RASCHET"

6006 CLS

KEY OFF

LOCATE 25, 1

COLOR 7, 1

PRINT "F8-Выход из программы F9-Возврат к предыдущему значению"

IF KP = 3 AND VSP$(1) = "Стоимость машино-смены, руб." THEN LOCATE 25, 1: PRINT "F8-Выход из прогр. F9-Возврат к пред.значению F10- Возврат к пред.таблице"

IF KP = 2 THEN LOCATE 25, 1: PRINT "F8-Выход из прогр. F9-Возврат к пред.значению F10- Возврат к пред.таблице"

IFLAG = 0

LOCATE 1, 5

PRINT MET$

COLOR 10, 9, 5: PRINT " "

PRINT MR$

6007 IF KVAR = 2 THEN 6008

FOR I = 1 TO 3: PRINT " ": NEXT I: GOTO 6009

6008 PRINT " ---------------------"

PRINT " : 1 : 2 :"

PRINT " :---------:----------"

6009 COLOR 15, 9, 5

FOR I = 1 TO KP: FOR J = 1 TO KVAR: OPR$(I, J) = "НЕ ЗАДАНЫ": NEXT J: NEXT I

IF KP = 4 AND KVAR = 2 THEN OPR$(3, 1) = "100 куб.м.": OPR$(3, 2) = "100 куб.м."

IF KP = 6 THEN OPR$(2, 1) = "Водитель ": OPR$(2, 2) = "Водитель ":

6010 FOR I = 1 TO KP: PRINT VSP$(I): PRINT : NEXT I

6011 COLOR 14, 9, 5

1 / 51 2 3 4 5 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
01.07.2025115.2 Кб0философияяяяяяяя..Общество.doc
#
01.07.2025116.22 Кб0Финансовое моделирование в фирме.DOC
#
01.07.202593.11 Кб0финансовое право.docx
#
23.11.2019170 Кб6ФОЕ - Лаба1 - Контрольные ответы.docx
#
01.07.2025797.18 Кб0Форма1-7.DOC
#
01.07.2025288.77 Кб0Форма14-16 и литер и содерж.DOC
#
01.03.2025136.09 Кб1Формой собственности называют ее вид.docx
#
13.04.201512.76 Кб10формулы.docx
#
13.04.201511.2 Mб43ФСА.pdf
#
01.05.2025890.46 Кб0Фундаментальная пояснитльная Вадоса.docx
#
01.07.2025220.89 Кб0Фундаменты.docx