Экономическое состояние предприятия

fy">     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.