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

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

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

Миграционная политика по своей сути носит территориально-дифференцированный характер, что вытекает из сущности миграции как процесса изменения одной территориальной совокупности населения за счёт другой. Существуют и региональные различия в типах миграционных проблем: например, повышение приживаемости или, наоборот, увеличение мобильности населения. Цель миграционной политики в сравнении с другими направлениями Д. п. имеет наиболее выраженный соподчиненный характер по отношению к социальным, экономическим и политическим целям государства. Она Может быть направлена и на Обеспечение территорий Нового освоения трудовыми ресурсами, и на создание

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

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

Оценка эффективности демографической политики требует выделения двух понятий: эффекта, то есть результата от некоторого воздействия на объект (в данном случае - количественного изменения совокупности или Структуры тех или иных демографических событий), и эффективности, то есть отношения полученного результата к произведенным затратам.

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

1.4 Требования аппаратные и программные для создания программы анализа демографической ситуации в Самарской области

Аппаратные требования:

Компьютер на базе процессора Intel Pentium.

Принтер

Сканер

Программные требования:

Windows 98/2000/XP.

Браузер.

Delphi 7

Microsoft office

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

2.1 Цели и задачи программы

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

Задачи:

Разработать алгоритм программы в виде блок-схемы.

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

Разработать модули программы на языке программирования Delphi.

Протестировать программу.

Сделать вывод

2.2 Алгоритм программы в виде блок-схемы

Исходные данные по Самарской области:

Показатель	Годы
	1999	2000	2001	2002	2003	2004
Численность населения	3282,4	3305,0	3311,5	3310,4	3309,4	3308,0
Рождаемость	13,4	12,1	8,6	8,0	7,7	7,8
Смертность	10,5	10,9	14,8	14,3	13,4	13,6

Искомые данные по Самарской области:

Показатель	Годы
	1999	2000	2001	2002	2003	2004
Естественный прирост



2.3 Интерфейс пользователя

Элементы интерфейса

Кнопка - очистка полученных данных и текстового поля.

Кнопка - выход из программы.

Кнопка - расчет динамики естественно прироста Самарской области по исходным данным.

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

2.4 Модули программы на языке программирования Delphi

Программа состоит из 3-х модулей:

Создание формы (интерфейс пользователя).

Объявление процедур и переменных программы.

Разработка процедур программы:

Процедура заполнение трехмерного массива Chis[3,6] исходными данными;

Процедуры обработки нажатия кнопок «Clear» и «Exit»;

Процедура обработки нажатия кнопки «Рассчитать» (заполнение таблицы с искомыми данными и вывод информации в текстовом поле).

2.5 Протестировать программу

Программа работает корректно и показывает динамику роста населения по Самарской области.

Заключение

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

Приложение

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

unit Unit1;

interface

uses

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

Dialogs, Grids, DBGrids, OleCtrls, VCFI, OleServer, ExcelXP, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton; // кнопка Рассчитать

Button3: TButton; // кнопка Exit

StringGrid1: TStringGrid; // таблица с исходными данными

Label9: TLabel;

StringGrid2: TStringGrid; // таблица с искомыми данными

Label1: TLabel;

Button2: TButton; // кнопка Clear

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

//процедура вызывается при активизации формы

procedure FormActivate(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var // объявление массива Chis [3,6] и переменных используемых в программе

Form1: TForm1;

i,j,ii:integer;

jj:real;

Chis:array[1..3,1..6] of real =

((3282.4,3305,3311.5,3310.4,3309.4,3308),

(13.4,12.1,8.6,8.0,7.7,7.8),

(10.5,10.9,14.8,14.3,13.4,13.6));

implementation

{$R *.dfm}

// процедура расчёта естественного прироста по Самарской области. Вывод результатов в таблице StringGrid2 и текстовом поле Edit1

procedure TForm1.Button1Click(Sender: TObject);

begin

for i:=1 to 6 do

StringGrid2.Cells[i,1]:= FloatToStr(Chis[2,i]- Chis[3,i]);

if StrToFloat(StringGrid2.Cells[6,1])>0 then

Edit1.Text:='Население увеличивается'

else Edit1.Text:='Население уменьшается';

end;

// процедура заполнения таблицы StringGrid1 исходными данными из массива Chis[3,6]

procedure TForm1.FormActivate(Sender: TObject);

begin

Button1.SetFocus();

j:=1999;

StringGrid1.Cells[0,1]:='Численность';

StringGrid1.Cells[0,2]:='Рождаемость';

StringGrid1.Cells[0,3]:='Смертность';

StringGrid1.Cells[0,0]:='Год';

StringGrid2.Cells[0,0]:='Год';

StringGrid2.Cells[0,1]:='Прирост';

StringGrid1.ColWidths[0]:=85;

StringGrid2.ColWidths[0]:=85;

for i:=1 to 6 do

begin

StringGrid1.Cells[i,0]:= IntToStr(j);

StringGrid2.Cells[i,0]:= IntToStr(j);

end;

for i:=1 to 6 do

for ii:=1 to 3 do

begin

StringGrid1.Cells[i,ii]:=FloatToStr(Chis[ii,i]);

if i<=5 then jj:=jj+(Chis[ii,i+1]- Chis[ii,i]);

j:=j+1;

end;

end;

// процедура закрытия программы

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

// процедура очистки таблицы StringGrid2 и текстового поля Edit1

procedure TForm1.Button2Click(Sender: TObject);

begin

for i:=1 to 6 do

StringGrid2.Cells[i,1]:= '';

Edit1.Clear();

end;

end.

Список литературы

1. Delphi 7: Карманный справочник с примерами. Абрамян М.Э., "КУДИЦ-Образ" - 2006,

2. Delphi 7: Учебный курс. Бобровский С.И., "Питер" - 2006

3. Delphi в задачах и примерах . Культин Н.Б., "БХВ-Петербург" - 2006

4. Дарахвелидае П. Г., Марков Е. П. "Программирование в Delphi 7"

5. Шпак Ю.А. "Delphi 7 на примерах"

6. Баженова Ю. И. "Delphi 7 Самоучитель Программиста"

7. Пестриков В., Маслобоев А. "Delphi на примерах"

8. Ю. Голубчиков «Демографические беды России» журнал «Энергия: экономика, техника, экология» 10/99.

9. В. Румянцев. Газета «Костромской курьер» № 13. 1.05.2005.

10. В. Ишшункин. «Многообещающая демография России». ОБЖ, март 2005.

11. И. Медведева, Т. Шилова «Демографическая война против России» Москва 2005г.

12. Национальный доклад о положении в области народонаселения в РФ в 1999 - 2004гг. Москва, 2005

13. Ю. Гладких, С. Лавров. Учебник «Экономическая и социальная география».

14. Москва «Просвещение» 2005г.

15. «Социология в России» под редакцией В. Ядова. Москва, Институт социологии РАМ 2004г.

16. А. Ткаченко «Выходит ли Россия из демографического кризиса?». «Социально - политический журнал» 5/96.

17. Ю. Александров «Мальтузианство поневоле». Журнал «Новое время» 7/2005.

18. Воронин В.В. Трудоресурсный потенциал в условиях реструктуризации отраслей хозяйственного комплекса. Самара: изд-во Самарск. Гос. Эконом. Акад., 2005.

19. Воронин В.В. Экономическая география Российской Федерации. Самара: изд-во

20. Самарск. Гос. Экон. Акад., 2004. Ч.1.

21. Демографический энциклопедический словарь. М.: Сов. энцикл., 2003.

22. Демографический статистический ежегодник. Самара, 2006.

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