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

СОДЕРЖАНИЕ

Введение

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

Заключение

Литература

Введение

Использование ЭВМ позволяет облегчить работу с информацией представителям самых разных профессий. Существуют готовые многоцелевые программные продукты для различных видов работ — текстовые редакторы, базы данных, электронные таблицы и т. д. Но иногда удобнее составить небольшую программу решения конкретных задач. Для этого можно использовать различные языки программирования — Паскаль, Си, 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 акционерных обществ, а также рассчитать среднее значение левериджа для этих предприятий.