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

with Chart do

begin

SeriesList.Clear;

Legend.LegendStyle:=lsSeries;

Title.Text.Strings[0]:=IntToStr(Period)+' лет';

Rent:=MinRentab;

while Rent<=MaxRentab do

begin

AddSeries(TLineSeries.Create(Self));

Series[SeriesCount-1].Title:=FloatToStr(Rent)+'%';

StavkaNaloga:=MinNalog;

while StavkaNaloga<=MaxNalog do

begin

DohodVBudge

t:=Postupleniya(StavkaNaloga,Rent,NachKapital,Period);

Series[SeriesCount-1].AddXY(StavkaNaloga,DohodVBudget,'');

StavkaNaloga:=StavkaNaloga+StepNalog;

end;

Rent:=Rent+StepRent;

end;

end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Period<=MaxP then

begin

Period:=Period+StepP;

BitBtn1Click(Self);

end

else

Period:=MinP;

end;

procedure TForm1.lbedMaxNalogKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then BitBtn1Click(Self);

if not(Key in ['0' '9',#8,','])then Key:=#0;

end;

end.

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