ЭКОЛОГИЧЕСКИЕ ПРОБЛЕМЫ ОТВАЛОВ ЛИТЕЙНОГО ПРОИЗВОДСТВА
Литейное производство является основной заготовительной базой машиностроения. Около 40% всех заготовок, используемых в машиностроении, получают литьем. Однако, литейное производство является одним из наиболее экологически неблагоприятных.
В литейном производстве применяется более 100 технологических процессов, более 40 видов связующих , более 200 противопригарных покрытий.
Это привело к тому, что в воздухе рабочей зоны встречается до 50 вредных веществ, регламентированных санитарными нормами. При производстве 1т чугунных отливок выделяется:
10..30 кг - пыли;
200..300 кг - оксида углерода;
1..2 кг - оксида азота и серы;
0.5..1.5 г - фенола, формальдегида, цианидов и др.;
3 м3 - загрязненных сточных вод может поступить в водный бассейн;
0.7..1.2 т - отработанных смесей в отвал [10].
Основную массу отходов литейного производства составляют отработанные формовочные и стержневые смеси и шлак. Утилизация этих отходов литейного производства наиболее актуальна, т.к. несколько сот гектаров поверхности земли занимают вывозимые ежегодно в отвал смеси [10], в Одесской области.
В целях снижения загрязнения почв различными промышленными отходами в практике охраны земельных ресурсов предусматриваются следующие мероприятия:
утилизация;
обезвреживание методом сжигания;
захоронение на специальных полигонах;
организация усовершенствованных свалок [11].
Выбор метода обезвреживания и утилизации отходов зависит от их химического состава и степени влияния на окружающую среду.
Так, отходы металлообрабатывающей, металлургической, угольной промышленности, содержат частицы песка, породы и механические примеси. Поэтому отвалы изменяют структуру, физико-химические свойства и механический состав почв.
Указанные отходы используют при строительстве дорог, засыпке котлованов и отработанных карьеров после обезвоживания. В тоже время отходы машиностроительных заводов и химических предприятий, содержащие соли тяжелых металлов, цианиды, токсичные органические и неорганические соединения, утилизации не подлежат. Эти виды отходов собирают в шламонакопители, после чего их засыпают, утрамбовывают и озеленяют место захоронения [12].
Фенол - наиболее опасное токсичное соединение, находящееся в формовочных и стержневых смесях. В тоже время исследования показывают, что основная часть фенолсодержащих смесей, прошедших заливку, практически не содержит фенола и не представляет собой опасности для окружающей среды. Кроме того, фенол, несмотря на его высокую токсичность, быстро разлагается в почве [13]. Спектральный анализ отработанных смесей на других видах связующего показал отсутствие особоопасных элементов: Hg, Pb, As, F и тяжелых металлов [13]. Т.е., как показывают расчеты данных исследований, отработанные формовочные смеси не представляют собой опасности для окружающей среды и не требуют каких-либо специальных мероприятий по их захоронению [13]. Негативным фактором является само существование отвалов, которые создают неприглядный пейзаж, нарушают ландшафт. Кроме того, пыль, уносимая с отвалов ветром, загрязняет окружающую среду [14]. Однако, нельзя сказать, что проблема отвалов не решается. В литейном производстве существует целый ряд технологического оборудования, позволяющего проводить регенерацию формовочных песков и использовать их в производственном цикле неоднократно. Существующие методы регенерации традиционно делятся на механические, пневматические, термические, гидравлические и комбинированные.
По данным Международной комиссии по регенерации песков, в 1980 г. из 70 опрошенных литейных предприятий Западной Европы и Японии 45 использовали установки механической регенерации [15].
В тоже время, литейные отработанные смеси - хорошее сырье для стройматериалов: кирпича, силикатного бетона, и изделий из него, строительных растворов, асфальтобетона для дорожных покрытий, для отсыпки полотна железных дорог [10].
Исследования Свердловских ученых (Россия) показали, что отходы литейного производства обладают уникальными свойствами: ими можно обрабатывать осадки сточных вод (для этого пригодны существующие отвалы литейного производства); защищать стальные конструкции от почвенной коррозии [16]. Специалисты Чебоксарского завода промышленных тракторов (Россия) использовали пылевидные отходы регенерации в качестве добавки (до 10%) при производстве силикатного кирпича [10].
Многие литейные отвалы используются как вторичное сырье в самом литейном производстве. Так, например, кислый шлак сталелитейного производства и феррохромовый шлак применяются в технологии шликерного формообразования при литье по выплавляемым моделям [17].
В ряде случаев отходы машиностроительных и металлургических производств содержат значительное количество химических соединений, которые могут представлять ценность как сырье и использоваться в виде дополнения к шихте [18].
Рассмотренные вопросы улучшения экологической обстановки при производстве литых деталей позволяет сделать вывод о том, что в литейном производстве можно комплексно решать весьма сложные экологические проблемы.
ВЫВОДЫ
Результатом данной работы явилась разработанная технология получения тонкостенных ребристых радиаторов в песчано-глинистые сырые формы, которая имеет ряд особенностей:
выбор разъема модели и формы по диагонали;
применение при формовке пенополистироловых вкладышей, выжигаемых при заливке;
вентилирование полости формы через систему выпоров и газоотводные наколы для каждого ребра;
применение протяжного шаблона при извлечении модели из формы;
совмещение функций выпора и прибыли.
Эти технологические особенности обеспечивают улучшение газового режима формы, предотвращают засоры, а также полную проливаемость отливки. Применение разработанной технологии практически полностью исключило брак отливок по недоливам, газовым, усадочным и песчаным раковинам.
Разработанная математическая модель скорости затвердевания отливки позволяет уже на стадии проектирования по химическому составу, механическим свойствам, конфигурации, судить о возможной структуре будущей отливки. Что позволяет конструктору-технологу своевременно вносить изменения и коррективы в разрабатываемую технологию.
Так в результате просчета математической модели получено, что структурой отливки теплообменник является феррит+графит с незначительными включениями перлита. Это в последствии и подтвердилось на практике.
Для создания более плотной перлитной структуры необходимо изменить скорость кристаллизации или химический состав металла. Изменение химического состава металла по технологическим причинам в данном случае более приемлемо. При изменении химического состава для создания более плотной структуры применялась сурьма, т.к. присадка данного компонента в металл (на дно ковша) не представляет собой никаких трудностей и возможна в любом литейном цехе.
В результате проведенных экспериментов выявлено, что незначительная присадка сурьмы изменяет его структуру. Преобладающей структурой становится перлит+графит, причем графитовые включения измельчаются, более равномерно распределяются по сечению отливки и стремятся к шаровидной форме. Все это повышает герметичность получаемого чугуна, а следовательно и отливки.
По результатам экспериментов выявлена оптимальная в процентном соотношении присадка сурьмы обеспечивающая герметичность данной отливки и не ухудшающая ее механических свойств.
При получении отливок работающих при повышенном давлении для обеспечения их герметичности необходимо произвести присадку сурьмы на дно ковша 0.1 %-0.4 % от массы жидкого металла.
Рис.10-1.
Годная отливка
По разработанной технологии отлита опытная партия радиаторов (рис.10-1) с присадкой сурьмы 0.16 %. Полученные радиаторы успешно выдержали заводские испытания давлением 11 кгс/см2, в отличии от отливок полученных без присадок сурьмы, которые давали “течь” при 4-5 кгс/см2.
Исходя из результатов экспериментов и производственных испытаний можно сделать вывод, что при литье тонкостенных чугунных отливок, работающих при повышенных давлениях, можно использовать серый чугун с присадкой сурьмы взамен высокопрочных чугунов, что значительно облегчает процесс производства.
ЛИТЕРАТУРА
Волков В.И., Устинов М.А. Отливка чугунных радиаторов. -М.: Гос.Издательство строительной литературы, 1946. -131 с.
Безмаслянный крепитель "БК" в радиаторном и котельном производстве. -М.: Промстройиздат, 1954, -10 с.
Новый безмаслянный крепитель КО. -Таганрог, 1965. -7 с.
Методические указания по выполнению раздела "Охрана труда" в дипломных проектах, Одесса 1986, А.К.Машков.
Методические указания и задания к самостоятельной работе студентов по курсу "Охрана труда" для студентов специальности 12.03 А.К.Машков, ОПИ 1989.
В.Н.Иванов. Словарь справочник по литейному производству
Справочник Средства защиты в машиностроении, С.В.Белов, А.Ф.Козьяков, О.Ф.Партолин и др., 1989, -М: Машиностроение -368 с.
Получение герметичных чугунных отливок гидроаппаратуры с литыми каналами. Обзор. -М., 1973. -51 с.
Исследование герметичности чугунных отливок для компрессоров холодильных машин. Отчет ОПИ. -Одесса, 1968.
Грачев В.А., Сосновский Е.Д. Улучшение условий труда и экологии в литейном производстве // Литейное производство, 3, 1990. -с. 29
Охрана окружающей среды / С.В.Белов, Ф.А.Козьяков и др. -М: Всшая школа, 1983. -264с.
Справочная книга по охране труда в машиностроении / Г.В.Бектобеков и др. -Л: Машиностроение, 1989. -541с.
Токсичные вещества в твердых отходах Литейного производства А.А.Ляпкин, Н.С.Чуракова, Т.В.Баталова // Литейное производство, 10, 1984. -с. 35-36.
О принципах захоронения отходов литейного производства. А.А.Ляпкин, М.В.Пасынкова // Литейное производство, 5, 1987. -с. 9-11.
Регенерация песка из отработанных смесей. А.А.Шпектор, В.С.Палестин, В.Н.Скорняков // Литейное производство, 5, 1987. -с. 26-30.
Проблемы экологии и пути их решения в литейном производстве. А.И.Корзон, А.А.Ляпкин, Р.И.Оглоблина // Литейное производство, 3, 1988. -с. 2-3.
Об экологичности шликерной технологии Л.А.Иванова, Л.В.Прокопович, И.В.Прокопович /Сб. "Пути повышения качества и экономичности литейных процессов". -Одесса: Совпин, 1994. -с. 37-38.
Техника защиты окружающей среды: Учебное пособие для вузов / Н.С.Торочешников, А.И.Родионов и др. -М.: Химия, 1981. -368 с.
Исследования герметичности литейных сплавов. /Сб. "Труды первого совещания по литейным свойствам сплавов". -Киев: Наукова думка, 1968.
Maschine Design, США, 1970, Т -29.
Влияние углерода и кремния на пористость чугунных цилиндровых втулок для дизелей. // Вестник машиностроения, 1969, 10.
Свойства элементов. Справочник /Под редакцией М.Е.Дрица- М.: Металлургия, 1985. -672 с.
Колесниченко А.Г., Дубинин А.В. О герметичности серых чугунов // Литейное производство, 1979, 12 -с. 18-20.
Исследование процесса получения здоровых корпусных станочных отливок и отливок гидравлических систем. -Очет ОПИ, 1962. -150 с.
Доценко П.В. Исследование некоторых свойств серых чугунов, легированных сурьмой. - Диссертация ктн. -Одесса; ОПИ, 1967. -160 с.
ГОСТ 24812-81. Ипытание изделий на воздействие механических факторов.
В.А.Рыбкин Ручное изготовление литейныХ форм. - М.: Высшая школа, 1986. -199 с.
Справочник молодого литейщика. - М.: Высшая школа, 1991. -319 с. Абрамов Г.Г., Панченко Б.С.
Могилев В.К., Лев О.И. Справочник литейщика. - М.: Машиностроение, 1988. -272 с.
Куманин И.Б. Вопросы теории литейных процессов. - М.: Машиностроение, 1976. -216с.
Методические указания к лабораторным работам по дисциплине "Литейное материаловедение". Раздел "Определение твердости металлов и сплавов" для студентов специальности 12.03. /Сост. В.Г.Борщ, В.И.Саитов. - Одесса: ОПИ, 1991. -20 с.
Методические указания к лабораторным работам по дисциплине "Литейное материаловедение". Раздел "Изучение макро- и микроструктуры металлов и сплавов". для студентов специальности 12.03. /Сост. В.Г.Борщ, П.В.Доценко. - Одесса: ОПИ, 1990. -32 с.
Методические указания к выполнению лабораторным работам по дисциплине "Теория формирования отливок". для студентовспециальности 12.03. /Сост. Л.А.Иванова, Ю.Г.Баринов. - Одесса: ОПИ, 1991. -28 с.
Баландин Г.Ф. Основы формирования отливки. Ч.1. Тепловые основы теории. Затвердевание и охлаждение отливки. -М.: Машиностроение, 1976 -328 с.
Комаров О.С. Термокинетические основы кристаллизации чугуна. - Мн.: Наука и техника, 1982. -262 с.
Сычев В.В. Дифференциальные уравнения термодинамики. -М.: Высшая школа, 1991. -224 с.
Серебро В.С. Основы теории газовых процессов в литейной форме. -М.: Машиностроение, 1991. -208 с.
Фельдман О.А. Microsoft Word для Windows 6.0. -М.: Евроиндекс ЛТД, 1994. - 176 с.
ПРИЛОЖЕНИЕ
Программа для расчета припусков на механическую обработку (язык программирования GI):
Главная программа:
CALL pri }c
FR "M" mane$ }
EX k% "GR.EXE" "SLD.KX" 1 1 33 78 "a" }
rmax=309
rmin=19
PR "~c14m1" }
PR "~c15" }
MV 23 40 "" i%=3
"Наибольший размер детали " rmax
"Наименьший размер детали " rmin
"Продолжить работу " }
PR "~c15" }
MV 26 45 "Тип сплава" i%=1
"Черный нетермообрабатываемый" m1
"Черный термообрабатываемый" m2
"Цветной нетермообрабатываемый" m3
"Цветной термообрабатываемый" } GO m4
m1:
ts=1
GO m5
m2:
ts=2
GO m5
m3:
ts=3
GO m5
m4:
ts=4
m5:
CALL pri }c
DE 1 1 2 0 15
"Диапазон класса размерной"
"точности отливки выбирается"
"из таблицы 9 ГОСТ 26645-85" }
k%=0
GBD p% "t9_"+mane$ k% "ngab>=" rmax }
IF p% GO en }i
CALL case }c
PRINT "~x20y5X59Y9f1w" "~v_Класс размерной точности отливки:_bl7p34",krt$ }
DE 1 1 3 0 15
"Допуск смещения формы отливки"
"по плоскости разъема устанавливается"
"по таблице 1 ГОСТ 26645-85 на уровне"
"класса размерной точности отливки"
"Допуск смещения, вызваный перекосом"
"стержня устанавливается в диаметральном"
"выражении по таблице 1 ГОСТ 26645-85 на"
"1-2 класса точнее" }
DE 9 40 2 0 15
"Класс размерной точности"
"отливки выбирается из диапазона"
"в зависимости от группы сложности"
"(для данной отливки - 2 группа)" }
krto%=9
MV 14 18 "Тип сплава" i%=2
"Класс размерной точности отливки: " krto%
"Продолжить работу " }
DE 31 29 4 0 14
"Нажмите любую клавишу..." }
KEY s$
k%=0
GBD p% "t1" "nomr<=" nr }
CALL kkrtt }c
DE "Припуск на размер"
nomr1
"состовляет"
prips }
k%=0
GBD p% "t1" "nr>=" nomr2 }
CALL kkrtt }c
DE "Припуск на размер"
nomr1
"состовляет"
prips }
k%=0
GBD p% "t1" "nr>=" nomr2 }
CALL kkrtt }c
DE "Припуск на размер"
nomr1
"состовляет"
prips }
IF p% <> 0 GO en }i
ktnr$=krto%
nomr=19
MV 19 20 "" i%=3
"Номинальный размер " nomr
"Класс точности данного размера " ktnr$
"Продолжить работу " }
CALL rr }c
nomr1=nomr
dop1=dop
nomr=60
ktnr$=8
MV 19 20 "" i%=3
"Номинальный размер " nomr
"Класс точности данного размера " ktnr$
"Продолжить работу " }
CALL rr }c
nomr2=nomr
dop2=dop
nomr=266
ktnr$=11т
MV 19 20 "" i%=3
"Номинальный размер " nomr
"Класс точности данного размера " ktnr$
"Продолжить работу " }
CALL rr }c
nomr3=nomr
dop3=dop
DE 31 29 4 0 14
"Нажмите любую клавишу..." }
KEY s$
; Пункт 2.2;
d=rmin/rmax
PRINT "~i" }
DE 1 1 1 0 15
"Отношение максимального"
"и минимального размера"
"отливки"
""
d
"" }
DE 6 20 2 0 15
"Диапазон степени коробления"
"отливки определяется по"
"таблице 10 ГОСТ 26645-85" }
n%=0
GBD p% "t10" n% "div<=" d }
IF p% THEN GO en }i
FR "M" sk1$ sk2$ }
IF ts=1 THEN sk$=sk1$ }i
ELSE IF ts=2 THEN sk$=sk2$ }i
ELSE IF ts=3 THEN sk$=sk1$ }i
ELSE IF ts=4 THEN sk$=sk2$ }i
}e }e }e }e
DE 10 34 1 0 15
"Диапазон степени"
"коробления отливки"
""
sk$
"" }
sko=5
MV 18 31 "" i%=2
"Степень коробления элементов отливки " sko
"Продолжить работу " }
;Пункт 2.3;
DE 19 48 2 0 15
"Допуск формы и расположения"
"поверхностей отливки"
"с учетом степени коробления"
"определяется по таблице 2"
"ГОСТ 26645-85" }
nomr=nomr1
CALL rr1 }
dopc1=dop
MV 18 31 "" i%=2
"Степень коробления элементов отливки " sko
"Продолжить работу " }
nomr=nomr2
CALL rr1 }
dopc2=dop
MV 18 31 "" i%=2
"Степень коробления элементов отливки " sko
"Продолжить работу " }
nomr=nomr3
CALL rr1 }
dopc3=dop
DE 31 29 4 0 14
"Нажмите любую клавишу..." }
KEY s$
PRINT "~i" }
DE 1 1 5 0 15
"Общий допуск необходимо определить"
"по таблице 16 ГОСТ 26645-85" }
GBD p% "t16" }
DE 1 1 5 0 15
"Степень точности поверхности выбираем"
"по таблице 11 ГОСТ 26645-85 в соответствии"
"c типом литья." }
GBD p% "t11_"+mane$ k% "nq>=" rmax }
IF p% GO en }i
FR "M" q1$ q2$ q3$ q4$ }
IF ts=1 THEN krt$=q2$ }i
ELSE IF ts=2 THEN krt$=q4$ }i
ELSE IF ts=3 THEN krt$=q1$ }i
ELSE IF ts=4 THEN krt$=q3$ }i
}e
}e
}e
DE 9 25 2 0 15
"Диапазон cтепени точности поверхности"
""
krt$
"" }
stp=14
MV 14 37 "" i%=2
"Cтепени точности поверхности " stp
"Продолжить работу " }
DE 17 5 2 0 15
"Определяем вид"
"окончательной "
"обработки" }
PR "~c10m14" }
PR "~c11C13" }
MV 20 26 "Квалитет Rz обработка " i%=1
" 16-17 Rz 320 обдирка " v10
" 14 Rz 100 черновая " v14
" 12 Rz 50 получистовая" v14
" 10-11 Rz 25 чистовая " v14
" 7-9 Rz 5 тонкая " }
v10:
v14:
PR "~i" }
DE 1 1 1 0 15
"Ряд припусков на механическую"
"обработку определяют по "
"таблице 14 ГОСТ26645-85" }
GBD p% "t14" k% "stt>="stp }
;IF k% GO en }i;
FR "M" rpr$ }
DE 5 28 1 0 15
"Ряд припусков"
""
rpr$
"" }
prt%=5
PR "~c15m1" }
MV 14 29 "" i%=2
"Ряд припуска " prt%
"Продолжить работу " }
GBD p% "t5" k% "rrr>="prt% }
FR "M" minpr }
DE 7 52 2 0 15
"Минимальный припуск"
"определяем по таблице 5"
"ГОСТ 26645-85" }
DE 15 52 1 0 15
"Минимальный припуск"
"равен ", minpr }
DE 31 29 4 0 14
"Нажмите любую клавишу..." }
KEY s$
CALL pri }
us=1.0
MV 19 20 "" i%=3
"Номинальный размер " nomr
"Процент усадки сплава " us
"Продолжить работу " }
usn=(nomr*us)/100
DE 13 29 1 0 15
"Допуск на усадку:"
""
usn
"" }
DE "Общий допуск на сторону складывается"
"из значений найденных в таблицы 16"
"и вида окончательной механической обработки"
"и ряда припуска отливки" }
nomrr=nomr+dop+usn
KEY q$
MV 1 1 "" i%=1
"Класс точности массы" klm
"Продолжить " }
en:
}p
Подпрограмма выбора типа литья:
CALL pri }c
mans1:
PR "~i" }
DE 1 1 8 0 14
">>>>>>>>>>>>>>>>> 1 <<<<<<<<<<<<<<<<<<<"
"Литье под давлением в металлические формы"
"и по выжигаемым моделям с применением"
"малотерморасширяющихся огнеупорных"
"материалов (корунд,плавленный кварц и т.п.)" }
DE 10 1 8 0 14
">>>>>>>>>>>>>>>>>>> 2 <<<<<<<<<<<<<<<<<<<"
"Литье по выжигаемым моделям с применением"
"кварцевых огнеупорных материалов." }
DE 17 1 8 0 14
">>>>>>>>>>>>>>>>>>> 3 <<<<<<<<<<<<<<<<<<<<<"
"Литье по выплавляемым моделям с применением"
"кварцевых огнеупорных материалов." }
DE 24 1 8 0 14
">>>>>>>>>>>>>>>>>>> 4 <<<<<<<<<<<<<<<<<<<"
"Литье под низким давлением и в кокиль без"
"песчаных стержней." }
DE 9 50 2 9 14 "Технологический" "процесс литья" }
MV 15 54 "" i%=5
"1" mas1
"2" mas2
"3" mas3
"4" mas4
"Следующий" mans2
"Выход " } GO end
mas1:
mane$="1"
GO end1
mas2:
mane$="2"
GO end1
mas3:
mane$="3"
GO end1
mas4:
mane$="4"
GO end1
mans2:
PR "~i" }
DE 1 1 8 0 14
">>>>>>>>>>>>>>>>> 5 <<<<<<<<<<<<<<<<<<<<"
"Литье в песчано-глинистые сырые формы из"
"низковлажных (до 2.8%) высокопрочных (более"
"160 кПа) смесей, с высоким однородным"
"уплотнением до твердости не ниже 90 едениц."
"Литье по газифицированным моделям в песчаные"
" формы. "
"Литье в формы,отвержденные в контакте с холодной"
" оснасткой. "
"Литье под низким давлением и в кокиль с песчаными"
" стержнями. "
"Литье в облицованный кокиль." }
DE 16 1 8 0 14
">>>>>>>>>>>>>>>>>>> 6 <<<<<<<<<<<<<<<<<<<<<"
"Литье в песчано-глинистые формы из смесей с"
"влажностью 2.8-3.5% и прочностью 120-160 кПа"
"и уплотненностью не менее 80 ед."
"Литье центробежное (внутренние поерхности)"
"Литье в формы, отверждаемые в контакте"
" с горячей оснасткой. "
"Литье в вакуумно-пленочные песчаные формы." }
DE 9 56 2 9 14 "Технологический" "процесс литья" }
MV 15 59 "" i%=3
"5" mas5
"6" mas6
"Следующий" mans3
"Предыдущий" mans1
"Выход " } GO end
mas5:
mane$="5"
GO end1
mas6:
mane$="6"
GO end1
mans3:
PR "~i" }
DE 1 1 8 0 14
">>>>>>>>>>>>>>>> 7 <<<<<<<<<<<<<<<<<<"
"Литье в песчано-глинистые сырые формы"
"из смесей с влажностью от 3.5% до 4.5%"
"и прочностью от 60 до 120 кПа с уровнем "
"уплотнения до твердости не ниже 70 едениц."
""
"Литье в оболочковые формы из"
"термореактивных смесей."
""
"Литье в формы, отверждаемые вне контакта"
"с оснасткой без тепловой сушки."
""
"Литье в песчано-глинистые подсушенные"
" и сухие формы. " }
DE 19 1 8 0 14
">>>>>>>>>>>>>> 8 <<<<<<<<<<<<<<<<<<<<"
"Литье в песчано-глинистые сырые формы"
"из высоковлажных (более 4.5%), низкопрочных"
"(до 60 кПа) смесей с низким уровнем"
"уплотнения до твердости ниже 70 едениц." }
DE 9 50 2 9 14 "Технологический" "процесс литья" }
MV 15 53 "" i%=1
"7" mas7
"8" mas8
"Предыдущий" mans2
"Выход " } GO end
mas7:
mane$=7
GO end1
mas8:
mane$="8"
GO end1
end1:
FW "M" mane$ }
GI "ppo.gi"
end:
}p
INC "wait.gi"
Комплекс подпрограмм выбора по условию:
INC "wait.gi"
case: }c
FR "M" ts1$ ts2$ ts3$ ts4$ }
IF ts = 1 THEN krt$=ts1$ }i
ELSE IF ts = 2 THEN krt$=ts4$ }i
ELSE IF ts = 3 THEN krt$=ts1$ }i
ELSE IF ts = 4 THEN krt$=ts3$ }i
}e
}e
}e
}s
rr: }c
n%=0
GBD p% "t1" n% "nr>=" nomr }
IF p% <> 0 GO en }i
FR "M" d6 d7t d7 d8 d9t d9 d10 d11t d11 d12 d13t d13 d14 d15 d16 }
IF ktnr$ = "6" THEN dop=d6 }i
29-04-2015, 04:11