180312 (596416), страница 10

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 10)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids;

type

TForm1 = class(TForm)

tabl1: TStringGrid;

tabl2: TStringGrid;

Button1: TButton;

tabl: TStringGrid;

tabl3: TStringGrid;

Label1: TLabel;

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);

begin

{Пассив}

tabl1.Cells[0,0]:='Пассив';

tabl1.Cells[1,0]:='На начало года';

tabl1.Cells[2,0]:='На конец года';

tabl1.cells [0,1]:='Уставный капитал' ;

tabl1.cells [0,2]:='Паевый капитал' ;

tabl1.cells [0,3]:='Дополнительный вложенный капитал' ;

tabl1.cells [0,4]:='Другой дополнительный капитал' ;

tabl1.cells [0,5]:='Резервный капитал' ;

tabl1.cells [0,6]:='Нераспределенная прибыль (непокрытый убыток)' ;

tabl1.cells [0,7]:='Неоплаченный капитал' ;

tabl1.cells [0,8]:='Изъятый капитал' ;

tabl1.cells [0,9]:='Всего по разделу I' ;

tabl1.cells [0,10]:='Обеспечение выплат персоналу' ;

tabl1.cells [0,11]:='Другие обеспечения' ;

tabl1.cells [0,12]:='Целевое финансирование' ;

tabl1.cells [0,13]:='Всего по разделу II' ;

tabl1.cells [0,14]:='Долгосрочные кредиты банка' ;

tabl1.cells [0,15]:='Другие долгосрочные финансовые обязательства';

tabl1.cells [0,16]:='Отсроченные налоговые обязательства' ;

tabl1.cells [0,17]:='Другие долгосрочные обязательства' ;

tabl1.cells [0,18]:='Всего по разделу III' ;

tabl1.cells [0,19]:='Краткосрочные кредиты банка' ;

tabl1.cells [0,20]:='Текущая задолженность по долгосрочным обязательствам' ;

tabl1.cells [0,21]:='Векселя выданные' ;

tabl1.cells [0,22]:='Кредиторская задолженность за товары, работы, услуги' ;

tabl1.cells [0,23]:='Текущие обязательства по счетам:' ;

tabl1.cells [0,24]:='с полученных авансов' ;

tabl1.cells [0,25]:='с бюджетом' ;

tabl1.cells [0,26]:='с позабюджетных платежей' ;

tabl1.cells [0,27]:='по страхованию' ;

tabl1.cells [0,28]:='по оплате труда' ;

tabl1.cells [0,29]:='с участниками' ;

tabl1.cells [0,30]:='по внутренним счетам' ;

tabl1.cells [0,31]:='Другие текущие обязательства' ;

tabl1.cells [0,32]:='Всего по разделу IV' ;

tabl1.cells [0,33]:='Доходы будущих периодов' ;

tabl1.cells [0,34]:='Баланс' ;

{Актив}

tabl.Cells[0,0]:='Актив';

tabl.Cells[1,0]:='На начало года';

tabl.Cells[2,0]:='На конец года';

tabl.cells [0,1]:='Нематериальные активы:' ;

tabl.cells [0,2]:='остаточная стоимость' ;

tabl.cells [0,3]:='первоначальная стоимость' ;

tabl.cells [0,4]:='износ' ;

tabl.cells [0,5]:='Незавершенное строительство' ;

tabl.cells [0,6]:='Основные средства:' ;

tabl.cells [0,7]:='остаточная стоимость' ;

tabl.cells [0,8]:='первоначальная стоимость' ;

tabl.cells [0,9]:='износ' ;

tabl.cells [0,10]:='Долгосрочные финансовые инвестиции:' ;

tabl.cells [0,11]:='Долгосрочная дебиторская задолженность' ;

tabl.cells [0,12]:='Отсроченные налоговые активы' ;

tabl.cells [0,13]:='Другие необоротные активы' ;

tabl.cells [0,14]:='Всего по разделу I' ;

tabl.cells [0,15]:='Запасы' ;

tabl.cells [0,16]:='производственные запасы' ;

tabl.cells [0,17]:='животные на выращивании и откорме' ;

tabl.cells [0,18]:='незавершенное производство' ;

tabl.cells [0,19]:='готовая продукция' ;

tabl.cells [0,20]:='товары' ;

tabl.cells [0,21]:='Векселя полученные' ;

tabl.cells [0,22]:='Дебиторская задолженность за товары, работы, услуги:' ;

tabl.cells [0,23]:='чистая реализационная стоимость' ;

tabl.cells [0,24]:='первоначальная стоимость' ;

tabl.cells [0,25]:='резерв сомнительных долгов' ;

tabl.cells [0,26]:='Дебиторская задолженность по расчетам:' ;

tabl.cells [0,27]:='с бюджетом' ;

tabl.cells [0,28]:='по выданным авансам' ;

tabl.cells [0,29]:='по начисленным доходов' ;

tabl.cells [0,30]:='по внутреннимрасчетам' ;

tabl.cells [0,31]:='Другая текущая дебиторская задолженность' ;

tabl.cells [0,32]:='Текущие финансовые инвестиции' ;

tabl.cells [0,33]:='Денежные средства и их эквиваленты:' ;

tabl.cells [0,34]:='в национальной валюте' ;

tabl.cells [0,35]:='в иностранной валюте' ;

tabl.cells [0,36]:='Другие оборотные активы' ;

tabl.cells [0,37]:='Всего по разделу II' ;

tabl.cells [0,38]:='Расходы будущих периодов' ;

tabl.cells [0,39]:='Баланс' ;

{фин результаты}

tabl3.cells[0,0]:='Показатель';

tabl3.Cells[1,0]:='За отчетный год';

tabl3.cells[0,1]:='Финансовые результаты от обычной деятельности до налогообложения';

tabl3.cells[0,2]:='Чистая прибыль (убыток)';

tabl3.cells[0,3]:='Валовая прибыль (убыток)';

tabl3.cells[0,4]:='Чистый доход от реализации продукции';

tabl3.cells[0,5]:='Финансовые результаты от операционной деятельности';

{Результаты расчета}

tabl2.cells[0,0]:='Финансовые показатели';

tabl2.Cells[1,0]:='На начало года';

tabl2.Cells[2,0]:='На конец года';

tabl2.cells[0,1]:='Коэф-т фин. автономии';

tabl2.cells[0,2]:='Коэф-т зависимости';

tabl2.cells[0,3]:='Коэф-т фин. риска';

tabl2.cells[0,4]:='Коэф-т маневренности';

tabl2.cells[0,5]:='Коэф-т общ. ликвидности';

tabl2.cells[0,6]:='Коэф-т срочной ликвидности';

tabl2.cells[0,7]:='Коэф-т абсолютной ликвидности';

tabl2.cells[0,8]:='Рентабельность совокупного капитала';

tabl2.cells[0,9]:='Рентабельность собственного капитала';

tabl2.cells[0,10]:='Валовая рентабельность продаж';

tabl2.cells[0,11]:='Операционная рентабельность продаж';

tabl2.cells[0,12]:='Чистая рентабельность продаж';

end;

procedure TForm1.Button1Click(Sender: TObject);

var

Ka,Kz,Kr,Km,Kol,Ksl,Kal,P1,P2,P3,P4,P5:real;

Kak,Kzk,Krk,Kmk,Kolk,Kslk,Kalk:real;

begin

Ka:=strtofloat(tabl1.Cells[1,9])/

strtofloat(tabl1.cells[1,34]);{коэф-т фин автономии}

Kz:=strtofloat(tabl1.Cells[1,34])/

strtofloat(tabl1.cells[1,9]);{коэф-т зависимости}

Kr:=(strtofloat(tabl1.Cells[1,13])+

strtofloat(tabl1.Cells[1,18])+

strtofloat(tabl1.Cells[1,32])+strtofloat(tabl1.cells[1,33]))/

strtofloat(tabl1.cells[1,9]);{коэф-т фин риска}

Km:=(strtofloat(tabl1.Cells[1,7])-

strtofloat(tabl.Cells[1,14]))/

strtofloat(tabl1.cells[1,9]);{коэф-т маневренности}

Kol:=(strtofloat(tabl.cells[1,39])-

strtofloat(tabl.cells[1,14]))

/(strtofloat(tabl1.Cells[1,32])+strtofloat(tabl1.Cells[1,13])+

strtofloat(tabl1.Cells[1,33]));{коэф-т общ ликвидности}

Ksl:=(strtofloat(tabl.Cells[1,37])-

strtofloat(tabl.Cells[1,16])-strtofloat(tabl.Cells[1,17])

-strtofloat(tabl.Cells[1,18])-strtofloat(tabl.Cells[1,36]))

/(strtofloat(tabl1.Cells[1,32])+strtofloat(tabl1.Cells[1,13])+

strtofloat(tabl1.Cells[1,33]));{коэф-т срочной ликвидности}

Kal:=(strtofloat( tabl.Cells[1,32])+

strtofloat(tabl.Cells[1,34])+strtofloat(tabl.Cells[1,35]))

/(strtofloat(tabl1.Cells[1,32])+strtofloat(tabl1.Cells[1,13])+

strtofloat(tabl1.Cells[1,33]));{коэф-т абсолютной ликвидности}

P1:=strtofloat(tabl3.cells[1,1])/

strtofloat(tabl1.cells[2,34]);{рентабельность совокупного капитала}

P2:=strtofloat(tabl3.cells[1,2])/

strtofloat(tabl1.cells[2,9]);{рентабельность собственного капитала}

P3:=strtofloat(tabl3.cells[1,3])/

strtofloat(tabl3.cells[1,4]);{валовая рентабельность продаж}

P4:=strtofloat(tabl3.cells[1,5])/

strtofloat(tabl3.cells[1,4]);{операционная рентабельность продаж}

P5:=strtofloat(tabl3.cells[1,2])/

strtofloat(tabl3.cells[1,4]);{чистая рентабельность продаж}

Kak:=strtofloat(tabl1.Cells[2,9])/

strtofloat(tabl1.cells[2,34]);{коэф-т фин автономии}

Kzk:=strtofloat(tabl1.Cells[2,34])/

strtofloat(tabl1.cells[2,9]);{коэф-т зависимости}

Krk:=(strtofloat(tabl1.Cells[2,13])+

strtofloat(tabl1.Cells[2,18])+

strtofloat(tabl1.Cells[2,32])+strtofloat(tabl1.cells[2,33]))/

strtofloat(tabl1.cells[2,9]);{коэф-т фин риска}

Kmk:=(strtofloat(tabl1.Cells[2,7])-

strtofloat(tabl.Cells[2,14]))/

strtofloat(tabl1.cells[2,9]);{коэф-т маневренности}

Kolk:=(strtofloat(tabl.cells[2,39])-

strtofloat(tabl.cells[2,14]))

/(strtofloat(tabl1.Cells[2,32])+strtofloat(tabl1.Cells[2,13])+

strtofloat(tabl1.Cells[2,33]));{коэф-т общ ликвидности}

Kslk:=(strtofloat(tabl.Cells[2,37])-

strtofloat(tabl.Cells[2,16])-strtofloat(tabl.Cells[2,17])

-strtofloat(tabl.Cells[2,18])-strtofloat(tabl.Cells[2,36]))

/(strtofloat(tabl1.Cells[2,32])+strtofloat(tabl1.Cells[2,13])+

strtofloat(tabl1.Cells[2,33]));{коэф-т срочной ликвидности}

Kalk:=(strtofloat( tabl.Cells[2,32])+

strtofloat(tabl.Cells[2,34])+strtofloat(tabl.Cells[2,35]))

/(strtofloat(tabl1.Cells[2,32])+strtofloat(tabl1.Cells[2,13])+

strtofloat(tabl1.Cells[2,33]));{коэф-т абсолютной ликвидности}

{Вывод результатов}

tabl2.Cells[1,1]:=floattostrf(Ka,ffgeneral,4,0);{коэф-т фин автономии}

tabl2.Cells[1,2]:=floattostrf(Kz,ffgeneral,4,0);{коэф-т зависимости}

tabl2.Cells[1,3]:=floattostrf(Kr,ffgeneral,4,0);{коэф-т фин риска}

tabl2.Cells[1,4]:=floattostrf(Km,ffgeneral,4,0);{коэф-т маневренности}

tabl2.cells[1,5]:=floattostrf(Kol,ffgeneral,4,0);{коэф-т общ ликвидности}

tabl2.Cells[1,6]:=floattostrf(Ksl,ffgeneral,4,0);{коэф-т срочной ликвидности}

tabl2.cells[1,7]:=floattostrf(Kal,ffgeneral,4,0);{коэф-т абсолютной ликвидности}

tabl2.Cells[1,8]:=floattostrf(P1,ffgeneral,4,0);{рентабельность совокупного капитала}

tabl2.Cells[1,9]:=floattostrf(P2,ffgeneral,4,0);{рентабельность собственного капитала}

tabl2.Cells[1,10]:=floattostrf(P3,ffgeneral,4,0);{валовая рентабельность продаж}

tabl2.Cells[1,11]:=floattostrf(P4,ffgeneral,4,0);{операционная рентабельность продаж}

tabl2.Cells[1,12]:=floattostrf(P5,ffgeneral,4,0);{чистая рентабельность продаж}

tabl2.Cells[2,1]:=floattostrf(Kak,ffgeneral,4,0);{коэф-т фин автономии}

tabl2.Cells[2,2]:=floattostrf(Kzk,ffgeneral,4,0);{коэф-т зависимости}

tabl2.Cells[2,3]:=floattostrf(Krk,ffgeneral,4,0);{коэф-т фин риска}

tabl2.Cells[2,4]:=floattostrf(Kmk,ffgeneral,4,0);{коэф-т маневренности}

tabl2.cells[2,5]:=floattostrf(Kolk,ffgeneral,4,0);{коэф-т общ ликвидности}

tabl2.Cells[2,6]:=floattostrf(Kslk,ffgeneral,4,0);{коэф-т срочной ликвидности}

tabl2.cells[2,7]:=floattostrf(Kalk,ffgeneral,4,0);{коэф-т абсолютной ликвидности}

end;

end.

Характеристики

Список файлов ВКР