Организация обработки информации на ЭВМ по анализу новорожденных в поселке Междуреченск с 1990-2005гг.

Размещено на http://www.allbest.ru/

Федеральное агентство по образованию

Государственное образовательное учреждение высшего профессионального образования

«Тольяттинский государственный университет сервиса»

Кафедра «Прикладная информатика в экономике»

Курсовая работа

по дисциплине «Информатика и программирование»

на тему «Организация обработки информации на ЭВМ по анализу новорожденных в поселке Междуреченск с 1990-2005гг.»

Выполнил: ст.гр. И-102

Винник О.Б.

Проверил: доцент

Марченко В.С.

Ассистент: Раченко Т.А.

Тольятти 2006 г.

Содержание

рождаемость население демографический междуреченск

Введение

Глава 1. Теоретическая часть

1.1 Рождаемость и воспроизводства населения

1.2 Демографическая ситуация в России

1.3 Анализ рождаемости в п. Междуреченск

Глава 2. Практическая часть

2.1 Блок-схема

2.2 Разработка основных модулей программы

2.3 Разработка интерфейса пользователя

Заключение

Приложение

Введение

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

Поселок расположен в живописном уголке посреди двух рек р. Уса и р. Волга от этого и пошло название Междуреченск.

На месте где сейчас находиться поселок, раньше был лес. Но в связи с образованием Куйбышевского водохранилища и строительством железной дороги Сызрань - Жигулевск - Куйбышев Советом министерства РСФСР в декабре 1956 года был утвержден проект строительства Переволокского лесоперевалочного комбината (ЛПК) и железо битоночного комбината (ЖБК).

В марте 1956 года началось строительство комбинатов и застройка поселка «Междуреченск». Предприятия в поселке развивались, молодежь была заинтересована в работе. Она оставалась, создавать семьи, поселок разрастался. Строилось жилье, детсад, школа. Развитие производства позволили привлекать молодых специалистов и рабочих с других регионов, что так же увеличило семейные пары и рождаемость в поселке.

В 1990 году в поселке родилось 32 человека. Вместе с тем умеренное устойчивое развитие поселка, появились кризисные явления и процессы: глубокий спад производства, рост безработицы, ухудшение социально - демографической ситуации и снижение уровня жизни основной массы населения поселка.

На протяжении последних нескольких десятилетий рождаемость в поселке постоянно сокращалось (с 1990 г. по 2005 г. - на 23 чел).

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

Для разработки своей программы я выбрала «Анализ рождаемости в п. Междуреченск». Поселок это моя малая родин. Здесь я родилась и выросла. Мне обидною, что демографическая ситуация в поселке, стала неблагоприятной и даже кризисной. И я хочу, чтобы Междуреченск возродился.

Цель: Создать программу: «Анализ рождаемости в п. Междуреченск», чтоб оценить демографическую ситуацию в поселке.

Задачи:

изучить рассматриваемый вопрос;

составить систему классификации информации

нарисовать блок-схему

дать описание основным элементам программы

провести тестирование

показать результаты работы программы

1. Теоретическая часть

1.1 Рождаемость и воспроизводство населения

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

Высокая доля внебрачных рождений (в России около 30%)в сельских районах рождаемость несколько выше, чем в городах высокий средний возраст рождения первого ребенка;

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

пик рождаемости у женщин приходится на 20-25 лет.

Для определения интенсивности процесса рождения используется статические коэффициенты: общий и специальный.

Во-первых это показатель общей рождаемости. Рождаемость - это число родившихся живыми на 1000 населения за год.

Специальные показатели:

1. Показатель общей плодовитости или фертильности - это число родившихся живыми на 1000 женщин детородного возраста (15-49 лет).

2. Повозрастные показатели плодовитости - уровень групп (как правило, берется интервал в 5 лет).

Показатель рождаемости характеризует социальное благополучие общества.

В 1993 году в России показатель рождаемости составлял 45.5 промилле. После революции отмечалось снижение этого показателя вплоть до 60-х годов. В 1969 году отмечался самый низкий показатель рождаемости 17 промилле. В середине 80-х рождаемость стала повышаться. К концу 80-х годов она начала резко падать. Сейчас в России рождаемость составляет 9.6 промилле (1994 год). В Санкт-Петербурге - 7.1 промилле (1995).

В нашей стране показатель рождаемости примерно соответствует уровню рождаемости развитых стран. В Финляндии 10 промилле, в Японии 7 промилле. Но у нас отмечается резкое падение рождаемости.

10 основных факторов влияющих на коэффициент рождаемости:

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

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

3) Урбанизация. У городского населения существует тенденция к снижению коэффициента рождаемости по сравнению с сельскими жителями.

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

5) Возможность для женщин получить работу или образование. Коэффициент повышается, если женщина не имеет права на вышеперечисленное, и, следовательно, большую часть времени проводит дома с детьми.

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

7) Средний возраст вступления в брак (или рождения первого ребёнка). Коэффициент рождаемости снижается в странах, где этот ср. возраст более 25 лет. Это сокращает продолжительность общего фертильного периода.

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

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

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

1.2 Демографическая ситуация в России

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

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

В 1992 году уровень смертности населения превысил уровень рождаемости. Демографическая ситуация в стране такова, что наши людские потери сравнимы с потерями в ходе интенсивных боевых действий. Ежегодно мы теряем 0,5 млн. человек. Параллельно ухудшается качество здоровья оставшегося населения, усугубляются процессы его старения. Не двух работающих приходится один иждивенец (пенсионер, инвалид, ребенок). Это соотношение постоянно изменяется в сторону увеличения иждивенцев и в ближайшей перспективе составит 1:1.

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

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

Граждане репродуктивного возраста чаще больны, чем здоровы; подвержены алкоголизму и наркомании, принявшим размеры национального бедствия.

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

Длина государственной границы, приходящейся на одного российского солдата, самая высокая в мире. Наши ближайшие соседи (Турция, Иран, Китай. Индия, Пакистан, Корея, Япония, среднеазиатские страны СНГ) имеют очень высокую плотность населения и высокие темпы экономического роста, но бедны минеральными, энергетическими и другими природными ресурсами. Это не может не рассматриваться как потенциальная угроза России.

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

Причины демографического кризиса

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

Следует сразу отметить, что реальный уровень жизни в России выше, чем официально заявляемый. Приводимые в статистических сводках цифры уровня дохода не соответствуют реальному уровню потребления. Сокрытие доходов и "левые" заработки носят массовый характер. Фактически почти все жители России имеют не декларированные доходы в прямой или скрытой форме. Так, по статистике, жители Калининградской области находятся на грани голодной смерти, но, по той же статистике, средний житель области (включая младенцев) в 1999 году купил 7 золотых изделий. Кроме того, большинство граждан Российской Федерации имеют возможность свободно обрабатывать землю, благодаря чему застрахованы от голода. Такой доступности земельных ресурсов нет почти нигде в мире.

Говорить о связи демографического кризиса с экономикой, как основной причине демографического кризиса, - значит не учитывать очевидных фактов.

Этот тезис можно проиллюстрировать следующим:

1. Если связь между уровнем доходов и рождаемостью и существует, то, как правило, обратная: в семьях с меньшим доходом имеют больше детей.

2. В богатых странах рождается меньше детей, чем в бедных. Богатые семьи в России в основном имеют одного, редко двух детей.

3. На протяжении всей дореволюционной истории в России никогда не выплачивалось пособий на детей; уровень душевого дохода в стране никогда не был столь высок, как в XX веке -- но при этом никогда, даже во времена татаро-монгольского нашествия, у нас не было такой низкой рождаемости, как сейчас. В годы Великой Отечественной войны уровень рождаемости в России был выше, а уровень жизни несравнимо ниже, чем в наше время.

4. Семьи верующих всегда более многодетны, независимо от уровня их дохода.

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

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

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

8. В "бедную" Россию стремятся миллионы иммигрантов из соседних стран, так как уровень жизни и возможность заработка в ней намного выше, чем, например, в Китае, Турции, Афганистане и др. странах. Так, только в Москве живет несколько сотен тысяч азербайджанцев, которые находят работу и отсылают домой заработки, составляющие значительную долю национального дохода их страны.

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

К факторам влияющих на снижение рождаемости, можно отнести:

1. Утрату традиционных устоев крепкой семьи, отторжение женщины от семьи, потеря мужчиной роли главы семьи и кормильца.

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

3. Отторжение народа от религии и морали.

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

К факторам, влияющим на снижение рождаемости можно также отнести:

5. Наркоманию, алкоголизм.

6. Раннюю смертность в результате несчастных случаев, убийств и самоубийств.

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

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

9. Оказание давления на женщину в медицинских учреждениях с целью принудить ее к отказу от рождения детей.

10. Бесплодие женщин в результате абортов.

11. Жиличные проблемы.

12. Отъезд за границу граждан репродуктивного возраста.

Факторы, влияющие на повышение рождаемости

- укрепление молодых семей (обеспечение их членов работай, жильем, местами в детских, дошкольных учреждениях);

- материально стимулирование рождения детей (выплата дополнительных пособий, представление дополнительной оплаты отпуска по уходу за ребенком до 3-х лет);

- организация раздачи бесплатного молочного питания для детей до 3-х лет;

- повышение дотаций на содержание детей в детских дошкольных учреждениях;

- увеличение материальной помощи малоимущим и многодетным семьям;

- организация гибких форм женской занятости;

- создание кооперативных и частных детских дошкольных учреждений и школ;

- поведение учебно-воспитательной работы по основам семьи и брака в старших классах общеобразовательной школы;

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

Таблица 1 Оценка уровня рождаемости

Общий коэффициент рождаемости в промилле	оценка уровня рождаемости
до 10	очень низкий
10-14.9	Низкий
15 - 19.9	ниже среднего
20 - 24.9	Средний
25 - 29.9	выше среднего
30 - 39.9	Высокий
40 и более	очень высокий

1.3 Анализ рождаемости в п. Междуреченск

В 1990 году в поселке родилось 32 человека. Вместе с тем умеренное устойчивое развитие поселка, появились кризисные явления и процессы: глубокий спад производства, рост безработицы, ухудшение социально - демографической ситуации и снижение уровня жизни основной массы населения поселка. Начался спад в 1991г. родилось 23 человека, 1992г. - 16 человек. В 1993г. произошел скачек родилось 21 человек и до 2005г рождаемость в поселке постоянно сокращалось. В 2005г. всего родилось 6 человек.

Таким образом, демографическую ситуацию в Междуреченске можно оценить как крайне неблагоприятную и даже кризисную.

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

2.1 Блок-схема

Рис. 1. Укрупненная блок-схема

1) На рисунке 2 представлена полная блок-схема нашей программы.

Рис.2 Блок-схема основной программы

2) На рисунке 3 представлена блок-схема процедуры RadioButton 3

Рис. 3. Блок-схема процедуры RadioButton 3

3) На рисунке 4 представлена блок-схема процедуры Button1

Рис. 4. Блок-схема процедуры Button1

2.2 Разработка основных модулей программы

Type - модуль описания типов

TForm1 = class(TForm) - 1форма проекта

Chart1: TChart;

Table1: TTable;

Table1Year: TStringField;

Table1Num: TFloatField;

Button1: TButton; - кнопка служит для выполнения программы

RadioGroup1: TRadioGroup;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Edit1: TEdit;

Edit2: TEdit;

procedure FormCreate(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure RadioButton3Exit(Sender: TObject);

Инструкция по использованию программы

Программа работает как для ввода, так и для выбора Min или Max количества новорожденных.

Алгоритм использования:

1. Нужно выбрать что вы хотите узнать «Min», «Max» или «Сравнить».

2. Нажать кнопку «Выполнить» или «Enter».

Программа не работает если:

1. Вводить в поле ComboBox буквы

2. Если вводить другие года, кроме представленных на графике

3. Если вводить римские числа

2.3 Разработка интерфейса пользователя

Рис.6. Форма «График рождаемости»

На рис.6 представлена форма « График рождаемости» до введения пользователем года, то есть до начала работы.

Рис. 7 Форма «Анализ рождаемости »

На Рис. 7 представлена форма «Анализ рождаемости» с уже произведенными вычислениями, записанного в поле ввода.

Заключение

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

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

Во второй части курсового проекта была нарисована блок-схема программы; дано описание ее основных элементов, представлен текст и показаны результаты работы программы по организация обработки информации на ЭВМ по анализу новорожденных в поселке Междуреченск с 1990-2005гг; дан алгоритм использования проекта. Следовательно, задачи курсового проекта выполнены, а значит, цель достигнута.

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

Приложение

Листинг программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DB, DBTables,

StdCtrls;

type

TForm1 = class (TForm)

Chart1: TChart;

Series1: TBarSeries;

DataSource1: TDataSource;

Database1: TDatabase;

Table1: TTable;

Table1Year: TStringField;

Table1Num: TFloatField;

Button1: TButton;

RadioGroup1: TRadioGroup;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Edit1: TEdit;

Edit2: TEdit;

procedure FormCreate (Sender: TObject);

procedure RadioButton3Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure RadioButton3Exit (Sender: TObject);

procedure RadioButton2Click (Sender: TObject);

procedure RadioButton1Click (Sender: TObject);

procedure Edit1Change (Sender: TObject);

procedure Edit2Change (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var i:integer;

begin

For i:=1 to 16 do

Begin

Series1.AddXY(i,Table1.Fields.Fields[1].AsInteger,Table1.Fields.Fields[0].AsString,Chart1.Series[0].SeriesColor+500);

Table1.Next;

End;

end;

procedure TForm1.RadioButton3Click (Sender: TObject);

begin

Edit1.Visible:=True;

Edit2.Visible:=True;

end;

procedure TForm1.Button1Click (Sender: TObject);

var i,y1,y2, max,min:integer;

begin

If Edit1.Visible Then

Begin

Table1.Locate('Year',Edit1.Text,[loCaseInsensitive, loPartialKey]);

y1:=Table1.Fields.Fields[1].AsInteger;

Table1.Locate('Year',Edit2.Text,[loCaseInsensitive, loPartialKey]);

y2:=Table1.Fields.Fields[1].AsInteger;

If y1=y2 Then ShowMessage ('Рождаемость в эти годы одинакова') Else

If y1>y2 Then ShowMessage ('В '+Edit1.Text+'('+IntToStr(y1)+') году родилось больше чем в '+Edit2.Text+'('+IntToStr(y2)+') году')

Else ShowMessage('В '+Edit2.Text+'('+IntToStr(y2)+') году родилось больше чем в '+Edit1.Text+'('+IntToStr(y1)+') году');

End;

Edit1.Visible:=False;

Edit2.Visible:=False;

If RadioButton2.Checked Then

Begin

Table1.FindFirst;{:=True;}

max:=Table1.Fields.Fields[1].AsInteger;

y1:=Table1.Fields.Fields[0].AsInteger;

for i:=1 to 16 do

begin

y2:=Table1.Fields.Fields[1].AsInteger;

Table1.Next;

If y2>max Then

Begin

max:=y2;

y1:=Table1.Fields.Fields[0].AsInteger;

End;

End;

ShowMessage('Максимальная рождаемость в '+IntToStr(y1)+'('+IntToStr(max)+') году');

end;

If RadioButton1.Checked Then

Begin

Table1.FindFirst;{:=True;}

min:=Table1.Fields.Fields[1].AsInteger;

y1:=Table1.Fields.Fields[0].AsInteger;

for i:=1 to 16 do

begin

y2:=Table1.Fields.Fields[1].AsInteger;

Table1.Next;

If y2<min Then

Begin

min:=y2;

y1:=Table1.Fields.Fields[0].AsInteger;

End;

End;

ShowMessage('Минимальная рождаемость в '+IntToStr(y1)+'('+IntToStr(min)+') году');

end;

end;

procedure TForm1.RadioButton3Exit (Sender: TObject);

begin

Edit1.Visible:=True;

Edit2.Visible:=True;

end;

procedure TForm1.RadioButton2Click (Sender: TObject);

begin

end;

procedure TForm1.RadioButton1Click (Sender: TObject);

begin

end;

procedure TForm1.Edit1Change (Sender: TObject);

begin

end;

procedure TForm1.Edit2Change (Sender: TObject);

begin

end;

end.

Размещено на Allbest