Определение эффективности использования сельхозугодий с помощью языка программирования Delphi 7.0

lign:center;line-height:14pt">2.2 Использование языка  программирования Delphi в определении эффективности использования сельхозугодий

 

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

 

Согласно этому алгоритму  было создано программное приложение, окно формы которого представлено ниже (рис. 1).

Рис 1. Окно формы программного приложения, определяющего  эффективность использования сельхозугодий

Окно формы состоит из трех частей. В первой части предлагается вести исходные данные, которые мы взяли из годового отчета сельскохозяйственной организации: форма №9-АПК из справки п. 10, форма №9-АПК I, II, форма №13-АПК, форма №15-АПК.  Данные для тестового вычисления представлены в таблице 1. 

Показатель	20   г.	20   г.	20   г.	20    г. в % к
				20   г.	20   г.
Площадь сельхозугодий, га	4000	4000	4000
в т.ч. пашня	2000	2500	3500
посевы, га	1300	1180	1775
зерновые	500	501	575
картофель	−	−	−
кормовые          культуры	500	1100	1200
Валовая продукция в сопоставимых ценах, тыс. руб.	7843	7939	7772
Товарная продукция в  ценах реализации, тыс. руб.	5787	5942	5674
Прибыль, тыс. руб.	+434	+26	+23
Произведено, ц	−	−	−
зерна	−	−	950
картофеля	−	−	−
молока	3337	3801	2898
мяса	139	132	43
шерсти	16	10	3
Поголовье условного скота, гол.	325,78	325,78	325,78

Таблица 1-Данные для расчета  эффективности использования сельхозугодий

 

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

Расчет по стоимостным  показателям:

• выход валовой продукции на 100 га сельхозугодий (пашни);  
• выход товарной продукции на 100 га сельхозугодий (пашни);
• прибыль от реализации сельскохозяйственной продукции на 100 га.

 

Расчет по натуральным  показателям:

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

Расчет по относительным  показателям:

• интенсивность использования сельскохозяйственных угодий, %;
• удельный вес пашни в структуре сельскохозяйственных угодий;       
• удельный вес посевов кормовых культур в площади пашни.

Тестовые вычисления показали следующие результаты (см. табл.2):

Показатель	Расчетные   данные
Произведено на 100 га сельхозугодий, ц:
зерна	0	0	23,75
картофеля	0	0	0
молока	83,42	95,03	72,45
мяса	3,48	3,3	1,07
шерсти	0,40	0,25	0,07
Произведено на 100 га пашни, ц:
зерна	0	0	27,14
картофеля	0	0	0
Урожайность, ц/га:
зерна	0	0	53,52
картофеля	0	0	0
Общая площадь кормовых культур  в расчете на 1 условную голову, га:	153,37	337,42	368,10
Произведено на 100 га кормовых культур (пастбищ, сенокосов):
молока	667,4	345,55	241,50
мяса	27,8	12,00	3,58
шерсти	3,2	0,91	0,25
Интенсивность использования  сельхозугодий,%	40,0	50,0	70,0
Распаханность сельхозугодий, %	50,0	62,5	87,5
Удельный вес кормовых культур в площади пашни, %	25,0	44,0	34,3
Стоимость валовой продукции  на 100 га, тыс.руб.
сельхозугодий	196,07	198,47	194,30
пашни	392,15	317,56	222,06
Стоимость товарной продукции  на 100 га, тыс.руб.
сельхозугодий	144,68	148,55	141,85
пашни	289,35	237,68	162,11
Прибыль на 100 га:
сельхозугодий	10,85	0,65	0,57
пашни	21,70	1,04	0,66

Таблица 2. Расчет эффективности использования сельскохозяйственных угодий

В третьей части представлен  компонент Memo1, который выводит и сохраняет данные. Согласно коду программы файл сохраняется в C:\1.txt.

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

 

 

 

 

Рис 2. Расчет эффективности использования сельхозугодий 

Заключение

 

В ходе выполнения курсовой работы была разработана программа  на языке высокого уровня Delphi 7.0 для определения эффективности использования сельскохозяйственных угодий. Данная программа позволяет  сократить время расчета, чем это делалось бы вручную.

Для реализации программы  вычисления был разработан алгоритм.

При разработке программы  были использованы следующие компоненты: Label, Edit, Button и Memo.

Программа прошла тестирование и отладку на тестовых наборах данных,  представленных кафедрой «Экономика сельского хозяйства».

Интерфейс программы совместим  с Windows-интерфейсом благодаря тому, что программа, в которой разрабатывалась курсовая работа, Delphi 7.0 предоставляет такую возможность и поддерживает именно Windows-интерфейс.

Данная курсовая работа была выполнена в полном соответствии поставленному заданию.  

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

 

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

 

1. Фаронов В.В. Delphi 7.0. Начальный курс. - М.: Нолидж, 2000.
2. Зуев Е.А. Программирование на языке Delphi 6.0,7.0. – М.: Радио и связь, Веста, 1993.
3. Фокс Дж. Программное обеспечение и его разработка. М.:Мир, 1985. - 368 с.
4. Иванов А.Г., Карпова А.В., Семик В.П., Филинов Ю.Е. Объектно-ориентированная среда программирования. Системы и средства информатики. Вып.2. М.: Наука, 1991.
5. Объектно-ориентированный подход технологии программирования/ Иванов А.Г., Пятницкий А.А, Филинов Ю.Е. – СПб.: Питер, 2003. – 443 с.: ил.
6. Макаров А.А. Лукашин Ю.П. Объектно-ориентированный подход в программировании. – М.: Финансы и статистика, 2000. – 356 с.
7. Экономика и управление в сельском хозяйстве: Учебник для студ. сред. проф. учеб. заведений/ Г.А. Петранева, А.В. Мефед, М.П. Тушканов и др. - М.: «Академия», 2003. - 352 с.;
8. Яковлев В.Б., Корнев Г.Н. Анализ эффективности сельскохозяйственного производства. - М.: Росагропроьиздат, 1990. - 270 с.;
9. Родин В.К. «К эффективному использованию сельхозугодий». // Экономика сельского хозяйства России. 2000. №5;
10.   Апальков И.Е., Смирнов А.С. Экономика, организация и планирование сельскохозяйственного производства.- 3-е изд., доп. и перераб. - М.: Колос.1980.- 576 с.
11.     Сулин М. А. Землеустройство. — СПб.: Издательство «Лань», 2005. — 448 с. — (Учебники для вузов. Специальная литература).
12. Кухтин П.В., Левов А.А., Морозов В.Ю., Руднев А.В., Семкина О.С., Хованова Н.В. Управление земельными ресурсами: Учебное пособие. 2-е изд. - СПб.: Питер, 2006. - 448с. 
    

Приложения

Приложение 1. 

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

unit Unit1;

 

interface

 

uses

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

  Dialogs, Grids, StdCtrls, ComCtrls, Printers;

 

type

  TForm1 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    Label77: TLabel;

    Label78: TLabel;

    Label79: TLabel;

    Label80: TLabel;

    Label81: TLabel;

    Label82: TLabel;

    Label83: TLabel;

    Label84: TLabel;

    Label85: TLabel;

    Label86: TLabel;

    Label87: TLabel;

    Label88: TLabel;

    Label89: TLabel;

    Label90: TLabel;

    Label91: TLabel;

    Label92: TLabel;

    Label93: TLabel;

    Label94: TLabel;

    Label95: TLabel;

    Label96: TLabel;

    Edit20: TEdit;

    Edit21: TEdit;

    Edit22: TEdit;

    Edit23: TEdit;

    Edit24: TEdit;

    Edit25: TEdit;

    Edit26: TEdit;

    Edit27: TEdit;

    Edit28: TEdit;

    Edit29: TEdit;

    Edit30: TEdit;

    Edit31: TEdit;

    Edit32: TEdit;

    Edit33: TEdit;

    Edit34: TEdit;

    Edit35: TEdit;

    Edit36: TEdit;

    Edit37: TEdit;

    Edit38: TEdit;

    TabSheet2: TTabSheet;

    Label97: TLabel;

    TabSheet3: TTabSheet;

    Label98: TLabel;

    Label99: TLabel;

    Label100: TLabel;

    Label101: TLabel;

    Label102: TLabel;

    Label103: TLabel;

    Label104: TLabel;

    Label105: TLabel;

    Label106: TLabel;

    Label107: TLabel;

    Label108: TLabel;

    Label109: TLabel;

    Label110: TLabel;

    Label111: TLabel;

    Label112: TLabel;

    Label113: TLabel;

    Label114: TLabel;

    Label115: TLabel;

    Label116: TLabel;

    Label117: TLabel;

    Label118: TLabel;

    Label119: TLabel;

    Label120: TLabel;

    Label121: TLabel;

    Label122: TLabel;

    Label123: TLabel;

    Label124: TLabel;

    Label125: TLabel;

    Label126: TLabel;

    Label127: TLabel;

    Label128: TLabel;

    Label129: TLabel;

    Label130: TLabel;

    Label131: TLabel;

    Label132: TLabel;

    Label133: TLabel;

    Label134: TLabel;

    Label135: TLabel;

    Label136: TLabel;

    Label137: TLabel;

    Label138: TLabel;

    Label139: TLabel;

    Label140: TLabel;

    Label141: TLabel;

    Label142: TLabel;

    Label143: TLabel;

    Label144: TLabel;

    Label145: TLabel;

    Label146: TLabel;

    Label147: TLabel;

    Label148: TLabel;

    Label149: TLabel;

    Label150: TLabel;

    Label151: TLabel;

    Label152: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    PrintDialog1: TPrintDialog;

    Memo2: TMemo;

    SaveDialog1: TSaveDialog;

    Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

   

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

S{Площадь сельхозугодий}, S1{Пашня}, S2{посевы}, S3{зерновые}, S4{картофель}, KK{кормовые культуры}, VP{Валовая продукция в сопоставимых целях}, TP{Товарная продукция в ценах реализации}, P{Прибыль}, Pr{Прозведено}, Z{зерно}, K{картофель}, M{молоко}, MS{мясо}, SH{шерсть}, Pys{Поголовье условного скота}, SZ{Площадь Земли}, Ov{овощи}, Sil{силос}:real;

PrZ, PrK, PrM , PrMS, PrSH, PrPZ, PrPK, YZ, YK, PrKKM, PrKKMS, PrKKSH, Isy, RS,YKK, SKK, StSY, StP, STPsy, STPp, Psy, Pp, PrOv, PrSil:real;

Start,stop,i:integer;

 FName:string;

 

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

S:=StrToInt(Edit20.Text);

S1:=StrToInt(Edit21.Text);

S2:=StrToInt(Edit22.Text);

S3:=StrToInt(Edit23.Text);

S4:=StrToInt(Edit24.Text);

KK:=StrToInt(Edit25.Text);

VP:=StrToInt(Edit26.Text);

TP:=StrToInt(Edit27.Text);

P:=StrToInt(Edit28.Text);

Pr:=StrToInt(Edit29.Text);

Z:=StrToInt(Edit30.Text);

K:=StrToInt(Edit31.Text);

M:=StrToInt(Edit32.Text);

MS:=StrToInt(Edit33.Text);

SH:=StrToInt(Edit34.Text);

Pys:=StrToInt(Edit37.Text);

SZ:=StrToInt(Edit38.Text);

Ov:=StrToInt(Edit35.Text);

Sil:=StrToInt(Edit36.Text);

PrZ:=Z/S*100;      {Произведено на 100 га сельхозугодий зерна}

PrK:=K/S*100;      {Произведено на 100 га сельхозугодий картофеля}

PrM:=M/S*100;      {Произведено на 100 га сельхозугодий молока}

PrMS:=MS/S*100;    {Произведено на 100 га сельхозугодий мяса}

PrSH:=SH/S*100;    {Произведено на 100 га сельхозугодий шерсти}

PrPZ:=Z/S1*100;    {Произведено на 100 га пашни зерна}

PrPK:=K/S1*100;    {Произведено на 100 га пашни картофеля}

YZ:=Z/S2*100;       {Урожайность зерна}

SKK:=KK/Pys*100;    {Произведено на 100 га кормовых культур молока}

PrKKM:=M/KK*100;    {Произведено на 100 га кормовых культур молока}

PrKKMS:=MS/KK*100; {Произведено на 100 га корм.культ. мяса}

PrKKSH:=SH/KK*100; {Произведено на 100 га корм.культ. шерсти}

Isy:=S1/SZ*100;    {Интенсивность использования сельхозугодий}

RS:=S1/S*100;      {Распаханность сельхозугодий}

YKK:=KK/S1*100;    {Удельный вес корм.культ. в площади пашни}

StSY:=VP/S*100;    {Стоимость валовой продукции на 100 га сельхозугодий}

StP:=VP/S1*100;    {Стоимость валовой продукции на 100 га пашни}

STPsy:=TP/S*100;   {Стоимость товарной продукции на 100 га сельхозугодий}

STPp:=TP/S1*100;   {Стоимость товарной продукции на 100 га пашни}

Psy:=P/S*100;      {Прибыль на 100 га сельхозугодий}

Pp:=P/S1*100;      {Прибыль на 100 га пашни}

PrOv:=Ov/S*100;    {Произведено на 100 га сельхозугодий овощей}

PrSil:=Sil/S*100;  {Произведено на 100 га сельхозугодий силоса}

YK:=K/S2*100;      {Урожайность картофеля}

 

Label121.Caption:=FloatToStrF(PrZ,fffixed,6,2);

Label122.Caption:=FloatToStrF(PrK,fffixed,6,2);

Label123.Caption:=FloatToStrF(PrM,fffixed,6,2);

Label124.Caption:=FloatToStrF(PrMS,fffixed,6,2);

Label125.Caption:=FloatToStrF(PrSH,fffixed,6,2);

Label126.Caption:=FloatToStrF(PrPZ,fffixed,6,2);

Label127.Caption:=FloatToStrF(PrPK,fffixed,6,2);

Label128.Caption:=FloatToStrF(YZ,fffixed,6,2);

Label129.Caption:=FloatToStrF(YK,fffixed,6,2);

Label142.Caption:=FloatToStrF(SKK,fffixed,6,2);

Label130.Caption:=FloatToStrF(PrKKM,fffixed,6,2);

Label131.Caption:=FloatToStrF(PrKKMS,fffixed,6,2);

Label132.Caption:=FloatToStrF(PrKKSH,fffixed,6,2);

Label133.Caption:=FloatToStrF(Isy,fffixed,6,1);

Label134.Caption:=FloatToStrF(RS,fffixed,6,1);

Label135.Caption:=FloatToStrF(YKK,fffixed,6,1);

Label141.Caption:=FloatToStrF(PrOv,fffixed,6,2);

Label136.Caption:=FloatToStrF(StSY,fffixed,6,2);

Label137.Caption:=FloatToStrF(StP,fffixed,6,2);

Label140.Caption:=FloatToStrF(PrSil,fffixed,6,2);

Label149.Caption:=FloatToStrF(STPsy,fffixed,6,2);

Label150.Caption:=FloatToStrF(STPp,fffixed,6,2);

Label151.Caption:=FloatToStrF(Psy,fffixed,6,2);

Label152.Caption:=FloatToStrF(Pp,fffixed,6,2);