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

i:integer;

begin

for i:=0 to ComponentCount-1 do

if Components[i] is TLabeledEdit then

if TLabeledEdit(Components[i]).Text='' then

begin

Timer1.Enabled:=false;

Exit;

end;

MinNalog:=StrToFloat(lbedMinNalog.Text);

MaxNalog:=StrToFloat(lbedMaxNalog.Text);

StepNalog:=StrToFloat(lbedStepNalog.Text);

NachKapital:=StrToFloat(lbedStartCapital.Text);

MaxRentab:=StrToFloat(lbedMaxRent.Text);

MinRentab:=StrToFloat(lbedMinRent.Text);

StepRent:=StrToFloat(lbedStepRent.Text);

MinP:=StrToInt(lbedMinPeriod.Text);

MaxP:=StrToInt(lbedMaxPeriod.Text);

StepP:=StrToInt(lbedStepPeriod.Text);

Timer1.Enabled:=true;

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));