МИНИСТЕРСТВО ОБРАЗОВАНИЯ И ВЫСШЕЙ ШКОЛЫ РЕСПУБЛИКИ КОМИ

МУНИЦИПАЛЬНОЕ УЧРЕЖДЕНИЕ

«УПРАВЛЕНИЕ ОБРАЗОВАНИЯ АДМИНИСТРАЦИИ

МУНИЦИПАЛЬНОГО ОБРАЗОВАНИЯ ГОРОДСКОГО ОКРУГА «УСИНСК»

МУНИЦИПАЛЬНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

«СРЕДНЯЯ ОБЩЕОБРАЗОВАТЕЛЬНАЯ ШКОЛА № 2»

Применение алгоритмов в решении экологических задач

Автор:

Трасковская Людмила,

учащаяся 9 а  класса

Руководитель:

                                                                                Зайкова Анна Вадимовна,

учитель информатики

Усинск,

2011 г.

СОДЕРЖАНИЕ:

1. Введение.                                                                                3
2. Основная часть.                                                                4

1. Алгоритмы                                                                        4
2. Свойства алгоритмов                                                        6
3. Экологические проблемы в блок-схемах                                        7

3. Практическая часть.                                                                10
4. Заключение.                                                                        12
5. Использованные источники                                                13
6. Приложения.                                                                        14

Введение.

Целью данной работы является изучение практического применения алгоритмов в повседневной жизни.

Если посмотреть вокруг себя и ответить на вопрос: с чем нам приходится иметь дело в повседневной жизни?  Реальностью окружающей нас действительности является информация. В жизни современного человека информация играет не меньшую роль, чем вещество и энергия. Информатика это – наука, изучающая способы получения и обработки информации. Подобно тому, как математика используется  в различных предметах; алгебре, физике, химии так и информатика применяется в различных областях, объединенных между собой информацией. Я поставила перед собой задачу узнать, как экологические проблемы связаны с информатикой и если связаны, то каким образом.

В информатике процесс решения задачи распределяется между двумя субъектами: программистом и компьютером. Программист составляет алгоритм (программу), компьютер его исполняет. В традиционной математике такого разделения нет, задачу решает один человек, который составляет алгоритм решения задачи и сам выполняет его. Сущность алгоритмизации не в том, что решение задачи представляется в виде набора элементарных операций, а в том, что процесс решения задачи разбивается на два этапа: творческий (программирование) и не творческий ( выполнение программы ). И выполняют эти этапы разные субъекты – программист и исполнитель – компьютер.

Экология как понятие за последние годы приобрела интегральный характер, обогатилась новыми знаниями и стала наукой, которая затрагивает все сферы экономической, социальной и духовной жизни человечества и общества. Экологические проблемы сегодня все более ориентируются на злободневные проблемы по оздоровления окружающей среды. Знание вопросов охраны окружающей среды и рационального природопользования, экологические права и экономического регулирования охраны окружающей среды, а также умение применять их при решении профессиональных задач стали обязательными для каждого специалиста.

В современном понимании экология – научная стратегия выживания человечества. Из многообразия  экологических проблем я выбрала такие как: экология питания, освещение, экология литосферы, экологическая безопасность, загрязнение атмосферы. Из литературы я выяснила основные факторы, влияющие или определяющие выделенные экологические проблемы, нашла их описание и алгоритмы их решения. Затем алгоритмы перевела на язык программирования Паскаль. Получилась программа, которая может быть использована и на уроках информатики и на уроках экологии. Также программу могут использовать обычные пользователи для ознакомления с экологическими проблемами.

Основная часть.

Алгоритмы

Слово "Алгоритм" происходит от algorithmi - латинского написания имени аль-Хорезми, под которым в средневековой Европе знали величайшего математика из Хорезма (город в современном Узбекистане) Мухаммеда бен Мусу, жившего в 783-850 гг. В своей книге "Об индийском счете" он сформулировал правила записи натуральных чисел с помощью арабских цифр и правила действий над ними столбиком. В дальнейшем алгоритмом стали называть точное предписание, определяющее последовательность действий, обеспечивающую получение требуемого результата из исходных данных. Алгоритм может быть предназначен для выполнения его человеком или автоматическим устройством. Создание алгоритма, пусть даже самого простого, - процесс творческий. Он доступен исключительно живым существам, а долгое время считалось, что только человеку. Другое дело - реализация уже имеющегося алгоритма. Ее можно поручить субъекту или объекту, который не обязан вникать в существо дела, а возможно, и не способен его понять. Такой субъект или объект принято называть формальным исполнителем. Примером формального исполнителя может служить стиральная машина-автомат, которая неукоснительно исполняет предписанные ей действия, даже если вы забыли положить в нее порошок. Человек тоже может выступать в роли формального исполнителя, но в первую очередь формальными исполнителями являются различные автоматические устройства, и компьютер в том числе. Каждый алгоритм создается в расчете на вполне конкретного исполнителя. Те действия, которые может совершать исполнитель, называются его допустимыми действиями. Совокупность допустимых действий образует систему команд исполнителя. Алгоритм должен содержать только те действия, которые допустимы для данного исполнителя.

Существуют разные виды алгоритмов: линейный, разветвляющийся, циклический. Линейный алгоритм – набор команд, выполняемых последовательно во времени, друг за другом. Разветвляющийся алгоритм – содержит хотя бы одно условие, в результате которого обеспечивается переход на один из двух возможных шагов. Признаком разветвляющегося алгоритма является блок проверки условия. Различают два вида условий: простые и составные. Простым условием (отношением) называется выражение, составленное из двух арифметических или текстовых величин, связанных одним из знаков: <, >, <=, >=, <>. Блок проверки условия изображается ромбом, внутри которого указывается проверяемое условие, имеет один вход и два выхода: ДА, НЕТ. Если условие истинно, то выходим из блока по выходу ДА, если ложно, то по выходу НЕТ. Циклический алгоритм – это алгоритм, предусматривающий многократное повторение одного и того же действия над новыми данными. Цикл называется арифметическим, если число повторений цикла известно заранее или может быть вычислено. Цикл, для которого нельзя указать число повторений, и проверка окончания которого происходит по достижению нужного условия, называется итерационным. (см рисунок ниже))

Начало

Неполное ветвление

Линейный:                                         Разветвляющийся:Полное ветвление

Условие

Условие

Ввод

Присваивание

Д.1

Д.2

Д.1

Конец

Вывод

   Присваивание

ЦИКЛИЧЕСКИЙ АЛГОРИТМ

Выход

из цикла

Начальные

присвоения

X = 1,5

Тело цикла

(чистим 1 картошку)

Выход

из цикла

Начальные

присвоения

Тело цикла

(чистим 1 картошку)

Условие

(Кастрюля полная)

Цикл с постусловием

Выход

из цикла

Начальные

присвоения

Тело цикла

(чистим 1 картошку)

Условие

(Кастрюля не полная)

Цикл с предусловием

+

+

–

–

Свойства алгоритмов

Разъясняя понятие алгоритма, часто приводят примеры “бытовых алгоритмов”: вскипятить воду, открыть дверь ключом, перейти улицу и т. д.. : рецепты приготовления какого-либо лекарства или кулинарные рецепты являются алгоритмами. Но для того, чтобы приготовить лекарство по рецепту, необходимо знать фармакологию, а для приготовления блюда по кулинарному рецепту нужно уметь варить. Между тем исполнение алгоритма – это бездумное, автоматическое выполнение предписаний, которое в принципе не требует никаких знаний. Если бы кулинарные рецепты представляли собой алгоритмы, то у нас просто не было бы такой специальности – повар.

Правила выполнения арифметических операций или геометрических построений представляют собой алгоритмы. При этом остается без ответа вопрос, чем же отличается понятие алгоритма от таких понятий, как “метод”, “способ”, “правило”. Можно даже встретить утверждение, что слова “алгоритм”, “способ”, “правило” выражают одно и то же ( т.е. являются синонимами ), хотя такое утверждение, очевидно, противоречит “свойствам алгоритма”.

Само выражение “свойства алгоритма” некорректно. Свойствами обладают объективно существующие реальности. Можно говорить, например, о свойствах какого-либо вещества. Алгоритм – искусственная конструкция, которую мы сооружаем для достижения своих целей. Чтобы алгоритм выполнил свое предназначение, его необходимо строить по определенным правилам. Поэтому правильнее говорить не о свойствах алгоритма, а о правилах построения алгоритма, или о требованиях, предъявляемых к алгоритму.

Итак, обычно формулируют несколько общих свойств алгоритмов, позволяющих отличать алгоритмы от других инструкций.

Такими свойствами являются:

Дискретность (прерывность, раздельность) - алгоритм должен представлять процесс решения задачи как последовательное выполнение  простых (или ранее определенных) шагов. Каждое действие, предусмотренное алгоритмом, исполняется только после того, как закончилось исполнение предыдущего.

Определенность - каждое правило алгоритма должно быть четким, однозначным и не оставлять места для произвола. Благодаря этому свойству выполнение алгоритма носит механический характер и не требует никаких дополнительных указаний или сведений о решаемой задаче.

Результативность (конечность) - алгоритм должен приводить к решению задачи за конечное число шагов.

Массовость - алгоритм решения задачи разрабатывается в общем виде, то есть, он должен быть применим для некоторого класса задач, различающихся только исходными данными. При этом исходные данные  могут выбираться из некоторой области, которая называется областью применимости алгоритма.

Понятность - свойство алгоритма, при котором каждое из этих элементарных действий (шагов) являются законченными и понятными.

Детерминированность - свойство, когда каждое действие (операция, указание, шаг, требование) должно пониматься в строго определённом смысле, чтобы не оставалась места произвольному толкованию, чтобы каждый, прочитавший указание, понимал его однозначно.

 На  практике  наиболее  распространены  следующие  формы  представления алгоритмов:

  ▪словесная (записи на естественном языке);

  ▪ графическая (изображения из графических символов);

  ▪псевдокоды (писания алгоритмов на условном алгоритмическом языке);

  ▪программная (тексты на языках программирования).

Экологические проблемы в блок-схемах.

Экология питания

Питание - экологический фактор. Правильное питание обеспечивает высокий уровень работоспособности и оптимальную продолжительность жизни человека. Для нормальной жизнедеятельности необходимо соблюдать правильный режим питания, то есть регулярный прием пищи в установленное время  с целесообразным распределением суточного рациона между отдельным приемами пищи. Задача: в пищевой рацион молодого специалиста 23 лет входит 50 г белка, 80 г жиров, 400 г углеводов. Суточная калорийность составляет 2700 ккал. Оцените качественный состав и калорийность пищевого рациона. Определите рациональный режим питания при трехразовом приеме пищи. Пусть СК – суточная калорийность, тогда КS- калорийность завтрака = СК *0,3; КО – калорийность обеда = СК*0,45; КU – калорийность ужина = СК*0,25. Качественный состав пищи определим из соотношения  В/G = 1 и (U/B и U/G) = 4,6. см приложение

Освещение.

Одним из важнейших условий планировки помещений является естественное и искусственное освещение. Под освещенностью понимают плотность светового потока на освещаемой поверхности. За единицу освещенности принят люкс (лк). Для оценки естественного освещения помещения используется световой коэффициент: Сk = S1/S, где S1 – площадь одного застекленного окна данного помещения;  S – площадь данного помещения (площадь пола). Чем больше величина Сk, тем лучше естественное освещение. Величина Сk для различных помещений имеет свою норму: для жилых помещений – 0,166+0,125; для общественных и учебных помещений  – 0,25+0,2; для коридоров и лестниц – 0,083+0,077.  Задача: площадь учебного кабинета по информатике составляет 45 м2 , застекленная поверхность одного окна составляет 2,5 м2 . В кабинете 3 окна. Какова экологическая обстановка в кабинете, если в нем занимается 35 человек? Оцените естественную освещенность. См приложение

Экология литосферы

Литосфера – это твердая оболочка Земли, или земная кора. Почва – это часть литосферы, особое природное образование. Она является основным элементом биосферы, поддерживающим жизнь на Земле. Естественный химический состав почвы оказывает определенное влияние на здоровье человека, иными словами, состояние почвы играет важную роль для человека. Почва образуется в результате различных факторов, из которых наиболее важными являются климат, время года, рельеф местности и др. Большое влияние на состояние почвы оказывает развитие промышленности и сам человек. Поэтому можно сказать, что решающее значение в охране почвы имеет рационально организованная очистка от отходов производства и потребления. Задача : известна площадь учебной аудитории S, которая освещается Nлампами накаливания, каждая мощностью P1 (или N люминесцентными лампами мощности P1). Определить искусственную освещенность в данном помещении. Общая мощность ламп равна произведению мощности одной лампы на количество ламп, или P1 = P *N, соответственно удельная мощность - PR = P/S. Чтобы определить искусственную освещенность, необходимо найти произведение удельной мощности на коэффициент е. Коэффициент е зависит от размера площади, мощности лампы и напряжения сети. Допустим, в нашем примере напряжение в сети равно 220 В, тогда коэффициент е равен либо 2, либо 2,5. См приложение

Контейнеры для отходов.

Образующиеся в процессе жизнедеятельности человека отходы требуют специальной переработки – утилизации, хранения, захоронения и т.д. (Для образующихся в процессе жизнедеятельности человека жидких и твердых отходов требуется переработка). Для сбора твердых бытовых отходов (ТБО) необходимо иметь достаточное количество мусороприемников в домах, дворах и на улицах. Дворовые контейнеры имеют объем 0,6-0,8 м2 , они рассчитаны на 350-500 жителей. Мусор из контейнеров вывозят на утилизацию. Задача: в жилом доме проживает М человек. Мусоропровод, который имеется в жилом здании, имеет контейнер вместимостью N кг каждый. Мусор должны вывозить ежедневно. Сколько контейнеров необходимо, если от одного жителя в сутки образуется 2 кг твердых бытовых отходов? Введем обозначение для количества контейнеров – k, n1 – вес ТБО на каждого жителя. Определим общий ТБО объем как  V = n1 * M. Если исходные данные были введены верно то количество контейнеров определяется формулой k=V/N, причем значение k должно быть целой величиной. Для этого необходимо выполнить округление до большего целого. См приложение

Информация по сжиганию ТБО.

Задача: завод по сжиганию мусора ТБО может принять в сутки 2000 т мусора. Получаемый пар может привести в действие генератор мощностью 60000 кВт, что достаточно для обеспечения электроэнергией жителей 60000 жилых домов. Сколько жилых домов можно обеспечить электроэнергией, если увеличить мощность генератора в 1,5 раза либо уменьшить поступление мусора до 1000 т в сутки?

        Введем обозначения:

S – общий вес мусора (стандарт); S1 – новые данные (S);

S2=S/S1 – соотношение стандартного значения к новому;

W – мощность генератора;

n – количество изменений W;

k – количество жилых домов, обеспеченных электроэнергией.

Чтобы определить количество жилых домов, обеспеченных электроэнергией, следует воспользоваться предложенными в задаче соотношениями, которые реализуются в алгоритме. См приложение

Оценка степени экологической безопасности.

Экологическая безопасность – процесс обеспечения защищенности важных интересов человека, общества, природы от потенциальных и реальных угроз, создаваемых антропогенными или естественным воздействием на окружающую среду. Задача: оценка степени экологической безопасности выполняется для определенной территории, которая, как правило, предназначена для экологической рекреации и экологического туризма. Для этого должны быть известны следующие параметры:

1. Базовый норматив платы за загрязнение окружающей среды (руб.*т) – ВN
2. Масса загрязняющих веществ, попадающих на рассматриваемую территорию в результате выбросов или при размещении отходов (т) – М
3. Коэффициент экологической ситуации и экологической значимости региона – КЕ
4. Коэффициент индекса платы, который ежегодно утверждается министерством природопользования России – KI
5. Количество видов загрязняющих ингредиентов - N

Если все эти величины известны, можно составить алгоритм. Коэффициент

экологической значимости региона задается из следующей таблицы, в которой реально присутствуют данные о состоянии атмосферы (воздух и почва) для некоторых регионов РФ. См приложение

Определение ущерба от загрязнения атмосферы.

Атмосфера – внешняя оболочка биосферы. Различные негативные изменения атмосферы Земли связаны, как правило, с изменением второстепенных компонентов атмосферного воздуха. Существует два главных источника загрязнения: естественные (вулканы, лесные пожары, выветривание и др.) и антропогенные (топливно-энергетические комплексы, транспорт, машиностроительные предприятия).  Задача: экономический ущерб, который наносится годовыми выбросами загрязнений в атмосферу, можно вычислить по формуле Y = G*SG*F*M (руб.), где GY – константа, значение которой равно 2,4 (руб./усл.т), SG – показатель относительной опасности загрязнения, - зависит от типа территории, F – показатель учета характера примесей в атмосфере, М – масса годового выброса загрязнений источника (усл.т). Коэффициент SG зависит не только от типа территории, но и от ее однородности. Если территория активного загрязнения неоднородна, то значение SG складывается из суммы значений SG для разных территорий.

Где SAS – площадь всей загрязненной зоны – либо является величиной заданной, либо должны быть даны дополнительные рекомендации по ее вычислению. N – общее количество территорий, которые относятся к загрязненной зоне. Некоторые значения показателя относительной опасности загрязнения атмосферного воздуха над территориями  различного типа приведены в следующей таблице.

Если SG вычисляется как сумма, то соответственно это отображает в схеме алгоритма.

Загрязнение атмосферного воздуха отработанными газами автомобилей и других движущихся средств может рассматриваться как допустимые выбросы и выбросы, превышающие допустимые. См приложение

Практическая часть.

Основная программа содержит меню. Основная программа использует циклический алгоритм для периодического запуска меню. Для выхода из программы используется 0. Содержание меню:

***********************************

***************MENU***************

*  0  * Выход из программы                       *

*  1  * Экология питания                            *

*  2  *  Естественная освещенность           *

*  3  *  Искусственная освещенность        *

*  4  *  Мусор                                              *

*  5  *  Отходы                                            *

*  6  *  Экологическая безопасность          *

*  7  *  Ущерб                                              *

************************************.

По пунктам меню запускаются процедуры. Программа содержит 7 процедур. Каждой процедуре в соответствие поставлен пункт меню. Пункты меню пронумерованы. Переходы по пунктам меню осуществляются функцией case по соответствующей цифре. Хотя процедуры не имеют формальных параметров, каждая из них имеет входные и выходные данные, которые будут описаны ниже. Ввод входных данных осуществляется с клавиатуры.

 Процедура pitanie проверяет, соответствует ли рацион питания норме. Пользователь вводит с клавиатуры количество калорий, употребленных за завтраком, обедом и ужином (питание трехразовое). А в ответ получает следует ли ему пересмотреть пищевой рацион.  Входные данные: суточная калорийность, соотношение качественного состава пищи. Промежуточные данные: калорийность завтрака, калорийность обеда, калорийность ужина.

Процедура Est_SVET проверяет, соответствует ли естественный свет норме. Пользователь вводит с клавиатуры различную площадь, которая ему понадобиться для определения нормы света. А в ответ получает световой коэффициент в пределах нормы или нет. Входные данные: площадь одного застекленного окна данного помещения, площадь данного помещения, количество человек. Промежуточные данные: световой коэффициент.

Процедура Isk_Svet проверяет, соответствует ли норме искусственное освещение. Пользователь вводит с клавиатуры мощность и количество ламп накаливания, чтобы определить  искусственную освещенность в данном помещении. А в ответ получает в пределах ли нормы искусственное освещение. Входные данные: площадь учебной аудитории, количество ламп накаливания, мощность ламп. Промежуточные данные: коэффициент освещенности.

Процедура musor считает, сколько контейнеров необходимо. Пользователь вводит количество человек, проживающий в доме, вместимость контейнера и вес ТБО. Если же пользователь ввел, что вместимость контейнера равна 0, то ему выскакивает табличка, что следует изменить параметры. Входные данные: количество человек, вместимость контейнера, вес ТБО. Промежуточные данные: объем контейнера. Выходные данные: количество контейнеров.

Процедура othodu считает, сколько жилых домов можно обеспечить электроэнергией. Пользователь должен ввести мощность генератора, общий вес мусора по стандарту и новые данные, количество изменений генератора. Если же пользователь вводит, что новые данные общего веса мусора равны 0 и количество изменений генератора тоже равно 0, то ему выскакивает табличка, что нужно изменить исходные данные. Входные данные: общий вес мусора по стандарту, общий вес мусора по новым данным, количество изменений генератора, мощность генератора и количество жилых домов. Промежуточные данные: соотношение стандартного значения к новому. Выходные данные: количество жилых домов, обеспеченных электроэнергией.

Процедура ek_bezop делает оценку степени экологической безопасности. Это выполняется, как правило, для определенной территории. Пользователь вводит с клавиатуры информацию о виде загрязняющих веществ. Входные данные: масса загрязняющих веществ, количество видов загрязняющих веществ, коэффициент экологической ситуации, коэффициент индекса платы, базовый норматив платы.  Выходные данные: степень экологической безопасности.

Процедура usherb определяет, насколько сильно загрязнена атмосфера. Пользователь вводит показатели примесей в атмосфере. Некоторые значения показателя относительной опасности загрязнений атмосферного воздуха над территориями различного типо приведены в таблице:

Входные данные: площадь всей загрязненной зоны, показатель учета характера примесей в атмосфере, масса годового выброса загрязнений источника. Промежуточные данные: показатель относительно опасности загрязнения, общее количество территорий, которые относятся к загрязненной зоне. Выходные данные: экономический ущерб.

Заключение.

Все поставленные передо мной цели были достигнуты в ходе написания реферата. Стало очевидным, что людям невозможно оградиться от экологических проблем. Очевидно, что алгоритмы применимы для решения различного рода задач, в том числе и экологических. Мне было дано 7 экологических задач, и все задачи вошли в составленную программу.

Программа наверняка заинтересует учителей экологии, ведь с её помощью в интересной не стандартной форме можно демонстрировать экологические проблемы.

Программу можно будет использовать на уроках информатики для наглядной демонстрации возможностей процедур и оператора case в Pascale.

Можно усовершенствовать полученную программу. Например, используя работу с файлами в неё можно добавить файлы содержащие справочники калорийности продуктов. Программа из справочников будет составлять правильное меню питания для человека. Или добавить справочник с данными светового дня и можно будет определять, сколько окон необходимо для правильного естественного освещения. То есть не просто обсчитывать проблему, но и предлагать варианты её решения.

На примере созданной программы связанной с экологическими проблемами, можно создавать более сложные программы.

Список использованной литературы.

1. Попов В.Б. Turbo Pascal для школьников. М.: «Финансы и статистика», 2003.
2. М.Д.Князева. Алгоритмика: от алгоритма к программе. + CD-ROM. Москва. «КУДИЦ-ОБРАЗ». 2006;
3. Тематический контроль по информатике. Справочные материалы по программированию на языке Паскаль «Интеллект центр». Москва. 2001;
4. Тематический контроль по информатике. Алгоритмы и основы программирования. «Интеллект центр». Москва. 2002;

Приложения 

Начало

Пример 1.

Ввод В,G,CK,U

KS=CK*0.3

KU=CK*0.25

KO= CK*0.45

Режим питания:

KS. KU, KO

B/G=1

Белки, жиры и углеводы в пределах нормы

Конец

Состав пищ. рац. следует пересмотреть

U/G=4.6 и U/B=4.6

ггU

Пример 2.

Начало

Ввод S1, S, n

CK=S1*n/S

0.2<=CK<=0.25

Конец

Освещение не соответствует норме

СК в пределах нормы

Пример 3.

Начало

e=2 и 300>=YS>=150

P<=110

P=P1*N

PP-P/S

Ввод  P1, S, N

Конец

YS в пределах нормы

Освещение не соответствует норме

e=2.5  и YS>=100

YS=e*PP

e=2.5

e=2

Пример 4.Начало

n=0

k=W/S2

S2=S/S1

S1=0

Ввод S,n,W,k,S1

Начало

Ввод M, N,n1

Измените данные

Конец

Вывод k

k=V/N

N=0

V=n1*M

Измените данные

Конец

Вывод k

k=k*n

Пример 5.

Пример 6.

I=1

Конец

Вывод SC

i<=N

Начало

i=i+1

SC=SC+PR

PR=BE*M*KE*KI

Ввод M, N,KE,KI,BE

SC=0

Пример 7.

Начало

Ввод SAS, F,M GY

GY=2.4

SG=0

SG=SG+Si*Gi

Сумма ущерба = Y

Конец

Y=GY*SG*F*M

SG=SG/SAS

ЛИСТИНГ ПРОГРАММЫ:

program ekologia;

uses crt;

var x:integer;

procedure Pitanie;{1}

var B,CK,G,U,KS,KU,KO:real;

begin

writeln('введите состава пищи');readln(B);

writeln('введите суточную калорийность');readln(CK);

writeln('введите состав пищи');readln(G);

writeln('');readln(U);

KS:=CK*0.3;

KU:=CK*0.25;

KO:=CK*0.45;

WRITELN('режим питания:завтрак ',KS:2:0,' обед ',KO:2:0, ' и ужин',KU:2:0);

if B/G=1 THEN writeln('белки, жиры и углеводы в пределах нормы')

         else

if (U/G=4.6) and (U/B=4.6) then

writeln('белки, жиры и углеводы в пределах нормы')

                           else

writeln('состав пищ. рациона следует пересмотреть');

writeln('Press any key');

readln;

end;

procedure Est_SVET;{2}

var S1,S,n,CK:real;

begin

writeln('введите площадь одного застекленного окна');readln(S1);

writeln('введите площадь данного помещения');readln(S);

writeln('введите n');readln(n);

CK:=S1*n/S;

if (0.2<=CK) and (CK<=0.25) then

writeln('освещение в пределах нормы')

                            else

writeln('освещение не соответствует норме');

writeln('Press any key');readln;

end;

procedure Isk_Svet; {3}

var P1,S,N,PP,P,e,YS:real;

begin

writeln('введите мощность лампы');readln(P1);

writeln('введите площадь учебной аудитории');readln(S);

writeln('введите количество ламп накаливания');readln(N);

P1:=P1*N;

PP:=P/S;

if P<=110 then e:=2.5

          else e:=2;

YS:=e*PP;

if(e=2.5) and (YS>=100) then

writeln('искусственная освещенность в пределах нормы')

                        else

if (e=2) and (300>=YS) and (YS>=15) then

writeln('искуственная освещенность в пределах нормы')

                                    else

writeln('освещение не соответствует норме');

writeln('Press any key');readln;

end;

procedure musor;{4}

var M, N, n1, V,k:real;

begin

writeln('введите количество человек') ;readln(M);

writeln('введите вместимость контейнера') ;readln(N);

writeln('введите вес тбо на каждого жителя') ;readln(n1);

V:=n1*M;

if n0 then k:= V/N

        else writeln('введите другие данные');

writeln(k:2:0);

writeln('Press any key');readln;

end;

procedure othodu; {5}

var S,W,n,k,S1,S2:real;

begin

writeln('введите общий вес мусора');readln(S);

writeln('введите мощность генератора');readln(W);

writeln('введите количество изменений мощности генератора');readln(n);

writeln('введите кол-во жилых домов');readln(k);

writeln('введите новые данные веса мусора');readln(S1);

if S10 then BEGIN S2:=S/S1;k:=W/S2; END

         else if n=0 then writeln('измените данные ')

                     else k:=k*n;

writeln('количество жилых домов ',k:2:0);

writeln('Press any key');readln;

end;

procedure ek_bezop;{6}

var M,N,KE,KI,BE,SC,i,PR:real;

begin

writeln('введите массу загрязняющих вещ-тв') ;readln(M);

writeln('введите количество видов загрязняющих ингредиентов');readln(N);

writeln('введите коэффициент экологической значимости региона');readln(KE);

writeln('введите коэфициент индекса платы') ;readln(KI);

writeln('введите базовый норматив платы') ;readln(BE);

i:=1;

repeat

PR:–*M*KI*KE;

SC:=SC+PR;

i:=i+1;

until i>N;

writeln('степень экологической безопасности ',SC:5:3);

writeln('Press any key');readln;

end;

procedure usherb; {7}

var SAS,F,M,GY,SG,Si,Gi,Y:real;

i,N:integer;

begin

writeln('введите площадь загрязненной зоны');readln(SAS);

writeln('введите показатель учета характера примесей в атмосфере');readln(F);

writeln('введите массу годового выброса загрязнений источника');readln(M);

writeln('для определения коэфициента');

writeln('опасности загрязнения территории');

writeln('выберите из меню нужный пукт');

writeln('и введите соответствующую типу территории цифру');

writeln('***********************************');

writeln('***************MENU****************');

writeln('*  1  * зоны отдыха, дачи         *');

writeln('*  2  * пром предприятия          *');

writeln('*  3  * леса                      *');

writeln('*  4  * пашни                     *');

writeln('*  5  * сады,виноградники         *');

writeln('*  6  * пастбища                  *');

writeln('*  7  * тундра                    *');

writeln('***********************************');

readln(N);

case N of

1:SG:=10;

2:SG:=4;

3:SG:=0.2;

4:SG:=0.15;

5:SG:=0.5;

6:SG:=0.05;

7:SG:=0.025;

END;

GY:=2.4;

SG:=SG/SAS;

Y:=GY*SG*F*M;

writeln('cумма ущерба ', Y:5:4);

writeln('Press any key');readln;

end;

{osnov programma}

begin

clrscr;

repeat

clrscr;

writeln('выберите из меню нужный пукт');

writeln('и введите соответствующую цифру');

writeln('***********************************');

writeln('***************MENU****************');

writeln('*  0  * Выход из программы        *');

writeln('*  1  * Экология питания          *');

writeln('*  2  * Естественное освещение    *');

writeln('*  3  * Искуственная освещение    *');

writeln('*  4  * Мусор                     *');

writeln('*  5  * Отходы                    *');

writeln('*  6  * Экологическая безопасность*');

writeln('*  7  * Ущерб                     *');

writeln('***********************************');

readln(x);

case x of

1:pitanie;

2:Est_SVET;

3:Isk_Svet;

4:musor;

5:othodu;

6:ek_bezop;

7:usherb;

end;

until x=0;

end.