Список идентификаторов. kol - количество обсчитанных акционерных обществ Integer. summa - сумма финансового левериджа всех обсчитанных АО Single. prak - цена привелегированных акций текущего АО Currency. obak - цена обыкновенных акций текущего АО Currency. obl - цена облигаций текущего АО Currency. lev - значение финансового левериджа текущего АО Currency. t1,t2 - промежуточные переменные String.
Таблица свойств формы. Begin Form FINLEV Caption Расчет финансового левериджа ClientHeight 4560 ClientLeft 1410 ClientTop 1995 ClientWidth 7305 Height 4965 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 VOBAK Height 375 Left 3240 TabIndex 5 Text 0 Top 2400 Width 2295 End Begin TextBox VPRAK Height 375 Left 3240 TabIndex 4 Text 0 Top 1560 Width 2295 End Begin TextBox Vobl Height 375 Left 3240 TabIndex 1 Text 0 Top 720 Width 2295 End Begin Label srdlev BorderStyle 1 Fixed Single Caption Средний финансовый леверидж пока не вычислен Height 255 Left 120 TabIndex 10 Top 3480 Width 6975 End Begin Label Titul Caption Расчет 1 FontBold -1 Italic 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 TOBAK Caption Введите обыкновенные акции, руб Height 495 Left 120 TabIndex 3 Top 2400 Width 2895 End Begin Label TPRAK Caption Введите привелегированные акции, руб Height 495 Left 120 TabIndex 2 Top 1560 Width 2895 End Begin Label Tobl Caption Введите облигации, руб Height 255 Left 120 TabIndex 0 Top 840 Width 2895 End End