Задача по вычислению прибыли рентабельности производства

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

высшего профессионального  образования

«РОССИЙСКАЯ АКАДЕМИЯ НАРОДНОГО ХОЗЯЙСТВА и ГОСУДАРСТВЕННОЙ  СЛУЖБЫ

при Президенте Российской Федерации»

ЭКОНОМИЧЕСКИЙ ФАКУЛЬТЕТ

ОТДЕЛЕНИЕ БИЗНЕС-ИНФОРМАТИКИ

направление 080700.62 -Бизнес – информатика.

 

 

 

 

КУРСОВАЯ РАБОТА

 

ПО ДИСЦИПЛИНЕ «ВЫСОКОУРОВНЕНВЫЕ МЕТОДЫ ИНФОРМАТИКИ И ПРОГРАММИРОВАНИЯ»

 

НА ТЕМУ  «ЗАДАЧА ПО ВЫЧИСЛЕНИЮ ПРИБЫЛИ РЕНТАБЕЛЬНОСТИ ПРОИЗВОДСТВА»

 

 

 

 

 

Студента ____2__ курса

 

группы № ___2___

 

Фамилия _Белозёрова__________

Имя _Маргарита_______________

Отчество _Андреевна___________

Подпись студента _____________

 

 

 

Преподаватель __ Уманский Юрий Николаевич__

                                   (Ф.И.О.)

 

 

Оценка ______________

 

Подпись преподавателя ____________ 

 

 

 

          МОСКВА

2012

 

 

 

 

СОДЕРЖАНИЕ:

 

1. СЛОВЕСНОЕ ОПИСАНИЕ ЗАДАЧИ ……………………………….. 3
2. ЦЕЛИ …………………………………………………………………….4
3. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ……………………………………… 5
4. ЛОГИЧЕСКИЕ АЛГОРИТМЫ РЕШЕНИЯ ЗАДАЧИ……………………………… ………………………………. . 9
5. ПРОГРАММНЫЙ КОД ………………………………………………. 12

 

ВЫВОД ……………………………………………………………………….. 17

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1.  СЛОВЕСНОЕ ОПИСАНИЕ ЗАДАЧИ

При создании предприятия  его владелец вложил сумму 200 тыс. руб. Процесс производства осуществляется в здании, которое до организации предприятия он сдавал в аренду. Арендная плата составляла   50 тыс. руб./год. До организации предприятия его учредитель был наемным менеджером с годовой заработной платой 100 тыс. руб. 
 
          Деятельность созданного предприятия характеризуется следующими показателями:

Показатели	Значение
Объем производства, ед.	2 500
Цена (без НДС), руб./ед.	250
Среднегодовая стоимость  основных средств, тыс. руб.	300
Средние остатки оборотных  средств, тыс. руб.	100
Затраты, тыс. руб.:  - материальные  - по оплате труда наемных работников  - сумма начисленной амортизации  - прочие	100   75   80   70
Доходы от реализации излишнего имущества, тыс. руб.	25
Проценты, уплаченные за кредит, тыс. руб.	5
Налоги, уплачиваемые из прибыли, %	12
Валовые издержки, тыс. руб.	450
Ставка по срочным  депозитам, %	18

 
         

 

 

 

 

 

 

 

 

 

 

2. ЦЕЛИ

Целью выполнения курсовой работы является практическое использование  полученных базовых знаний о высокоуровневых методах информатики и программирования в среде Microsoft Visual Studio. А также практическое освоение современных технологий программирования и концепций создания программных приложений, развитие навыков самостоятельной работы, связанных с анализом, детализацией, выбором методов решения поставленных задач, планированием использования возможностей сред программирования.

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ. 

Данная работа была написана на ОС Windows 7. Сама задача была выполнена с помощью программы Microsoft Visual Studio.

 

1. ProRP = C * OPr – (MZ + ZOT + SNA + Oth),

где ProRP – прибыль от реализации продукции;

C – цена (без НДС);

OPr – объем производства;

MZ – материальные затраты;

ZOT – затраты по оплате труда наемных рабочих;

SNA – сумма начисленной амортизации;

Oth – прочие.

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

C = 250 руб./ед.;

OPr = 2 500 ед.;

MZ = 100 тыс. руб.;

ZOT = 75 тыс. руб.;

SNA = 80 тыс. руб.;

Oth = 70 тыс. руб..

Теперь, если подставить известные данные, мы можем найти  прибыль от реализации продукции.

ProRP = 250 * 2 500 – (100 000 + 75 000 + 80 000 + 70 000) = 300 000 руб.

Таким образом, прибыль  от реализации продукции равна 300 тыс. руб.

 

2. VPr = (ProRP2 + DoR) – Proc,

где VPr – валовая прибыль;

ProRP2 – прибыль от реализации продукции;

DoR – доходы от реализации излишнего имущества;

Proc – проценты, уплаченные за кредит.

 

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

ProRP2 = 300 тыс. руб.;

DoR = 25 тыс. руб.;

Proc = 5 тыс. руб..

Зная значения показателей, можно найти валовую прибыль.

VPr = 300 + 25 – 5 = 320 тыс. руб.

Таким образом, валовая  прибыль равна 320 тыс. руб.

 

3. ChPr = ValPr – (ValPr * (Nal / 100)),

где ChPr – чистая прибыль;

ValPr – валовая прибыль;

Nal – налоги, уплачиваемые из прибыли.

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

ValPr = 320 тыс. руб.;

Nal = 12 %.

Теперь можно узнать, чему равна чистая прибыль.

ChPr = 320 – (320 * (12 / 100))  = 281.6 тыс. руб.

Таким образом, чистая прибыль равна 281.6 тыс. руб.

 

4. RenPr = ProRP3 / (SSOS + SOOS) * 100 %,

где RenPr – рентабельность производства;

ProRP3 – прибыль от реализации продукции;

SSOS – среднегодовая стоимость основных средств;

SOOS – средние остатки оборотных средств.

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

ProRP3 = 300 тыс. руб.;

SSOS = 300 тыс. руб.;

 

SOOS = 100 тыс. руб..

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

RenPr = 300 / (300 + 100) * 100 % = 75 %.

Таким образом, рентабельность производства составляет 75 %.

 

5. RenProd = CInt((ProRP4 / ValIz) * 100 %),

где RenProd – рентабельность продукции;

CInt – округление числа до целого по правилам округления;

ProRP4 - прибыль от реализации продукции;

ValIz – валовые издержки.

В пятом разделе нужно  найти рентабельность продукции. Чтобы  это вычислить необходимо знать  значения показателей.

ProRP4 = 300 тыс. руб.;

ValIz = 450 тыс. руб..

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

RenProd = (300 / 450) * 100 % = 67 %.

Таким образом, рентабельность продукции составляет 67 %.

 

6. EcPr = ChPr – SOOS * (SpSd / 100) – DoR – ZP,

где EcPr – экономическая прибыль;

ChPr – чистая прибыль;

SOOS – средние остатки оборотных средств;

SpSd – ставка по срочным депозитам;

DoR – доходы от реализации излишнего имущества;

ZP – заработная плата.

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

ChPr = 281.6 тыс. руб.;

 

SOOS = 100 тыс. руб.;

SpSd = 18 %;

DoR = 25 тыс. руб.;

ZP = 100 тыс. руб..

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

EcPr = 281.6 – 100 * (18 / 100) – 25 – 100 = 138.6 тыс. руб.

Таким образом, экономическая  прибыль или прибыль рентабельности производства равна 138.6 тыс. руб.

 

 

 

 

 

 

 

 

 

 

 

4. ЛОГИЧЕСКИЕ АЛГОРИТМЫ РЕШЕНИЯ ЗАДАЧИ

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5.  ПРОГРАММНЫЙ КОД

1. Public Class FrmPRP
3.    
4.     Private Sub BtnProRP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProRP.Click
5.         Dim ProRP As Integer 'прибыль от реализации продукции
6.         Dim C As Integer 'цена
7.         Dim OPr As Integer 'объем производства
8.         Dim MZ As Integer 'материальные затраты
9.         Dim ZOT As Integer 'затраты оплаты труда
10.         Dim SNA As Integer 'сумма начисленной амортизации
11.         Dim Oth As Integer 'прочие
13.         'заполнение переменных
14.         C = Val(Trim(TxtCena.Text))
15.         OPr = Val(Trim(TxtOPr.Text))
16.         MZ = Val(Trim(TxtMZ.Text))
17.         ZOT = Val(Trim(TxtZOT.Text))
18.         SNA = Val(Trim(TxtSNA.Text))
19.         Oth = Val(Trim(TxtOth.Text))
21.         'вычисляем прибыль от реализации продукции
22.         ProRP = C * OPr - (MZ + ZOT + SNA + Oth)
24.         'вывод результата
25.         LabProRP.Text = "" & Str(ProRP) & " руб."
26.         LabProRP.Visible = True
28.         'проверка правильности вводных данных
29.         If OPr < 1300 Then
30.             MsgBox("Прибыль в убытке. Повторите ввод.", MsgBoxStyle.Critical, "Ошибка")
31.             Exit Sub 'принудительный выход из процедуры
32.         End If
34.         'проверка правильности вводных данных
35.         If C < 130 Then
36.             MsgBox("Необходимо поднять цену продукции. Введите новые данные", MsgBoxStyle.Critical, "Ошибка")
37.             Exit Sub 'принудительный выход из процедуры
38.         End If
39.     End Sub
41.     Private Sub BtnProRP2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProRP2.Click
42.         'сброс все введенных и полученных чисел
43.         TxtCena.Text = ""
44.         TxtOPr.Text = ""
45.         TxtMZ.Text = ""
46.         TxtZOT.Text = ""
47.         TxtSNA.Text = ""
48.         TxtOth.Text = ""
49.         LabProRP.Text = ""
50.         LabProRP.Visible = False
51.     End Sub
53.     Private Sub BtnValPr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnValPr.Click
54.         Dim VPr As Integer 'валовая прибыль
55.         Dim ProRP2 As Integer 'прибыль от реализации продукции
56.         Dim DoR As Integer 'доходы от реализации излишнего имущества
57.         Dim Proc As Integer 'проценты, уплаченные за кредит
59.         'заполнение переменных

 

60.         ProRP2 = Val(Trim(TxtProRP.Text))
61.         DoR = Val(Trim(TxtDoR.Text))
62.         Proc = Val(Trim(TxtProc.Text))
64.         'вычисляем валовую прибыль
65.         VPr = (ProRP2 + DoR) - Proc
67.         'вывод результата
68.         LabValPr.Text = "" & Str(VPr) & " тыс. руб."
69.         LabValPr.Visible = True
70.     End Sub
72.     Private Sub BtnValPr2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnValPr2.Click
73.         'сброс всех введенных и полученных чисел
74.         TxtProRP.Text = ""
75.         TxtDoR.Text = ""
76.         TxtProc.Text = ""
77.         LabValPr.Text = ""
78.         LabValPr.Visible = False
79.     End Sub
81.     Private Sub BtnChPr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnChPr.Click
82.         Dim ChPr As Single 'чистая прибыль
83.         Dim ValPr As Integer 'валовая прибыль
84.         Dim Nal As Single 'налог, уплаченный из прибыли
86.         'заполнение переменных
87.         ValPr = Val(Trim(TxtValPr.Text))
88.         Nal = Val(Trim(TxtNal.Text))
90.         'вычисляем чистую прибыль
91.         ChPr = ValPr - (ValPr * (Nal / 100))
93.         'вывод результата
94.         LabChPr.Text = "" & Str(ChPr) & " тыс. руб."
95.         LabChPr.Visible = True
96.     End Sub
98.     Private Sub BtnChPr2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnChPr2.Click
99.         'сброс всех введенных и полученных чисел
100.         TxtValPr.Text = ""
101.        TxtNal.Text = ""
102.         LabChPr.Text = ""
103.         LabChPr.Visible = False
104.     End Sub
106.     Private Sub BtnRenPr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRenPr.Click
107.         Dim RenPr As Single 'рентабельность предприятия
108.         Dim ProRP3 As Integer 'прибыль от реализации продукции
109.         Dim SSOS As Integer 'среднегодовая стоимость основных средств
110.         Dim SOOS As Integer 'средние остатки оборотных средств
112.         'заполнение переменных
113.         ProRP3 = Val(Trim(TxtProRP2.Text))
114.         SSOS = Val(Trim(TxtSSOS.Text))
115.         SOOS = Val(Trim(TxtSOOS.Text))
117.         'вычисляем рентабельность предприятия
118.         RenPr = ProRP3 / (SSOS + SOOS) * 100%
120.         'вывод результата
121.         LabRenPr.Text = "" & Str(RenPr) & " % "
122.         LabRenPr.Visible = True