Построение модели организационной структуры фирмы

else

pnlPSD.Caption:='X';

if (klci <= 0.8) then

pnlKLCI.Caption:='V'

else

pnlKLCI.Caption:='X';

end;

End.

unit UnitB;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabShee

t;

TabSheet2: TTabSheet;

Edit1: TEdit;

Label1: TLabel;

Edit2: TEdit;

Label2: TLabel;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Label5: TLabel;

Edit4: TEdit;

Label6: TLabel;

Label7: TLabel;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

BitBtn1: TBitBtn;

Edit5: TEdit;

Edit6: TEdit;

Label8: TLabel;

Label9: TLabel;

Edit7: TEdit;

Label10: TLabel;

Edit8: TEdit;

Label11: TLabel;

Edit9: TEdit;

Label12: TLabel;

Edit10: TEdit;

Label13: TLabel;

Edit11: TEdit;

Label14: TLabel;

Label15: TLabel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

p11,r,R1,ii,gr,R2,R3,P,K,C,T,S,RR,p10,D,a,i:extended;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

gr:=strtofloat(Edit5.Text);

//процентная ставка по кредитам в течении одного

//временного периода=одной неделе

r:=gr/52;

//Общая сумма долга

C:=strtofloat(Edit6.Text);

//Временной период

T:=strtofloat(Edit7.Text);

//Общая сумма поданных исков

S:=strtofloat(Edit8.Text);

//ставка рефинансирования

ii:=strtofloat(Edit9.Text);

//ставка рефинансирования в течении одного

//временного периода=одной неделе

i:=ii/52;

//сумма выплат по кредитам

RR:=strtofloat(Edit10.Text);

//еженедельные издержки по ведению счетов

K:=strtofloat(Edit11.Text);

//вероятности распределения по категориям:

//выплаты,долг,безнадежный долг

p10:=RR/(T*C);

D:=S/(T*C);

p11:=1-p10-D;

//индикатор риска будущих потерь

R1:=p11*(1+r);

//индикатор риска принципиальной убыточности

//кредитных операций

R2:=(1+r)*(1-D*(1+i))/(1+i)-1;

//определение значения индикатора риска

//нерентабельности операций

a:=C*R2-K*(((1+r)*(1+r)*i)/(r+i+r*i));

If a>0 then R3:=1 else R3:=-1;

//индикатор оптимальности потока выплат по кредитам

P:=p10-(1-D-1/(1+r));

//Вывод значений на экран

Edit1.Text:=floattostr(R1);

Edit2.Text:=floattostr(R2);

Edit3.Text:=floattostr(R3);

Edit4.Text:=floattostr(P);

//Сравнение индикаторов с допустимыми значениями

If R1<1 then Panel1.Caption:='V' else Panel1.Caption:='X';

If R2>0 then Panel2.Caption:='V' else Panel2.Caption:='X';

If R3=1 then Panel3.Caption:='V' else Panel3.Caption:='X';

If P<0.001 then Panel4.Caption:='V' else Panel4.Caption:='X';

end;

End.

 Скачать реферат