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

Московский государственный университет

коммерции

Краснодарский филиал

Факультет УФФ

Курс 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 и ему подобные удобен для таких целей, т.к. имеет очень удобный интерфейс и при минимальном затрате времени позволяет получить хороший результат. На примере предложенного задания рассмотрим применение этого языка для решения задачи.

Задание.

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

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

Финансовый леверидж является показателем финансовой устойчивости акционерного общества и определяется соотношением :

О+А₁

Л = ------------

А₂

Где Л - уровень левериджа;

О - облигации, руб;

А₁ - привелегерованные акции, руб;

А₂ - обыкновенные акции, руб.

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

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

При покупки акций и облигаций одного акционерного общества инвестору следует исходить из принципа финансового левериджа.

Финансовый леверидж (англ. Leverage - средство для достижения цели ) представляет собой соотношение между облигациями и привелегированными акциями с одной стороны, и обыкновенными акциями с другой.

О+А₁

Л = ------------

А₂

Где Л - уровень левериджа; О - облигации, руб; А₁ - привелегерованные акции, руб; А₂ - обыкновенные акции, руб.

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

Пример : Акционерное общество выпустило 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 акционерных обществ, а также рассчитать среднее значение левериджа для этих предприятий.

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

Руководство пользователя.

После запуска программы на экране появляется пустая форма. Пользователю необходимо ввести данные для первого акционерного общества ( в любом порядке) - стоимость выпущенных облигаций, привелегированных акций и обыкновенных акций. Стоимость облигаций и привелегированных акций может быть любым не отрицательным числом, стоимость обыкновенных акций должна быть положительным числом.

После ввода данных нажать кнопку РАСЧЕТ и если данные введены правильно, то производится вычисление финансового левериджа для данного акционерного общества. После вычисления происходит очистка полей ввода для ввода следующих данных. Пока кнопка РАСЧЕТ не нажата можно изменять значение вводимых данных.

При нажатии кнопки РАСЧЕТ производится вычисление среднего значения финансового левериджа для введенных уже акционерных обществ.

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

Заключение.

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

Умение общаться с ЭВМ и использовать их в своей работе, так же как умение пользоваться ручкой в ближайшие 10-15 лет станет необходимым практически для всех взрослых и детей и составит основу компьютерной грамотности¹.

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

Литература.

1. Маркова “Информатика”.

2. Маркус Линке “Visual Basic 5.0 справочник” - перевод с немецкого издательство “Бином”.

3.Зельднер Г.А. “Quick Basic для носорога” - Омск 1994 год

4. Microsoft Visual Basic Шаг за шагом/

5. Балабанов И.Т. “Основы финансового менеджмента”.

6

Разработка интерфейса пользователя.

Результат выполнения программы на компьютере.