Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

{ TFormLR6 }

var

 count: Integer = 0;

 count2: Integer = 0;

 maxi: double = 0.0;

 maxy: double = -200.0;

 miny: double = 200.0;

procedure TForm1.SpeedButton1Click(Sender: TObject);

var

 i: double;

begin

 Series1.Clear();

 Series2.Clear();

 Series3.Clear();

 SpeedButton3.Enabled:=false;

 Sd1.Enabled:=false;

 SpeedButton3.Flat:=true;

 SpeedButton2.Enabled:=true;

 dsf1.Enabled:=true;

 count:=0;

 i:=0;

 while (i<=CSpinEdit1.Value) do

 begin

 Series1.AddXY(i,(random(5)+1)*0.05*cos(i+random(5)*0.01),'',clTeeColor);

 i:=i+0.5 ;

Рекомендуем скачать другие рефераты по теме: реферат современный мир, бесплатный решебник.



Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки