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

 Inc(count);

 end;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

var

 x,k: Integer;

 z: double;

begin

 Series3.Clear();

 SpeedButton3.Enabled:=true;

 sd1.Enabled:=true;

 SpeedButton3.Flat:=false;

 x:=0;

 for k:=0 to count-1 do

 begin

 if (Series1.XValues.Value[k]=x) then

 begin

 z:=Series1.YValues.Value[k];

 massiv[k]:=z;

 Series3.AddXY(x,z,'',clTeeColor);

 if (abs(Series1.YValues.Value[k]) > maxi) then

 maxi:=abs(Series1.YValues.Value[k]);

 x:=x+CSpinEdit2.Value;

 end;

 end

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



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

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