Курсовая работа: Исследование и компьютерная реализация экономико-математической модели зависимости поступлений в бюджет от величины налоговой ставки

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

function TForm1.Postupleniya(Nalog, Rentab, Capital: Double;

years: integer): Double;

var

Pribil,PribilVNalog,OstPribili,Kapital:Double;

begin

Result:=0.0;

while years>0 do

begin

dec(years);

Pribil:=Capital*Rentab/100;

PribilVNalog:=Pribil*Nalog/100;

OstPribili:=Pribil-PribilVNalog;

Capital:=Capital+OstPribili;

Result:=Result+PribilVNalog;

end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var

MinNalog,MaxNalog,StepNalog,Rent,DohodVBudget,

StavkaNaloga,NachKapital,MinRentab,