Комплексный финансовый анализ эмитента ценных бумаг

      Проведена прикладная реализация метода, представляющая собой две программы, выполненные  в среде Borland C++ Builder. Первая из них предназначена для ввода экспертом приведенных выше необходимых данных. Вторая служит непосредственно для расчета значения критерия степени риска банкротства после ввода текущих значений показателей, определенных в первой программе, и задания способа построения вектора весов. Критерий принимает значения от 0 до 1 и может быть расценен по приведенной в работе шкале. Обе программы высоко устойчивы к различным ошибкам ввода и подходят для прикладного использования.

 

      Список  цитируемых источников 

      1. Недосекин, А.О. Применение теории нечетких множеств к задачам управления финансами / А. О. Недосекин // Аудит и финансовый анализ. – 2000. – №2.

      2. Заде, Л. Понятие лингвистической переменной и ее применение к принятию приближенных решений / Лофти Заде. – М.: Мир, 1976.

      3. Смоляк, С.А. Учет специфики инвестиционных проектов при оценке их эффективности / С. А. Смоляк // Аудит и финансовый анализ. – 1999. – №3.

      4. Налимов, В. В. Вероятностная модель языка. О соотношении естест-венных и искусственных языков / В. В. Налимов. – М.: Наука, 1979. –

С. 272 – 295.

      5. Кофман, А. Введение теории нечетких множеств в управлении предприятиями /А. Кофман, Х. Хил Алуха. – Минск: Высшая школа, 1992.

      6. Рыжов, А. П. Элементы теории нечетких множеств и измерения нечеткости / А. П. Рыжов. – М.: МГУ, 1998.

      7. Маркарьян, Э. А. Финансовый анализ / Э. А. Маркарьян, Г. П. Гера-сименко. – М.: ПРИОР, 1997. – 160 с.

• 8. Скоун, Т. Управленческий учет / Т. Скоун. – М.: ЮНИТИ, 1997. –
• 179 с.

      9. Давыдова, Г. В. Методика количественной оценки риска банкротства предприятий / Г. В. Давыдова, А. Ю. Беликов // Управление риском. – 1999. –  № 3. – С. 13 – 20.

      10. Ковалев, В. В. Финансовый анализ: Управление капиталом. Выбор инвестиций. Анализ отчетности / В. В. Ковалёв. – М.: Финансы и статистика, 1996.

      11. Фишберн, П. Теория полезности для принятия решений / П. Фишберн. – М.: Наука, 1978.

 

 

ПРИЛОЖЕНИЕ  А

(обязательное)

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

Borland C++Builder 6.0 

      Программа, обеспечивающая ввод экспертных данных для расчета

Содержание  заголовочного файла program_diplom_Unit_cpp.h:

//-----------------------------------------------------------------------------------------------------

#ifndef program_diplom_Unit_cppH

#define program_diplom_Unit_cppH

//-----------------------------------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <Buttons.hpp>

#include <jpeg.hpp>

#include <Vector.h>

#include <math.h>

#include <Math.hpp>

#include <Grids.hpp>

#include <Algorithm.h>

#include <map.h>

#include <Dialogs.hpp>

#include <Menus.hpp>

//-----------------------------------------------------------------------------------------------------

class TForm1 : public TForm

{

__published: // IDE-managed Components

        TButton *Button1;

        TLabeledEdit *LabeledEdit1;

        TStaticText *StaticText1;

        TBitBtn *BitBtn1;

        TStringGrid *StringGrid1;

        void __fastcall Button1Click(TObject *Sender);

        void __fastcall BitBtn1Click(TObject *Sender);

        void __fastcall FormCreate(TObject *Sender);

        void __fastcall StringGrid1SetEditText(TObject *Sender, int ACol,

          int ARow, const AnsiString Value);

        void __fastcall LabeledEdit1Change(TObject *Sender);

        void __fastcall StringGrid1SelectCell(TObject *Sender, int ACol,

          int ARow, bool &CanSelect);

private: // User declarations

vector<vector<vector<double > > > trapec;

FILE *ptr;

public:  // User declarations

        __fastcall TForm1(TComponent* Owner);

bool IsValidData();

};

//-----------------------------------------------------------------------------------------------------

extern PACKAGE TForm1 *Form1;

//-----------------------------------------------------------------------------------------------------

#endif

Содержание  исполняемого файла программы program_diplom_Unit_cpp.cpp:

//-----------------------------------------------------------------------------------------------------

#include <vcl.h>

#include <stdio.h>

#pragma hdrstop

#include "program_diplom_Unit_cpp.h"

//-----------------------------------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//-----------------------------------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

ptr=fopen("pokazateli.pkz","w");

}

//-----------------------------------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

   fprintf(ptr,"%s",Form1->LabeledEdit1->Text);

   fprintf(ptr,"\n");

   LabeledEdit1->Text="";

   for(int i=1;i<=5;i++)

   {

    for(int j=1;j<=4;j++)

     {

      fprintf(ptr,"%s",Form1->StringGrid1->Cells[j][i]);

   fprintf(ptr,"\n");

   Form1->StringGrid1->Cells[j][i]="";

  }

   }

   Form1->Button1->Enabled=false;

}

//-----------------------------------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

 fclose(ptr);

 Form1->Close();

}

//-----------------------------------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Form1->StringGrid1->Options<<goEditing;

Form1->StringGrid1->ColCount=5;

Form1->StringGrid1->RowCount=6;

Form1->StringGrid1->ScrollBars=ssVertical;

orm1->StringGrid1->DefaultColWidth=Floor(Form1->StringGrid1->

Width/Form1->StringGrid1->ColCount-2);

Form1->StringGrid1->FixedColor=clCream;

Form1->StringGrid1->Cells[0][1]="Очень низкий";

Form1->StringGrid1->Cells[0][2]="Низкий";

Form1->StringGrid1->Cells[0][3]="Средний";

Form1->StringGrid1->Cells[0][4]="Высокий";

Form1->StringGrid1->Cells[0][5]="Очень высокий";

Form1->StringGrid1->Cells[1][0]="a1";

Form1->StringGrid1->Cells[2][0]="a2";

Form1->StringGrid1->Cells[3][0]="a3";

Form1->StringGrid1->Cells[4][0]="a4";

Form1->StringGrid1->Row=0;

Form1->StringGrid1->Col=0;

Form1->Button1->Enabled=false;

}

//-----------------------------------------------------------------------------------------------------

bool TForm1::IsValidData()

{

  for(int i=1;i<=5;i++)

   {

   for(int j=1;j<=4;j++)

     {

      AnsiString AS=Form1->StringGrid1->Cells[j][i];

      if(!(AS.AnsiPos(' ')==0)) return false;

      if(AS.AnsiPos(',')>1)

      {

       AS.Delete(AS.AnsiPos(','),1);

      }

      if(AS.ToIntDef(100000000)==100000000)

       {

        return false;

       }

     }

   }

  for(int i=1;i<=5;i++)

   {

    for(int j=2;j<=4;j++)

    {

      if(Form1->StringGrid1->Cells[j][i].ToDouble()<=Form1->StringGrid1->

     Cells[j-1][i].ToDouble()) return false;

    }

   }

  return true;

}

//-----------------------------------------------------------------------------------------------------

void __fastcall TForm1::StringGrid1SetEditText(TObject *Sender, int ACol,

int ARow, const AnsiString Value)

{

 bool final_condition=true;

 for(int i=2;i<=5;i++)

  {

   if(!(Form1->StringGrid1->Cells[1][i]==Form1->StringGrid1->Cells[3][i-1]))

     final_condition=false;

   if(!(Form1->StringGrid1->Cells[2][i]==Form1->StringGrid1->Cells[4][i-1]))

     final_condition=false;

  }

 if(IsValidData()&&final_condition)

  {

  Form1->Button1->Enabled=true;

  }

 else

  {

  Form1->Button1->Enabled=false;

  }

}

//-----------------------------------------------------------------------------------------------------

void __fastcall TForm1::LabeledEdit1Change(TObject *Sender)

{

 if(!(Form1->LabeledEdit1->Text.AnsiPos(' ')==0))