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

StavkaNaloga:=MinNalog;

while StavkaNaloga<=MaxNalog do

begin

DohodVBudget:=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.