Министерство
торговли Российской
Федерации
Московский
государственный
университет
коммерции
Краснодарский
филиал
Факультет
УФФ
Курс
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
2
3
4
5
6
7
8
|
10
14
18
14
9
0
0.8
0.3
|
|
|