Экономико-математическое моделирование

Расчет финансового левериджа


                 Министерство торговли Российской Федерации
                   Московский государственный университет
                                  коммерции


                            Краснодарский филиал
                                                               Факультет УФФ
                                                                   Курс 1-ый
                                                                 Группа 0212



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

                   по курсу:”Информатика и вычислительная
                                  техника”
                   на тему:”Расчет финансового левериджа”

Выполнил :
Студентка
Торичнева Н.А.


                                                              Руководитель :
                                                            Ст.преподаватель
                                                              Николаева И.В.


                          Курсовая работа защищена
                            “____”________1999 г.
                              Оценка _________


                              Краснодар 1999 г.

                                 СОДЕРЖАНИЕ

Введение....................................................................
...3
1.Задание на выполнение курсовой работы ..........4
2.Анализ проблемы ...................................................5
3. Разработка интерфейса пользователя ............6
4. Список идентификаторов ..................................7
5. Схема алгоритма ..................................................8
6. Текст программы ..................................................9
7. Результат выполнения программы на
    компьютере
...........................................................14
8. Тестовая задача ....................................................15
9. Сравнительный анализ результата выполнения
    задачи на компьютере и тестовой задачи ......15
10. Руководство пользователя ...............................16
Заключение................................................................17

Литература..............................................................18

                                  Введение.

    Использование   ЭВМ   позволяет   облегчить   работу   с    информацией
представителям  самых  разных  профессий.  Существуют  готовые  многоцелевые
программные продукты для различных видов работ - текстовые  редакторы,  базы
данных, электронные таблицы и т.д. Но  иногда  удобнее  составить  небольшую
программу решения конкретных задач. Для этого можно  использовать  различные
языки программирования - Паскаль, Си, FoxPro и другие. Язык Visual  Basic  и
ему подобные удобен для таких целей, т.к. имеет очень  удобный  интерфейс  и
при минимальном затрате времени позволяет  получить  хороший  результат.  На
примере предложенного задания рассмотрим применение этого языка для  решения
задачи.

                                  Задание.

                        Расчет финансового левериджа.
    Разработать циклическую  схему  алгоритма  и  программу  с  защитой  от
неправильного ввода исходных данных для расчета финансового левериджа.
    Финансовый  леверидж  является  показателем   финансовой   устойчивости
акционерного общества и определяется соотношением :
                          О+А1
               Л =  ------------
                            А2
    Где Л - уровень левериджа;
           О - облигации, руб;
          А1 - привелегерованные акции, руб;
          А2 - обыкновенные акции, руб.
    Разработать и решить контрольный пример расчета  финансового  левериджа
для каждого из 8 акционерных обществ и среднего значения левериджа.

                              Анализ проблемы.

    При покупки акций и облигаций одного  акционерного  общества  инвестору
следует исходить из принципа финансового левериджа.
    Финансовый леверидж (англ. Leverage - средство для  достижения  цели  )
представляет  собой  соотношение  между  облигациями  и   привелегированными
акциями с одной стороны, и обыкновенными акциями с другой.
               О+А1
    Л =  ------------
                 А2
    Где Л - уровень левериджа; О - облигации, руб; А1  -  привелегерованные
акции, руб; А2 - обыкновенные акции, руб.
    Финансовый  леверидж  является  показателем   финансовой   устойчивости
акционерного  общества,  что  отражается   и   на   доходности   портфельных
инвестиций. Высокий уровень левериджа - явление опасное,  так  как  ведет  к
финансовой неустойчивости.
    Пример : Акционерное общество  выпустило  10%-ные  облигации  на  сумму
10.000.000 рублей, привелегированные акции  на  сумму  2.000.000  рублей,  с
фиксированным дивидендом  40%  и  обыкновенные  акции  на  сумму  20.000.000
рублей, то есть акции общества имеют высокий уровень левериджа

                         10+2
             Л =    ----------  =  0,6
                           20
Прибыль  общества   к   распределению   составляет   2.200.000   рублей   ее
распределяют следующим  образом  :  на  уплату  процентов  по  облигациям  -
1.000.000  рублей,  на  дивиденды  по  привелегированным  акциям  -  800.000
рублей, на дивиденды по обыкновенным акциям - 400.000  рублей.  Если  прибыл
снизится до 1.100.000 рублей, то акционерное общество не только “съест”  то,
что предназначалось на выплату дивидендов по обыкновенным акциям,  но  и  не
сможет за счет прибыли выплатить дивиденды по  привелегированным  акциям.  В
этом заключается опасность акций с высоким уровнем левериджа  и  проявляется
основная слабость тех обществ у которых имеется большая сумма долга  в  виде
облигаций и привелегированных акций. Осторожные  инвесторы  обычно  избегают
покупки таких ценных бумаг.


                           Список идентификаторов.


kol - количество обсчитанных акционерных обществ (Integer).
summa - сумма финансового левериджа всех обсчитанных АО (Single).
pr_ak - цена привелегированных акций текущего АО (Currency).
ob_ak - цена обыкновенных акций текущего АО (Currency).
obl - цена облигаций текущего АО (Currency).
lev - значение финансового левериджа текущего АО (Currency).
t1,t2 - промежуточные переменные (String).



                           Таблица свойств формы.


Begin Form FIN_LEV
   Caption         =   "Расчет финансового левериджа"
   ClientHeight    =   4560
   ClientLeft      =   1410
   ClientTop       =   1995
   ClientWidth     =   7305
   Height          =   4965
   Icon            =   (Icon)
   Left            =   1350
   LinkTopic       =   "Form1"
   ScaleHeight     =   304
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   487
   Top             =   1650
   Width           =   7425

   Begin CommandButton EXT
      Caption         =   "ВЫХОД"
      Height          =   495
      Left            =   5040
      TabIndex        =   7
      Top             =   3960
      Width           =   1455
   End

   Begin CommandButton calc
      Caption         =   "РАСЧЕТ"
      Height          =   495
      Left            =   720
      TabIndex        =   6
      Top             =   3960
      Width           =   1455
   End

   Begin TextBox V_OB_AK
      Height          =   375
      Left            =   3240
      TabIndex        =   5
      Text            =   "0"
      Top             =   2400
      Width           =   2295
   End

   Begin TextBox V_PR_AK
      Height          =   375
      Left            =   3240
      TabIndex        =   4
      Text            =   "0"
      Top             =   1560
      Width           =   2295
   End

   Begin TextBox V_obl
      Height          =   375
      Left            =   3240
      TabIndex        =   1
      Text            =   "0"
      Top             =   720
      Width           =   2295
   End

   Begin Label srd_lev
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Средний финансовый леверидж пока не вычислен"
      Height          =   255
      Left            =   120
      TabIndex        =   10
      Top             =   3480
      Width           =   6975
   End

   Begin Label Titul
      Caption         =   "Расчет 1"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   13.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   2520
      TabIndex        =   9
      Top             =   120
      Width           =   2295
   End



   Begin Label vivod
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Финансовый леверидж пока не вычислен"
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   3000
      Width           =   6975
   End


   Begin Label T_OB_AK
      Caption         =   "Введите обыкновенные акции , руб"
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Top             =   2400
      Width           =   2895
   End

   Begin Label T_PR_AK
      Caption         =   "Введите привелегированные акции , руб"
      Height          =   495
      Left            =   120
      TabIndex        =   2
      Top             =   1560
      Width           =   2895
   End

   Begin Label T_obl
      Caption         =   "Введите облигации , руб"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   840
      Width           =   2895
   End
End

                              Текст программы.

Module fin_lev.bas
  Global kol As Integer
  Global summa As Single
End Module

Sub calc_Click ()
  If Val(v_obl.Text) < 0 Then
       MsgBox "Не все введено"
       Exit Sub
     End If
  If Val(v_pr_ak.Text) < 0 Then
      MsgBox "Не все введено"
      Exit Sub
    End If
  If Val(v_ob_ak.Text) <= 0 Then
       MsgBox "Неверные данные"
       Exit Sub
     End If
  obl = Val(v_obl.Text)
  pr_ak = Val(v_pr_ak.Text)
  ob_ak = Val(v_ob_ak.Text)
  lev = (obl + pr_ak) / ob_ak
  kol = kol + 1
  t1 = "Финансовый леверидж предприятия №"
  vivod.Caption = t1 + Str(kol) + " равен " + Mid$(Str(lev), 1, 10)
  summa = summa + lev
  t1 = "Среднее значение левериджа "
  t2 = " предприятий равно "
  srd_lev.Caption = t1 + Str(kol) + t2 + Str(summa / kol)
  titul.Caption = "Расчет #" + Str(kol + 1)
  v_pr_ak.Text = "0"
  v_obl.Text = "0"
  v_ob_ak.Text = "0"
End Sub

Sub EXT_Click ()
  End
End Sub

Sub Form_Load ()
  kol = 0
  summa = 0
End Sub

Sub V_OB_AK_Change ()
  If Val(v_ob_ak.Text) < 0 Then
      MsgBox "Требуется ввести положительное число"
      v_ob_ak.Text = "0"
  End If
End Sub

Sub V_obl_Change ()
  If Val(v_obl.Text) < 0 Then
      MsgBox "Требуется ввести положительное число"
      v_obl.Text = "0"
  End If
End Sub

Sub V_PR_AK_Change ()
  If Val(v_pr_ak.Text) < 0 Then
      MsgBox "Требуется ввести положительное число"
      v_pr_ak.Text = "0"
  End If
End Sub



                              Тестовая задача.

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

|     |Облигации (млн.руб) |Привелегированные   |Обыкновенные        |
|     |                    |акции(млн.руб)      |акции(млн.руб)      |
|1    |10                  |2                   |20                  |
|2    |14                  |8                   |31                  |
|3    |18                  |4                   |22                  |
|4    |14                  |0                   |18                  |
|5    |9                   |12                  |60                  |
|6    |0                   |7                   |3.5                 |
|7    |0.8                 |0.4                 |2.1                 |
|8    |0.3                 |0.5                 |1.3                 |



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


|         |Значение левериджа полученное|Значение левериджа полученное|
|         |на                           |на калькуляторе              |
|         |Компьютере                   |                             |
|1        |0.600                        |0.600                        |
|2        |0.710                        |0.710                        |
|3        |1.000                        |1.000                        |
|4        |0.778                        |0.778                        |
|5        |0.350                        |0.350                        |
|6        |2.000                        |2.000                        |
|7        |0.571                        |0.571                        |
|8        |0.615                        |0.615                        |
|среднее  |0.828                        |0.828                        |
|значение |                             |                             |
                          Руководство пользователя.


    После запуска программы на экране появляется пустая форма. Пользователю
необходимо ввести  данные  для  первого  акционерного  общества  (  в  любом
порядке)  -  стоимость  выпущенных  облигаций,  привелегированных  акций   и
обыкновенных акций. Стоимость  облигаций  и  привелегированных  акций  может
быть любым не отрицательным  числом,  стоимость  обыкновенных  акций  должна
быть положительным числом.
    После  ввода  данных  нажать  кнопку  РАСЧЕТ  и  если  данные   введены
правильно, то производится  вычисление  финансового  левериджа  для  данного
акционерного общества. После вычисления происходит очистка полей  ввода  для
ввода  следующих  данных.  Пока  кнопка  РАСЧЕТ  не  нажата  можно  изменять
значение вводимых данных.
    При  нажатии кнопки РАСЧЕТ производится  вычисление  среднего  значения
финансового левериджа для введенных уже акционерных обществ.
    Если нужно вычислить среднее значение финансового левериджа для  другой
группы акционерных обществ, то необходимо выйти из программы ( нажав  кнопку
ВЫХОД) и запустить программу снова. Значение левериджа и среднего  левериджа
вычисляется с точностью до 10 знаков.

                                 Заключение.

    Применение ЭВМ  во  многих  видах  деятельности  уже  сейчас  позволяет
существенно упростить работу людей по подготовке, накоплению  и  переработке
информации, проведению проектных работ и научных  исследований.  Электронно-
вычислительные машины уже есть в школах, и они будут помогать  при  изучении
физики и математики, химии и биологии и многих других учебных предметов.
    Умение общаться с ЭВМ и использовать их в  своей  работе,  так  же  как
умение  пользоваться  ручкой  в  ближайшие  10-15  лет  станет   необходимым
практически для  всех  взрослых  и  детей  и  составит  основу  компьютерной
грамотности[1].
    Умение эффективно использовать ЭВМ в работе  предполагает  определенную
культуру. Она включает в  себя  знание  основных  возможностей  ЭВМ;  умение
четко ставить задачи, составлять планы их решения и записывать их  в  форме,
понятной ЭВМ; умение выделять  данные  для  решения  задач  и  анализировать
получаемые результаты. Эта культура опирается на  знание  законов  логики  и
информатики.

                                 Литература.


    1. Маркова “Информатика”.
    2. Маркус Линке “Visual Basic 5.0 справочник” - перевод с немецкого
издательство “Бином”.
    3.Зельднер Г.А. “Quick Basic для носорога” - Омск 1994 год
    4. Microsoft Visual Basic Шаг за шагом/
    5. Балабанов И.Т. “Основы финансового менеджмента”.


-----------------------
[1] Компьютерная грамотность - это умение читать и писать, считать и
рисовать, а так же искать информацию, применяя ЭВМ.



смотреть на рефераты похожие на "Расчет финансового левериджа "