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

СОДЕРЖАНИЕ Введение .......................................................................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 ClientTo p = 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 E nd 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 Su b 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) sum ma = summa + lev t1 = "Среднее значение левериджа " t2 = " предприятий равно " srd _ lev . Caption = t 1 + Str ( kol ) + t 2 + 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 Va l(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 2 8 4 0 12 7 0.4 0.5 20 31 22 18 60 3.5 2.1 1.3 Сравнительный анализ результата выполнения на компьютере и тестовой задачи. Значение левериджа полученное на Компьютере Значение левериджа полученное на калькулятор е 1 2 3 4 5 6 7 8 0.600 0.710 1.000 0.778 0.350 2.000 0.571 0.615 0.600 0.710 1.000 0.778 0.350 2.000 0.571 0.615 среднее значение 0.828 0.828 Руководство по льзователя. После запуска программы на экране появляется пустая фо рма . Пользователю необходимо ввести данные для первого акционерного общества ( в люб ом порядке ) - стоимость выпущенных облигаций , пр ивелегированных акций и обыкновенных акций . С тоимость облигаций и привелегированных акций может быть любым не отрицательным числом , стоимость обыкновен н ых акций должна быть положительным числом. После ввода данных нажать кнопку РАСЧЕТ и если данные введены правильно , то производится вычисление финансового левериджа для данного акционерного общества . После вычисления происхо дит очистка полей ввода для ввод а следующих данных . Пока кнопка РАСЧЕТ не нажата можно изменять значение вводимых данных. При нажатии кнопки РАС ЧЕТ производится вычисление сре днего значения финансового левериджа для введ енных уже акционерных обществ . Если нужно вычислить среднее значен ие финансового левериджа для другой г руппы акционерных обществ , то необходимо выйт и из программы ( нажав кнопку ВЫХОД ) и запустить пр ограмму снова . Значение левериджа и среднего левериджа вычисляется с точностью до 10 зн аков. Заключение. Применение ЭВМ во многих в идах деятельности уже сейчас позволяет сущест венно упростить работу людей по подготовке , накоплению и переработке информации , проведени ю проектных работ и научных исследований . Электронно-вычислительные машины уже есть в ш колах , и они будут помог а ть пр и изучении физики и математики , химии и биологии и многих других учебных предметов. Умение общаться с ЭВМ и использовать их в своей работе , так же как уме ние пользоваться ручкой в ближайшие 10-15 лет станет необходимым практически для всех взро слых и детей и составит основу комп ьютерной грамотности Компьютерная грамотность - это умение читать и писать , считать и рисовать , а так же искать информацию , пр именяя ЭВМ. . Умение эффективно использовать ЭВМ в работе предполагает определенную культуру . Она вк лючает в себя знание основных во зможностей ЭВМ ; умение четко ставить задачи , составлять планы их решения и записывать их в форме , понятной ЭВМ ; умение выделят ь данные для решения задач и анализироват ь получаемые результаты . Эта культура опирает ся на знани е законов логики и информатики. Литература. 1. Маркова “Информатика”. 2. Маркус Линке “ Visual Basic 5.0 справочник” - перево д с немецкого издательство “Бином”. 3.Зельднер Г.А . “ Quick Basic для носорога” - Ом ск 1994 год 4. Microsoft Visual Basic Ша г за шаг о м / 5. Балабанов И.Т . “Основы фина нсового менеджмента”. 6 Разработка интерфейса пользователя. Результат выполнения программы на компьютере.